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
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
integer(c_int), parameter nc_elatefill
integer(c_int), parameter nc_echar
integer, parameter nfint2
integer(c_int), parameter nc_edimmeta
integer(c_int), parameter nc_ubyte
integer(c_int), parameter nc_global
integer(c_int), parameter nc_string
integer(c_int), parameter nc_mpiio
integer(c_signed_char), parameter nc_fill_byte
integer(c_int), parameter nc_shuffle
integer(c_int), parameter nc_estride
integer(c_int), parameter nc_chunk_sizes
integer(c_int), parameter nc_emaxvars
integer(c_int), parameter nc_ecantwrite
integer(c_int), parameter nc_compound
integer(c_int), parameter nc_ebadname
integer(c_int), parameter nc_contiguous
integer(c_int), parameter nc_chunked
integer(c_int), parameter nc_max_vars
integer(c_int), parameter nc_ebfile
integer(c_int), parameter nc_ecantcreate
integer(c_int), parameter nc_ecantextend
integer(c_int), parameter nc_uint
integer(c_int), parameter nc_evarmeta
integer(c_int), parameter nc_emaxdims
integer(c_int), parameter nc_ebadchunk
integer, parameter c_ptrdiff_t
integer(c_int), parameter nc_endian_big
integer(c_int), parameter nc_collective
integer(c_int), parameter nc_nowrite
integer(c_int), parameter nc_diskless
integer(c_int), parameter nc_format_netcdf4
integer(c_int), parameter nc_ediskless
integer(c_int), parameter nc_fletcher32
integer(c_int), parameter nc_eattmeta
integer(c_int), parameter nc_erange
integer(c_int), parameter nc_ebadclass
integer(c_int), parameter nc_etrunc
integer(c_int), parameter nc_pnetcdf
integer(c_int), parameter nc_enum
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_chunk_sub
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, private int16
integer(c_int), parameter nc_eglobal
integer(c_int), parameter nc_eparinit
integer(c_int), parameter nc_double
integer(c_int), parameter nc_eunlimit
integer(c_long_long), parameter nc_fill_int64
integer(c_int), parameter nc_etypdefined
integer, parameter, private int32
integer(c_int), parameter nc_enotnc3
integer(c_int), parameter nc_classic_model
integer(c_int), parameter nc_einvalcoords
integer, parameter, private real32
integer(c_int), parameter nc_fill
integer(c_int), parameter nc_estorage
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_nochecksum
integer(c_int), parameter nc_edimsize
integer(c_int), parameter nc_enameinuse
integer(c_int), parameter nc_ecantread
integer(c_int), parameter nc_char
integer(c_int), parameter nc_ebadfield
integer(c_int), parameter nc_ehdferr
integer(c_int), parameter nc_strict_nc3
character(kind=c_char), parameter nc_fill_char
integer(c_int), parameter nc_enocompound
integer(c_int), parameter nc_mpiposix
integer(c_int), parameter nc_lock
integer(c_int), parameter nc_eedge
integer(c_int), parameter nc_independent
integer(c_int), parameter nc_max_name
integer(c_int), parameter nc_endian_native
integer(c_int), parameter nc_ebadtypid
integer(c_int), parameter nc_estrictnc3
integer(c_int), parameter nc_uint64
integer(c_int), parameter nc_byte
integer(c_int), parameter nc_enopar
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_notcontiguous
integer(c_int), parameter nc_chunk_seq
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(c_int), parameter nc_enotnc4
integer(c_long_long), parameter nc_fill_uint
integer(c_int), parameter nc_64bit_offset
integer(c_int), parameter nc_enotbuilt
integer(c_int), parameter nc_nat
integer(c_int), parameter nc_edapurl
integer(c_int), parameter nc_emaxatts
integer(c_int), parameter nc_szip_nn_option_mask
integer(c_int), parameter nc_elatedef
integer(c_int), parameter nc_int64
integer(c_int), parameter nc_unlimited
integer(c_int), parameter nc_format_classic
integer(c_int), parameter nc_long
integer(c_int), parameter nc_netcdf4
integer(c_int), parameter nc_enotindefine
integer(c_int), parameter nc_opaque
integer(c_int), parameter nc_ebadgrpid
integer(c_int), parameter nc_noshuffle
integer(c_int), parameter nc_edimscale
integer(c_int), parameter nc_eexist
integer(c_int), parameter nc_edas
integer(c_int), parameter nc_szip_ec_option_mask
integer(c_int), parameter nc_efilemeta
integer(c_int), parameter nc_einval
integer, parameter, private real64
integer(c_int), parameter nc_fill_ubyte
integer(c_int), parameter nc2_err
integer, parameter, private int8
integer, parameter nfint1
integer(c_int), parameter nc_empi
integer(c_int), parameter nc_endian_little
integer(c_int), parameter nc_enorecvars
integer(c_int), parameter nc_evarsize
integer(c_int), parameter nc_enotvar
integer(c_int), parameter nc_ushort
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_format_netcdf4_classic
integer, parameter nfreal
integer(c_int), parameter nc_eio
integer(c_int), parameter nc_vlen
integer(c_int), parameter nc_format_64bit
integer(c_int), parameter nc_emaptype
real(c_float), parameter nc_fill_float
integer(c_int), parameter nc_fill_ushort
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_eattexists
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_enogrp
integer(c_int), parameter nc_share
real(c_double), parameter nc_fill_double
integer(c_int), parameter nc_exdr