1 #include "nfconfig.inc" 41 Integer,
Intent(IN) :: ncid, varid
42 Character(LEN=*),
Intent(IN) :: text
46 Integer(C_INT) :: cncid, cvarid, cstatus
65 Integer,
Intent(IN) :: ncid, varid
66 Character(LEN=1),
Intent(IN) :: text(*)
70 Integer(C_INT) :: cncid, cvarid, cstatus
89 Integer,
Intent(IN) :: ncid, varid
90 Integer(NFINT1),
Intent(IN) :: i1vals(*)
94 Integer(C_INT) :: cncid, cvarid, cstatus
96 If (c_signed_char < 0)
Then 104 #if NF_INT1_IS_C_SIGNED_CHAR 106 #elif NF_INT1_IS_C_SHORT 108 #elif NF_INT1_IS_C_INT 110 #elif NF_INT1_IS_C_LONG 126 Integer,
Intent(IN) :: ncid, varid
127 Integer(NFINT2),
Intent(IN) :: i2vals(*)
131 Integer(C_INT) :: cncid, cvarid, cstatus
133 If (c_short < 0)
Then 141 #if NF_INT2_IS_C_SHORT 143 #elif NF_INT2_IS_C_INT 145 #elif NF_INT2_IS_C_LONG 161 Integer,
Intent(IN) :: ncid, varid
162 Integer(NFINT),
Intent(IN) :: ivals(*)
166 Integer(C_INT) :: cncid, cvarid, cstatus
173 #elif NF_INT_IS_C_LONG 189 Integer,
Intent(IN) :: ncid, varid
190 Real(NFREAL),
Intent(IN) :: rvals(*)
194 Integer(C_INT) :: cncid, cvarid, cstatus
199 #if NF_REAL_IS_C_DOUBLE 217 Integer,
Intent(IN) :: ncid, varid
218 Real(RK8),
Intent(IN) :: dvals(*)
222 Integer(C_INT) :: cncid, cvarid, cstatus
241 Integer,
Intent(IN) :: ncid, varid
242 Character(LEN=*),
Intent(OUT) :: text
246 Integer(C_INT) :: cncid, cvarid, cstatus
250 text = repeat(
" ", len(text))
266 Integer,
Intent(IN) :: ncid, varid
267 Character(LEN=1),
Intent(OUT) :: text(*)
271 Integer(C_INT) :: cncid, cvarid, cstatus
290 Integer,
Intent(IN) :: ncid, varid
291 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
295 Integer(C_INT) :: cncid, cvarid, cstatus
297 If (c_signed_char < 0)
Then 305 #if NF_INT1_IS_C_SIGNED_CHAR 307 #elif NF_INT1_IS_C_SHORT 309 #elif NF_INT1_IS_C_INT 311 #elif NF_INT1_IS_C_LONG 327 Integer,
Intent(IN) :: ncid, varid
328 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
332 Integer(C_INT) :: cncid, cvarid, cstatus
334 If (c_short < 0)
Then 342 #if NF_INT2_IS_C_SHORT 344 #elif NF_INT2_IS_C_INT 346 #elif NF_INT2_IS_C_LONG 362 Integer,
Intent(IN) :: ncid, varid
363 Integer(NFINT),
Intent(OUT) :: ivals(*)
367 Integer(C_INT) :: cncid, cvarid, cstatus
374 #elif NF_INT_IS_C_LONG 390 Integer,
Intent(IN) :: ncid, varid
391 Real(NFREAL),
Intent(OUT) :: rvals(*)
395 Integer(C_INT) :: cncid, cvarid, cstatus
400 #if NF_REAL_IS_C_DOUBLE 418 Integer,
Intent(IN) :: ncid, varid
419 Real(RK8),
Intent(OUT) :: dvals(*)
423 Integer(C_INT) :: cncid, cvarid, cstatus
integer function nf_put_var_int2(ncid, varid, i2vals)
integer function nf_put_var_real(ncid, varid, rvals)
integer function nf_put_var_text(ncid, varid, text)
integer function nf_put_var_int1(ncid, varid, i1vals)
integer function nf_put_var_int(ncid, varid, ivals)
integer function nf_get_var_int2(ncid, varid, i2vals)
integer function nf_get_var_text_a(ncid, varid, text)
integer function nf_get_var_real(ncid, varid, rvals)
integer function nf_get_var_double(ncid, varid, dvals)
integer function nf_get_var_int(ncid, varid, ivals)
integer function nf_get_var_text(ncid, varid, text)
integer function nf_get_var_int1(ncid, varid, i1vals)
integer function nf_put_var_text_a(ncid, varid, text)
integer function nf_put_var_double(ncid, varid, dvals)