16 integer,
intent( in) :: ncerr
26 integer,
intent( in) :: ncid
27 integer,
intent(out) :: pe
34 integer,
intent( in) :: ncid, pe
41 character (len = *),
intent( in) :: path
42 integer,
intent( in) :: cmode, initalsz, basepe, chunksizehint
43 integer,
intent(out) :: ncid
50 character (len = *),
intent( in) :: path
51 integer,
intent( in) :: mode, basepe, chunksizeint
52 integer,
intent(out) :: ncid
59 integer,
intent( in) :: ncid, fillmode
60 integer,
intent(out) :: old_mode
67 integer,
intent( in) :: ncid
73 function nf90_enddef(ncid, h_minfree, v_align, v_minfree, r_align)
74 integer,
intent( in) :: ncid
75 integer,
optional,
intent( in) :: h_minfree, v_align, v_minfree, r_align
78 integer :: hminfree, valign, vminfree, ralign
80 if(.not. any( (/ present(h_minfree), present(v_align), &
81 present(v_minfree), present(r_align) /) ) )
then
85 hminfree = 0; vminfree = 0
86 valign = 4; ralign = 4
87 if(present(h_minfree)) hminfree = h_minfree
88 if(present(v_align )) valign = v_align
89 if(present(v_minfree)) vminfree = v_minfree
90 if(present(r_align )) ralign = r_align
96 integer,
intent( in) :: ncid
103 integer,
intent( in) :: ncid
110 integer,
intent( in) :: ncid
117 character(len = *),
intent( in) :: name
126 function nf90_inquire(ncid, nDimensions, nVariables, nAttributes, unlimitedDimId, formatNum)
127 integer,
intent( in) :: ncid
128 integer,
optional,
intent(out) :: ndimensions, nvariables, nattributes, unlimiteddimid, formatnum
131 integer :: ndims, nvars, ngatts, unlimdimid, frmt
134 if(present(ndimensions)) ndimensions = ndims
135 if(present(nvariables)) nvariables = nvars
136 if(present(nattributes)) nattributes = ngatts
137 if(present(unlimiteddimid)) unlimiteddimid = unlimdimid
138 if(present(formatnum))
then
146 integer,
intent(in) :: ncid
147 integer,
intent(inout) :: pathlen
148 character(len = *),
intent(inout) :: path
integer function nf_inq_base_pe(ncid, pe)
integer function nf90_set_fill(ncid, fillmode, old_mode)
integer function nf90_delete(name)
integer function nf90_create_mp(path, cmode, initalsz, basepe, chunksizehint, ncid)
integer function nf90_inq_base_pe(ncid, pe)
integer function nf90_abort(ncid)
integer function nf_abort(ncid)
integer function nf90_inquire(ncid, nDimensions, nVariables, nAttributes, unlimitedDimId, formatNum)
integer function nf90_inq_path(ncid, pathlen, path)
integer function nf90_enddef(ncid, h_minfree, v_align, v_minfree, r_align)
function nf__enddef(ncid, h_minfree, v_align, v_minfree, r_align)
integer function nf_inq(ncid, ndims, nvars, ngatts, unlimdimid)
integer function nf_close(ncid)
integer function nf_sync(ncid)
integer function nf90_set_base_pe(ncid, pe)
integer function nf_inq_path(ncid, pathlen, path)
character(len=80) function nf90_inq_libvers()
integer function nf_inq_format(ncid, format_type)
integer function nf_set_fill(ncid, fillmode, old_mode)
character(len=80) function nf_strerror(ncerr)
character(len=80) function nf_inq_libvers()
integer function nf_redef(ncid)
integer function nf__open_mp(path, mode, basepe, chunksizehintp, ncid)
integer function nf90_redef(ncid)
character(len=80) function nf90_strerror(ncerr)
integer function nf_enddef(ncid)
integer function nf_set_base_pe(ncid, pe)
integer function nf90_sync(ncid)
function nf__create_mp(path, cmode, initialsz, basepe, chunksizehintp, ncid)
integer function nf90_open_mp(path, mode, basepe, chunksizeint, ncid)
integer function nf90_close(ncid)
integer function nf_delete(path)