52 #include "nfconfig.inc" 63 Integer,
Parameter,
PRIVATE ::
real32 = selected_real_kind(p=6, r=37)
64 Integer,
Parameter,
PRIVATE ::
real64 = selected_real_kind(p=13, r=307)
65 Integer,
Parameter,
PRIVATE ::
int8 = selected_int_kind( 2)
66 Integer,
Parameter,
PRIVATE ::
int16 = selected_int_kind( 4)
67 Integer,
Parameter,
PRIVATE ::
int32 = selected_int_kind( 9)
68 Integer,
Parameter,
PRIVATE ::
int64 = selected_int_kind(18)
88 #ifndef HAVE_TS29113_SUPPORT 89 #if (SIZEOF_PTRDIFF_T == 4) 91 #elif (SIZEOF_PTRDIFF_T == 8) 108 #ifdef NF_INT1_IS_C_SIGNED_CHAR 109 Integer,
Parameter ::
cint1 = c_signed_char
111 #elif NF_INT1_IS_C_SHORT 112 Integer,
Parameter ::
cint1 = c_short
114 #elif NF_INT1_IS_C_INT 115 Integer,
Parameter ::
cint1 = c_int
117 #elif NF_INT1_IS_C_LONG 118 Integer,
Parameter ::
cint1 = c_long
121 Integer,
Parameter ::
cint1 = c_signed_char
127 #ifdef NF_INT2_IS_C_SHORT 128 Integer,
Parameter ::
cint2 = c_short
130 #elif NF_INT2_IS_C_INT 131 Integer,
Parameter ::
cint2 = c_int
133 #elif NF_INT2_IS_C_LONG 134 Integer,
Parameter ::
cint2 = c_long
137 Integer,
Parameter ::
cint2 = c_short
146 #ifdef NF_INT_IS_C_LONG 147 Integer,
Parameter ::
cint = c_long
150 Integer,
Parameter ::
cint = c_int
158 #ifdef NF_REAL_IS_C_DOUBLE 179 Integer,
Parameter ::
c_enum = kind(dummy)
286 Integer(C_INT),
Parameter ::
nc_eio = -68
305 Integer(C_INT),
Parameter :: nc_format_netcdf4 = 3
306 Integer(C_INT),
Parameter :: nc_format_netcdf4_classic = 4
307 Integer(C_INT),
Parameter :: nc_netcdf4 = 4096
308 Integer(C_INT),
Parameter :: nc_classic_model = 256
312 Integer(C_INT),
Parameter :: nc_long =
nc_int 313 Integer(C_INT),
Parameter :: nc_ubyte = 7
314 Integer(C_INT),
Parameter :: nc_ushort = 8
315 Integer(C_INT),
Parameter :: nc_uint = 9
316 Integer(C_INT),
Parameter :: nc_int64 = 10
317 Integer(C_INT),
Parameter :: nc_uint64 = 11
318 Integer(C_INT),
Parameter :: nc_string = 12
319 Integer(C_INT),
Parameter :: nc_vlen = 13
320 Integer(C_INT),
Parameter :: nc_opaque = 14
321 Integer(C_INT),
Parameter :: nc_enum = 15
322 Integer(C_INT),
Parameter :: nc_compound = 16
326 Integer(C_INT),
Parameter :: nc_fill_ubyte = 255
327 Integer(C_INT),
Parameter :: nc_fill_ushort = 65535
328 Integer(C_LONG_LONG),
Parameter :: nc_fill_uint = 4294967295_c_long_long
329 Integer(C_LONG_LONG),
Parameter :: nc_fill_int64 = -9223372036854775806_c_long_long
333 Integer(C_INT),
Parameter :: nc_chunk_seq = 0
334 Integer(C_INT),
Parameter :: nc_chunk_sub = 1
335 Integer(C_INT),
Parameter :: nc_chunk_sizes = 2
336 Integer(C_INT),
Parameter :: nc_endian_native = 0
337 Integer(C_INT),
Parameter :: nc_endian_little = 1
338 Integer(C_INT),
Parameter :: nc_endian_big = 2
339 Integer(C_INT),
Parameter :: nc_chunked = 0
340 Integer(C_INT),
Parameter :: nc_notcontiguous = 0
341 Integer(C_INT),
Parameter :: nc_contiguous = 1
342 Integer(C_INT),
Parameter :: nc_nochecksum = 0
343 Integer(C_INT),
Parameter :: nc_fletcher32 = 1
344 Integer(C_INT),
Parameter :: nc_noshuffle = 0
345 Integer(C_INT),
Parameter :: nc_shuffle = 1
346 Integer(C_INT),
Parameter :: nc_independent = 0
347 Integer(C_INT),
Parameter :: nc_collective = 1
351 Integer(C_INT),
Parameter :: nc_mpiio = 8192
352 Integer(C_INT),
Parameter :: nc_mpiposix = 16384
353 Integer(C_INT),
Parameter :: nc_pnetcdf = nc_mpiio
355 Integer(C_INT),
Parameter :: nc_szip_ec_option_mask = 4
356 Integer(C_INT),
Parameter :: nc_szip_nn_option_mask = 32
360 Integer(C_INT),
Parameter :: nc_ehdferr = -101
361 Integer(C_INT),
Parameter :: nc_ecantread = -102
362 Integer(C_INT),
Parameter :: nc_ecantwrite = -103
363 Integer(C_INT),
Parameter :: nc_ecantcreate = -104
364 Integer(C_INT),
Parameter :: nc_efilemeta = -105
365 Integer(C_INT),
Parameter :: nc_edimmeta = -106
366 Integer(C_INT),
Parameter :: nc_eattmeta = -107
367 Integer(C_INT),
Parameter :: nc_evarmeta = -108
368 Integer(C_INT),
Parameter :: nc_enocompound = -109
369 Integer(C_INT),
Parameter :: nc_eattexists = -110
370 Integer(C_INT),
Parameter :: nc_enotnc4 = -111
371 Integer(C_INT),
Parameter :: nc_estrictnc3 = -112
372 Integer(C_INT),
Parameter :: nc_enotnc3 = -113
373 Integer(C_INT),
Parameter :: nc_enopar = -114
374 Integer(C_INT),
Parameter :: nc_eparinit = -115
375 Integer(C_INT),
Parameter :: nc_ebadgrpid = -116
376 Integer(C_INT),
Parameter :: nc_ebadtypid = -117
377 Integer(C_INT),
Parameter :: nc_etypdefined = -118
378 Integer(C_INT),
Parameter :: nc_ebadfield = -119
379 Integer(C_INT),
Parameter :: nc_ebadclass = -120
380 Integer(C_INT),
Parameter :: nc_emaptype = -121
381 Integer(C_INT),
Parameter :: nc_elatefill = -122
382 Integer(C_INT),
Parameter :: nc_elatedef = -123
383 Integer(C_INT),
Parameter :: nc_edimscale = -124
384 Integer(C_INT),
Parameter :: nc_enogrp = -125
385 Integer(C_INT),
Parameter :: nc_estorage = -126
386 Integer(C_INT),
Parameter :: nc_ebadchunk = -127
387 Integer(C_INT),
Parameter :: nc_enotbuilt = -128
388 Integer(C_INT),
Parameter :: nc_ediskless = -129
389 Integer(C_INT),
Parameter :: nc_ecantextend = -130
390 Integer(C_INT),
Parameter :: nc_empi = -131
integer(c_int), parameter nc_echar
integer, parameter nfint2
integer(c_int), parameter nc_global
integer(c_signed_char), parameter nc_fill_byte
integer(c_int), parameter nc_estride
integer(c_int), parameter nc_emaxvars
integer(c_int), parameter nc_ebadname
integer(c_int), parameter nc_max_vars
integer(c_int), parameter nc_ebfile
integer(c_int), parameter nc_emaxdims
integer(c_int), parameter nc_nowrite
integer(c_int), parameter nc_diskless
integer(c_int), parameter nc_erange
integer(c_int), parameter nc_etrunc
integer(c_int), parameter nc_eindefine
integer(c_int), parameter nc_edds
integer(c_int), parameter nc_eunlimpos
integer(c_int), parameter nc_float
integer(c_int), parameter nc_sizehint_default
integer(c_int), parameter nc_syserr
integer, parameter c_enum
integer(c_int), parameter nc_align_chunk
integer, parameter nfint1
integer, parameter, private int16
integer(c_int), parameter nc_eglobal
integer(c_int), parameter nc_double
integer(c_int), parameter nc_eunlimit
integer, parameter, private int32
integer(c_int), parameter nc_einvalcoords
integer, parameter, private real32
integer(c_int), parameter nc_fill
integer(c_int), parameter nc_edatadds
integer, parameter, private int64
integer(c_int), parameter nc_enotnc
integer(c_int), parameter nc_eperm
integer(c_int), parameter nc_edimsize
integer(c_int), parameter nc_enameinuse
integer(c_int), parameter nc_char
integer(c_int), parameter nc_strict_nc3
character(kind=c_char), parameter nc_fill_char
integer(c_int), parameter nc_lock
integer(c_int), parameter nc_eedge
integer(c_int), parameter nc_max_name
integer(c_int), parameter nc_byte
integer(c_int), parameter nc_etranslation
integer(c_int), parameter nc_max_attrs
integer(c_int), parameter nc_ebaddim
integer(c_int), parameter nc_int
integer(c_int), parameter nc_mmap
integer(c_int), parameter nc_short
integer(c_int), parameter nc_enomem
integer(c_int), parameter nc_verbose
integer(c_int), parameter nc_edap
integer(c_int), parameter nc_max_dims
integer(c_int), parameter nc_ebadtype
integer(c_int), parameter nc_enotatt
integer(c_int), parameter nc_emaxname
integer(c_int), parameter nc_noerr
integer(c_short), parameter nc_fill_short
integer, parameter nfreal
integer(c_int), parameter nc_64bit_offset
integer(c_int), parameter nc_nat
integer(c_int), parameter nc_edapurl
integer(c_int), parameter nc_emaxatts
integer(c_int), parameter nc_unlimited
integer(c_int), parameter nc_format_classic
integer, parameter c_ptrdiff_t
integer(c_int), parameter nc_enotindefine
integer(c_int), parameter nc_eexist
integer(c_int), parameter nc_edas
integer(c_int), parameter nc_einval
integer, parameter, private real64
integer(c_int), parameter nc2_err
integer, parameter, private int8
integer(c_int), parameter nc_enorecvars
integer(c_int), parameter nc_evarsize
integer(c_int), parameter nc_enotvar
integer(c_int), parameter nc_ests
integer(c_int), parameter nc_max_var_dims
integer(c_int), parameter nc_inmemory
integer(c_int), parameter nc_clobber
integer(c_int), parameter nc_write
integer(c_int), parameter nc_nofill
integer(c_int), parameter nc_eio
integer(c_int), parameter nc_format_64bit
real(c_float), parameter nc_fill_float
integer(c_int), parameter nc_ebadid
integer(c_int), parameter nc_eaxistype
integer(c_int), parameter nc_edapsvc
integer(c_int), parameter nc_fill_int
integer(c_int), parameter nc_ecurl
integer(c_int), parameter nc_enodata
integer(c_int), parameter nc_noclobber
integer(c_int), parameter nc_edapconstraint
integer(c_int), parameter nc_fatal
integer(c_int), parameter nc_share
real(c_double), parameter nc_fill_double
integer(c_int), parameter nc_exdr