1 #include "nfconfig.inc" 32 Function nf_put_var_text(ncid, varid, text) RESULT(status)
36 USE netcdf_nc_interfaces
40 Integer,
Intent(IN) :: ncid, varid
41 Character(LEN=*),
Intent(IN) :: text
45 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
54 End Function nf_put_var_text
56 Function nf_put_var_text_a(ncid, varid, text) RESULT(status)
60 USE netcdf_nc_interfaces
64 Integer,
Intent(IN) :: ncid, varid
65 Character(LEN=1),
Intent(IN) :: text(*)
69 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
78 End Function nf_put_var_text_a
80 Function nf_put_var_int1(ncid, varid, i1vals) RESULT(status)
84 USE netcdf_nc_interfaces
88 Integer,
Intent(IN) :: ncid, varid
89 Integer(KIND=NFINT1),
Intent(IN) :: i1vals(*)
93 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
95 If (c_signed_char < 0)
Then 103 #if NF_INT1_IS_C_SIGNED_CHAR 105 #elif NF_INT1_IS_C_SHORT 107 #elif NF_INT1_IS_C_INT 109 #elif NF_INT1_IS_C_LONG 115 End Function nf_put_var_int1
117 Function nf_put_var_int2(ncid, varid, i2vals) RESULT(status)
121 USE netcdf_nc_interfaces
125 Integer,
Intent(IN) :: ncid, varid
126 Integer(KIND=NFINT2),
Intent(IN) :: i2vals(*)
130 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
132 If (c_short < 0)
Then 140 #if NF_INT2_IS_C_SHORT 142 #elif NF_INT2_IS_C_INT 144 #elif NF_INT2_IS_C_LONG 150 End Function nf_put_var_int2
152 Function nf_put_var_int(ncid, varid, ivals) RESULT(status)
156 USE netcdf_nc_interfaces
160 Integer,
Intent(IN) :: ncid, varid
161 Integer(NFINT),
Intent(IN) :: ivals(*)
165 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
172 #elif NF_INT_IS_C_LONG 178 End Function nf_put_var_int
180 Function nf_put_var_real(ncid, varid, rvals) RESULT(status)
184 USE netcdf_nc_interfaces
188 Integer,
Intent(IN) :: ncid, varid
189 Real(NFREAL),
Intent(IN) :: rvals(*)
192 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
197 #if NF_REAL_IS_C_DOUBLE 205 End Function nf_put_var_real
207 Function nf_put_var_double(ncid, varid, dvals) RESULT(status)
211 USE netcdf_nc_interfaces
215 Integer,
Intent(IN) :: ncid, varid
216 Real(RK8),
Intent(IN) :: dvals(*)
220 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
229 End Function nf_put_var_double
231 Function nf_get_var_text(ncid, varid, text) RESULT(status)
235 USE netcdf_nc_interfaces
239 Integer,
Intent(IN) :: ncid, varid
240 Character(LEN=*),
Intent(OUT) :: text
244 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
248 text = repeat(
" ", len(text))
254 End Function nf_get_var_text
256 Function nf_get_var_text_a(ncid, varid, text) RESULT(status)
260 USE netcdf_nc_interfaces
264 Integer,
Intent(IN) :: ncid, varid
265 Character(LEN=1),
Intent(OUT) :: text(*)
269 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
278 End Function nf_get_var_text_a
280 Function nf_get_var_int1(ncid, varid, i1vals) RESULT(status)
284 USE netcdf_nc_interfaces
288 Integer,
Intent(IN) :: ncid, varid
289 Integer(KIND=NFINT1),
Intent(OUT) :: i1vals(*)
293 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
295 If (c_signed_char < 0)
Then 303 #if NF_INT1_IS_C_SIGNED_CHAR 305 #elif NF_INT1_IS_C_SHORT 307 #elif NF_INT1_IS_C_INT 309 #elif NF_INT1_IS_C_LONG 315 End Function nf_get_var_int1
317 Function nf_get_var_int2(ncid, varid, i2vals) RESULT(status)
321 USE netcdf_nc_interfaces
325 Integer,
Intent(IN) :: ncid, varid
326 Integer(KIND=NFINT2),
Intent(OUT) :: i2vals(*)
330 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
332 If (c_short < 0)
Then 340 #if NF_INT2_IS_C_SHORT 342 #elif NF_INT2_IS_C_INT 344 #elif NF_INT2_IS_C_LONG 350 End Function nf_get_var_int2
352 Function nf_get_var_int(ncid, varid, ivals) RESULT(status)
356 USE netcdf_nc_interfaces
360 Integer,
Intent(IN) :: ncid, varid
361 Integer(NFINT),
Intent(OUT) :: ivals(*)
365 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
372 #elif NF_INT_IS_C_LONG 378 End Function nf_get_var_int
380 Function nf_get_var_real(ncid, varid, rvals) RESULT(status)
384 USE netcdf_nc_interfaces
388 Integer,
Intent(IN) :: ncid, varid
389 Real(NFREAL),
Intent(OUT) :: rvals(*)
393 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
398 #if NF_REAL_IS_C_DOUBLE 406 End Function nf_get_var_real
408 Function nf_get_var_double(ncid, varid, dvals) RESULT(status)
412 USE netcdf_nc_interfaces
416 Integer,
Intent(IN) :: ncid, varid
417 Real(RK8),
Intent(OUT) :: dvals(*)
421 Integer(KIND=C_INT) :: cncid, cvarid, cstatus
430 End Function nf_get_var_double