1 #include "nfconfig.inc" 42 Integer,
Intent(IN) :: ncid, varid, nlen
43 Character(LEN=*),
Intent(IN) :: name, text
47 Integer(C_INT) :: cncid, cvarid, cstatus
48 Integer(C_SIZE_T) :: cnlen
49 Character(LEN=(LEN(name)+1)) :: cname
74 Integer,
Intent(IN) :: ncid, varid, nlen
75 Character(LEN=*),
Intent(IN) :: name
76 Character(LEN=1),
Intent(IN) :: text(*)
80 Integer(C_INT) :: cncid, cvarid, cstatus
81 Integer(C_SIZE_T) :: cnlen
82 Character(LEN=(LEN(name)+1)) :: cname
107 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
108 Character(LEN=*),
Intent(IN) :: name
109 Integer(NFINT1),
Intent(IN) :: i1vals(*)
113 Integer(C_INT) :: cncid, cvarid, cstatus, cxtype
114 Integer(C_SIZE_T) :: cnlen
115 Character(LEN=(LEN(name)+1)) :: cname
118 If (c_signed_char < 0)
Then 132 #if NF_INT1_IS_C_SIGNED_CHAR 134 cxtype, cnlen, i1vals)
135 #elif NF_INT1_IS_C_SHORT 137 cxtype, cnlen, i1vals)
138 #elif NF_INT1_IS_C_INT 140 cxtype, cnlen, i1vals)
141 #elif NF_INT1_IS_C_LONG 143 cxtype, cnlen, i1vals)
158 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
159 Character(LEN=*),
Intent(IN) :: name
160 Integer(NFINT2),
Intent(IN) :: i2vals(*)
164 Integer(C_INT) :: cncid, cvarid, cstatus, cxtype
165 Integer(C_SIZE_T) :: cnlen
166 Character(LEN=(LEN(name)+1)) :: cname
169 If (c_short < 0)
Then 181 #if NF_INT2_IS_C_SHORT 183 cxtype, cnlen, i2vals)
184 #elif NF_INT2_IS_C_INT 186 cxtype, cnlen, i2vals)
187 #elif NF_INT2_IS_C_LONG 189 cxtype, cnlen, i2vals)
204 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
205 Character(LEN=*),
Intent(IN) :: name
206 Integer(NFINT),
Intent(IN) :: ivals(*)
210 Integer(C_INT) :: cncid, cvarid, cstatus, cxtype
211 Integer(C_SIZE_T) :: cnlen
212 Character(LEN=(LEN(name)+1)) :: cname
226 cxtype, cnlen, ivals)
227 #elif NF_INT_IS_C_LONG 229 cxtype, cnlen, ivals)
244 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
245 Character(LEN=*),
Intent(IN) :: name
246 Real(NFREAL),
Intent(IN) :: rvals(*)
250 Integer(C_INT) :: cncid, cvarid, cstatus, cxtype
251 Integer(C_SIZE_T) :: cnlen
252 Character(LEN=(LEN(name)+1)) :: cname
264 #if NF_REAL_IS_C_DOUBLE 266 cxtype, cnlen, rvals)
269 cxtype, cnlen, rvals)
284 Integer,
Intent(IN) :: ncid, varid, nlen, xtype
285 Character(LEN=*),
Intent(IN) :: name
286 Real(RK8),
Intent(IN) :: dvals(*)
290 Integer(C_INT) :: cncid, cvarid, cstatus, cxtype
291 Integer(C_SIZE_T) :: cnlen
292 Character(LEN=(LEN(name)+1)) :: cname
305 cxtype, cnlen, dvals)
319 Integer,
Intent(IN) :: ncid, varid
320 Character(LEN=*),
Intent(IN) :: name
321 Character(LEN=*),
Intent(OUT) :: text
325 Integer(C_INT) :: cncid, cvarid, cstatus
326 Character(LEN=(LEN(name)+1)) :: cname
331 text = repeat(
" ", len(text))
352 Integer,
Intent(IN) :: ncid, varid
353 Character(LEN=*),
Intent(IN) :: name
354 Character(LEN=1),
Intent(OUT) :: text(*)
358 Integer(C_INT) :: cncid, cvarid, cstatus
359 Character(LEN=(LEN(name)+1)) :: cname
383 Integer,
Intent(IN) :: ncid, varid
384 Character(LEN=*),
Intent(IN) :: name
385 Integer(NFINT1),
Intent(OUT) :: i1vals(*)
389 Integer(C_INT) :: cncid, cvarid, cstatus
390 Character(LEN=(LEN(name)+1)) :: cname
393 If (c_signed_char < 0)
Then 405 #if NF_INT1_IS_C_SIGNED_CHAR 407 #elif NF_INT1_IS_C_SHORT 409 #elif NF_INT1_IS_C_INT 411 #elif NF_INT1_IS_C_LONG 426 Integer,
Intent(IN) :: ncid, varid
427 Character(LEN=*),
Intent(IN) :: name
428 Integer(NFINT2),
Intent(OUT) :: i2vals(*)
432 Integer(C_INT) :: cncid, cvarid, cstatus
433 Character(LEN=(LEN(name)+1)) :: cname
436 If (c_short < 0)
Then 448 #if NF_INT2_IS_C_SHORT 450 #elif NF_INT2_IS_C_INT 452 #elif NF_INT2_IS_C_LONG 467 Integer,
Intent(IN) :: ncid, varid
468 Character(LEN=*),
Intent(IN) :: name
469 Integer(NFINT),
Intent(OUT) :: ivals(*)
473 Integer(C_INT) :: cncid, cvarid, cstatus
474 Character(LEN=(LEN(name)+1)) :: cname
486 #elif NF_INT_IS_C_LONG 501 Integer,
Intent(IN) :: ncid, varid
502 Character(LEN=*),
Intent(IN) :: name
503 Real(NFREAL),
Intent(OUT) :: rvals(*)
507 Integer(C_INT) :: cncid, cvarid, cstatus
508 Character(LEN=(LEN(name)+1)) :: cname
518 #if NF_REAL_IS_C_DOUBLE 535 Integer,
Intent(IN) :: ncid, varid
536 Character(LEN=*),
Intent(IN) :: name
537 Real(RK8),
Intent(OUT) :: dvals(*)
541 Integer(C_INT) :: cncid, cvarid, cstatus
542 Character(LEN=(LEN(name)+1)) :: cname
function nf_put_att_double(ncid, varid, name, xtype, nlen, dvals)
function nf_put_att_real(ncid, varid, name, xtype, nlen, rvals)
integer function nf_get_att_real(ncid, varid, name, rvals)
integer function nf_get_att_double(ncid, varid, name, dvals)
integer function nf_get_att_int(ncid, varid, name, ivals)
integer function nf_get_att_text(ncid, varid, name, text)
integer function nf_get_att_int1(ncid, varid, name, i1vals)
function nf_put_att_int2(ncid, varid, name, xtype, nlen, i2vals)
integer function nf_get_att_text_a(ncid, varid, name, text)
module procedure interfaces for utility routines
integer function nf_get_att_int2(ncid, varid, name, i2vals)
integer(c_int), parameter nc_ebadtype
integer function nf_put_att_text_a(ncid, varid, name, nlen, text)
function nf_put_att_int(ncid, varid, name, xtype, nlen, ivals)
function nf_put_att_int1(ncid, varid, name, xtype, nlen, i1vals)
integer function nf_put_att_text(ncid, varid, name, nlen, text)