35 Function nf_def_var(ncid, name, xtype, nvdims, vdims, varid) RESULT (status)
44 Integer,
Intent(IN) :: ncid, xtype, nvdims
45 Integer,
Intent(IN) :: vdims(*)
46 Integer,
Intent(OUT) :: varid
47 Character(LEN=*),
Intent(IN) :: name
51 Integer(C_INT) :: cncid, cnvdims, cvarid, cstatus, cxtype
52 Character(LEN=(LEN(name)+1)) :: cname
55 Integer(C_INT),
ALLOCATABLE :: cvdims(:)
69 ALLOCATE(cvdims(nvdims))
70 cvdims(1:nvdims) = vdims(nvdims:1:-1)-1
76 cstatus =
nc_def_var(cncid, cname(1:ie), cxtype, cnvdims, cvdims, &
79 If (cstatus == nc_noerr)
Then 86 If (
ALLOCATED(cvdims))
DEALLOCATE(cvdims)
98 Integer,
Intent(IN) :: ncid, varid
99 Integer,
Intent(OUT) :: vndims
103 Integer(C_INT) :: cncid, cvarid, cvndims, cstatus
110 If (cstatus == nc_noerr)
Then 117 Function nf_inq_var(ncid, varid, name, xtype, ndims, dimids, natts) &
127 Integer,
Intent(IN) :: ncid, varid
128 Character(LEN=*),
Intent(OUT) :: name
129 Integer,
Intent(OUT) :: dimids(*)
130 Integer,
Intent(OUT) :: ndims, xtype, natts
134 Integer(C_INT) :: cncid, cstatus, cndims, cvarid, &
136 Integer(C_INT) :: cxtype
137 Character(LEN=NC_MAX_NAME+1) :: tmpname
140 Integer(C_INT),
ALLOCATABLE :: cdimids(:)
146 tmpname = repeat(
" ", len(tmpname))
147 name = repeat(
" ", nlen)
159 ALLOCATE(cdimids(cndims))
166 cstatus =
nc_inq_var(cncid, cvarid, tmpname, cxtype, cndims, cdimids, cnatts)
168 If (cstatus == nc_noerr)
Then 181 dimids(1:ndims) = cdimids(ndims:1:-1)+1
187 If (
ALLOCATED(cdimids))
DEALLOCATE(cdimids)
199 Integer,
Intent(IN) :: ncid, varid
200 Integer,
Intent(OUT) :: dimids(*)
204 Integer(C_INT) :: cncid, cstatus, cstat2, cndims, cvarid
207 Integer(C_INT),
ALLOCATABLE :: cvdimids(:)
218 ALLOCATE(cvdimids(cndims))
220 ALLOCATE(cvdimids(1))
230 If (cstatus == nc_noerr)
Then 233 dimids(1:ndims) = cvdimids(ndims:1:-1)+1
241 If (
ALLOCATED(cvdimids))
DEALLOCATE(cvdimids)
245 Function nf_inq_varid(ncid, name, varid) RESULT (status)
253 Integer,
Intent(IN) :: ncid
254 Character(LEN=*),
Intent(IN) :: name
255 Integer,
Intent(OUT) :: varid
259 Integer(C_INT) :: cncid, cvarid, cstatus
260 Character(LEN=(LEN(name)+1)) :: cname
271 If (cstatus == nc_noerr)
Then 286 Integer,
Intent(IN) :: ncid, varid
287 Character(LEN=*),
Intent(OUT) :: name
291 Integer(C_INT) :: cncid, cvarid, cstatus
292 Character(LEN=NC_MAX_NAME+1) :: tmpname
299 tmpname = repeat(
" ", len(tmpname))
300 name = repeat(
" ", nlen)
308 If (cstatus == nc_noerr)
Then 323 Integer,
Intent(IN) :: ncid, varid
324 Integer,
Intent(OUT) :: xtype
328 Integer(C_INT) :: cncid, cvarid, cstatus
329 Integer(C_INT) :: cxtype
336 If (cstatus == nc_noerr)
Then 351 Integer,
Intent(IN) :: ncid, varid
352 Integer,
Intent(OUT) :: nvatts
356 Integer(C_INT) :: cncid, cvarid, cnvatts, cstatus
363 If (cstatus == nc_noerr)
Then 379 Integer,
Intent(IN) :: ncid, varid
380 Character(LEN=*),
Intent(IN) :: name
384 Integer(C_INT) :: cncid, cvarid, cstatus
385 Character(LEN=(LEN(name)+1)) :: cname
401 Function nf_copy_var(ncid_in, varid, ncid_out) RESULT(status)
409 Integer,
Intent(IN) :: ncid_in, varid, ncid_out
412 Integer(C_INT) :: cncidin, cvarid, cncidout, cstatus
integer function nf_inq_var(ncid, varid, name, xtype, ndims, dimids, natts)
integer function nf_inq_varname(ncid, varid, name)
integer function nf_inq_varndims(ncid, varid, vndims)
integer function nf_copy_var(ncid_in, varid, ncid_out)
integer function nf_rename_var(ncid, varid, name)
integer function nf_inq_varnatts(ncid, varid, nvatts)
module procedure interfaces for utility routines
integer function nf_def_var(ncid, name, xtype, nvdims, vdims, varid)
integer function nf_inq_vartype(ncid, varid, xtype)
integer function nf_inq_vardimid(ncid, varid, dimids)
integer function nf_inq_varid(ncid, name, varid)