31 Function nf_def_dim(ncid, name, dlen, dimid) RESULT (status)
36 USE netcdf_nc_interfaces
40 Integer,
Intent(IN) :: ncid, dlen
41 Integer,
Intent(OUT) :: dimid
42 Character(LEN=*),
Intent(IN) :: name
46 Integer(KIND=C_INT) :: cncid, cdimid, cstatus
47 Integer(KIND=C_SIZE_T) :: cdlen
48 Character(LEN=(LEN(name)+1)) :: cname
61 cstatus =
nc_def_dim(cncid, cname(1:ie+1), cdlen, cdimid)
63 If (cstatus == nc_ebaddim)
Then 70 End Function nf_def_dim
72 Function nf_inq_dim(ncid, dimid, name, dlen) RESULT (status)
76 USE netcdf_nc_interfaces
80 Integer,
Intent(IN) :: ncid, dimid
81 Integer,
Intent(OUT) :: dlen
82 Character(LEN=*),
Intent(OUT) :: name
86 Integer(KIND=C_INT) :: cncid, cdimid, cstatus
87 Integer(KIND=C_SIZE_T) :: cdlen
89 Character(LEN=NC_MAX_NAME) :: tmpname
93 tmpname = repeat(
" ", len(tmpname))
94 name = repeat(
" ", len(name))
99 cstatus =
nc_inq_dim(cncid, cdimid, tmpname, cdlen)
101 If (cstatus == nc_noerr)
Then 109 End Function nf_inq_dim
111 Function nf_inq_dimid(ncid, name, dimid) RESULT (status)
115 USE netcdf_nc_interfaces
119 Integer,
Intent(IN) :: ncid
120 Integer,
Intent(OUT) :: dimid
121 Character(LEN=*),
Intent(IN) :: name
125 Integer(KIND=C_INT) :: cncid, cdimid, cstatus
126 Character(LEN=(LEN(name)+1)) :: cname
141 If (cstatus == nc_ebaddim)
Then 148 End Function nf_inq_dimid
150 Function nf_inq_dimlen(ncid, dimid, dlen) RESULT (status)
154 USE netcdf_nc_interfaces
158 Integer,
Intent(IN) :: ncid, dimid
159 Integer,
Intent(OUT) :: dlen
163 Integer(KIND=C_INT) :: cncid, cdimid, cstatus
164 Integer(KIND=C_SIZE_T) :: cdlen
172 If (cstatus == nc_noerr)
Then 177 End Function nf_inq_dimlen
179 Function nf_inq_dimname (ncid, dimid, name) RESULT (status)
183 USE netcdf_nc_interfaces
187 Integer,
Intent(IN) :: ncid, dimid
188 Character(LEN=*),
Intent(OUT) :: name
192 Integer(KIND=C_INT) :: cncid, cdimid, cstatus
194 Character(LEN=NC_MAX_NAME) :: tmpname
198 tmpname = repeat(
" ", len(tmpname))
199 name = repeat(
" ", len(name))
206 If (cstatus == nc_noerr)
Then 213 End Function nf_inq_dimname
215 Function nf_rename_dim(ncid, dimid, name) RESULT (status)
219 USE netcdf_nc_interfaces
223 Integer,
Intent(IN) :: ncid, dimid
224 Character(LEN=*),
Intent(IN) :: name
228 Integer(KIND=C_INT) :: cncid, cdimid, cstatus
229 Character(LEN=(LEN(name)+1)) :: cname
243 End Function nf_rename_dim
module procedure interfaces for utility routines