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