34 Function nf_def_dim(ncid, name, dlen, dimid) RESULT (status)
43 Integer,
Intent(IN) :: ncid, dlen
44 Integer,
Intent(OUT) :: dimid
45 Character(LEN=*),
Intent(IN) :: name
49 Integer(C_INT) :: cncid, cdimid, cstatus
50 Integer(C_SIZE_T) :: cdlen
51 Character(LEN=(LEN(name)+1)) :: cname
64 cstatus =
nc_def_dim(cncid, cname(1:ie), cdlen, cdimid)
66 If (cstatus == nc_ebaddim)
Then 75 Function nf_inq_dim(ncid, dimid, name, dlen) RESULT (status)
83 Integer,
Intent(IN) :: ncid, dimid
84 Integer,
Intent(OUT) :: dlen
85 Character(LEN=*),
Intent(OUT) :: name
89 Integer(C_INT) :: cncid, cdimid, cstatus
90 Integer(C_SIZE_T) :: cdlen
92 Character(LEN=NC_MAX_NAME) :: tmpname
96 tmpname = repeat(
" ", len(tmpname))
97 name = repeat(
" ", len(name))
102 cstatus =
nc_inq_dim(cncid, cdimid, tmpname, cdlen)
104 If (cstatus == nc_noerr)
Then 114 Function nf_inq_dimid(ncid, name, dimid) RESULT (status)
122 Integer,
Intent(IN) :: ncid
123 Integer,
Intent(OUT) :: dimid
124 Character(LEN=*),
Intent(IN) :: name
128 Integer(C_INT) :: cncid, cdimid, cstatus
129 Character(LEN=(LEN(name)+1)) :: cname
144 If (cstatus == nc_ebaddim)
Then 161 Integer,
Intent(IN) :: ncid, dimid
162 Integer,
Intent(OUT) :: dlen
166 Integer(C_INT) :: cncid, cdimid, cstatus
167 Integer(C_SIZE_T) :: cdlen
175 If (cstatus == nc_noerr)
Then 190 Integer,
Intent(IN) :: ncid, dimid
191 Character(LEN=*),
Intent(OUT) :: name
195 Integer(C_INT) :: cncid, cdimid, cstatus
197 Character(LEN=NC_MAX_NAME) :: tmpname
201 tmpname = repeat(
" ", len(tmpname))
202 name = repeat(
" ", len(name))
209 If (cstatus == nc_noerr)
Then 226 Integer,
Intent(IN) :: ncid, dimid
227 Character(LEN=*),
Intent(IN) :: name
231 Integer(C_INT) :: cncid, cdimid, cstatus
232 Character(LEN=(LEN(name)+1)) :: cname
integer function nf_inq_dimid(ncid, name, dimid)
integer function nf_inq_dimlen(ncid, dimid, dlen)
module procedure interfaces for utility routines
integer function nf_inq_dimname(ncid, dimid, name)
integer function nf_rename_dim(ncid, dimid, name)
integer function nf_def_dim(ncid, name, dlen, dimid)
integer function nf_inq_dim(ncid, dimid, name, dlen)