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)
54 If (cstatus == nc_noerr)
Then 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
90 If (cstatus == nc_noerr)
Then 105 Integer,
Intent(IN) :: ncid
106 Integer,
Intent(OUT) :: nvars
110 Integer(C_INT) :: cncid, cnvars, cstatus
116 If (cstatus == nc_noerr)
Then 131 Integer,
Intent(IN) :: ncid
132 Integer,
Intent(OUT) :: ngatts
136 Integer(C_INT) :: cncid, cngatts, cstatus
142 If (cstatus == nc_noerr)
Then 157 Integer,
Intent(IN) :: ncid
158 Integer,
Intent(OUT) :: unlimdimid
162 Integer(C_INT) :: cncid, cunlimdimid, cstatus
170 If (cstatus == nc_noerr)
Then 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
200 If (cstatus == nc_noerr)
Then 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 function nf_inq_format(ncid, format_type)
integer function nf_inq_ndims(ncid, ndims)
integer function nf_inq_natts(ncid, ngatts)