33 Function nf_inq(ncid, ndims, nvars, ngatts, unlimdimid)
RESULT(status)
43 Integer,
Intent(IN) :: ncid
44 Integer,
Intent(OUT) :: ndims, nvars, ngatts, unlimdimid
48 Integer(C_INT) :: cncid, cndims, cnvars, cngatts, cunlimdimid, cstatus
52 cstatus =
nc_inq(cncid, cndims, cnvars, cngatts, cunlimdimid)
61 If (cunlimdimid == - 1)
Then 64 unlimdimid = cunlimdimid + 1
79 Integer,
Intent(IN) :: ncid
80 Integer,
Intent(OUT) :: ndims
84 Integer(C_INT) :: cncid, cndims, cstatus
105 Integer,
Intent(IN) :: ncid
106 Integer,
Intent(OUT) :: nvars
110 Integer(C_INT) :: cncid, cnvars, cstatus
131 Integer,
Intent(IN) :: ncid
132 Integer,
Intent(OUT) :: ngatts
136 Integer(C_INT) :: cncid, cngatts, cstatus
157 Integer,
Intent(IN) :: ncid
158 Integer,
Intent(OUT) :: unlimdimid
162 Integer(C_INT) :: cncid, cunlimdimid, cstatus
171 If (cunlimdimid == -1)
Then 174 unlimdimid = cunlimdimid + 1
189 Integer,
Intent(IN) :: ncid
190 Integer,
Intent(OUT) :: format_type
194 Integer(C_INT) :: cncid, cformatp, cstatus
203 format_type = cformatp
integer function nf_inq_unlimdim(ncid, unlimdimid)
integer function nf_inq_nvars(ncid, nvars)
integer function nf_inq(ncid, ndims, nvars, ngatts, unlimdimid)
integer(c_int), parameter nc_noerr
integer function nf_inq_format(ncid, format_type)
integer function nf_inq_ndims(ncid, ndims)
integer function nf_inq_natts(ncid, ngatts)