mirror of
https://github.com/Unidata/netcdf-c.git
synced 2025-01-24 16:04:40 +08:00
47 lines
1.7 KiB
Fortran
47 lines
1.7 KiB
Fortran
!
|
|
! Dimension routines:
|
|
!
|
|
! -----------
|
|
function nf90_def_dim(ncid, name, len, dimid)
|
|
integer, intent( in) :: ncid
|
|
character (len = *), intent( in) :: name
|
|
integer, intent( in) :: len
|
|
integer, intent(out) :: dimid
|
|
integer :: nf90_def_dim
|
|
|
|
nf90_def_dim = nf_def_dim(ncid, name, len, dimid)
|
|
end function nf90_def_dim
|
|
! -----------
|
|
function nf90_inq_dimid(ncid, name, dimid)
|
|
integer, intent( in) :: ncid
|
|
character (len = *), intent( in) :: name
|
|
integer, intent(out) :: dimid
|
|
integer :: nf90_inq_dimid
|
|
|
|
nf90_inq_dimid = nf_inq_dimid(ncid, name, dimid)
|
|
end function nf90_inq_dimid
|
|
! -----------
|
|
function nf90_rename_dim(ncid, dimid, name)
|
|
integer, intent( in) :: ncid
|
|
character (len = *), intent( in) :: name
|
|
integer, intent( in) :: dimid
|
|
integer :: nf90_rename_dim
|
|
|
|
nf90_rename_dim = nf_rename_dim(ncid, dimid, name)
|
|
end function nf90_rename_dim
|
|
! -----------
|
|
function nf90_inquire_dimension(ncid, dimid, name, len)
|
|
integer, intent( in) :: ncid, dimid
|
|
character (len = *), optional, intent(out) :: name
|
|
integer, optional, intent(out) :: len
|
|
integer :: nf90_inquire_dimension
|
|
|
|
character (len = nf90_max_name) :: dimName
|
|
integer :: length
|
|
|
|
nf90_inquire_dimension = nf_inq_dim(ncid, dimid, dimName, length)
|
|
if(present(name)) name = trim(dimName)
|
|
if(present(len )) len = length
|
|
end function nf90_inquire_dimension
|
|
! -----------
|