33 Function nf_inq(ncid, ndims, nvars, ngatts, unlimdimid) RESULT(status)
39 USE netcdf_nc_interfaces
43 Integer,
Intent(IN) :: ncid
44 Integer,
Intent(OUT) :: ndims, nvars, ngatts, unlimdimid
48 Integer(KIND=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
71 Function nf_inq_ndims(ncid, ndims) RESULT(status)
75 USE netcdf_nc_interfaces
79 Integer,
Intent(IN) :: ncid
80 Integer,
Intent(OUT) :: ndims
84 Integer(KIND=C_INT) :: cncid, cndims, cstatus
90 If (cstatus == nc_noerr)
Then
95 End Function nf_inq_ndims
97 Function nf_inq_nvars(ncid, nvars) RESULT(status)
101 USE netcdf_nc_interfaces
105 Integer,
Intent(IN) :: ncid
106 Integer,
Intent(OUT) :: nvars
110 Integer(KIND=C_INT) :: cncid, cnvars, cstatus
116 If (cstatus == nc_noerr)
Then
121 End Function nf_inq_nvars
123 Function nf_inq_natts(ncid, ngatts) RESULT(status)
127 USE netcdf_nc_interfaces
131 Integer,
Intent(IN) :: ncid
132 Integer,
Intent(OUT) :: ngatts
136 Integer(KIND=C_INT) :: cncid, cngatts, cstatus
142 If (cstatus == nc_noerr)
Then
147 End Function nf_inq_natts
149 Function nf_inq_unlimdim(ncid, unlimdimid) RESULT(status)
153 USE netcdf_nc_interfaces
157 Integer,
Intent(IN) :: ncid
158 Integer,
Intent(OUT) :: unlimdimid
162 Integer(KIND=C_INT) :: cncid, cunlimdimid, cstatus
170 If (cstatus == nc_noerr)
Then
171 If (cunlimdimid == -1)
Then
174 unlimdimid = cunlimdimid + 1
179 End Function nf_inq_unlimdim
181 Function nf_inq_format(ncid, format_type) RESULT(status)
185 USE netcdf_nc_interfaces
189 Integer,
Intent(IN) :: ncid
190 Integer,
Intent(OUT) :: format_type
194 Integer(KIND=C_INT) :: cncid, cformatp, cstatus
200 If (cstatus == nc_noerr)
Then
203 format_type = cformatp
207 End Function nf_inq_format