NetCDF-Fortran  4.4.2
netcdf_dims.f90
1  !
2  ! Dimension routines:
3  !
4  ! -----------
5  function nf90_def_dim(ncid, name, len, dimid)
6  integer, intent( in) :: ncid
7  character (len = *), intent( in) :: name
8  integer, intent( in) :: len
9  integer, intent(out) :: dimid
10  integer :: nf90_def_dim
11 
12  nf90_def_dim = nf_def_dim(ncid, name, len, dimid)
13  end function nf90_def_dim
14  ! -----------
15  function nf90_inq_dimid(ncid, name, dimid)
16  integer, intent( in) :: ncid
17  character (len = *), intent( in) :: name
18  integer, intent(out) :: dimid
19  integer :: nf90_inq_dimid
20 
21  nf90_inq_dimid = nf_inq_dimid(ncid, name, dimid)
22  end function nf90_inq_dimid
23  ! -----------
24  function nf90_rename_dim(ncid, dimid, name)
25  integer, intent( in) :: ncid
26  character (len = *), intent( in) :: name
27  integer, intent( in) :: dimid
28  integer :: nf90_rename_dim
29 
30  nf90_rename_dim = nf_rename_dim(ncid, dimid, name)
31  end function nf90_rename_dim
32  ! -----------
33  function nf90_inquire_dimension(ncid, dimid, name, len)
34  integer, intent( in) :: ncid, dimid
35  character (len = *), optional, intent(out) :: name
36  integer, optional, intent(out) :: len
37  integer :: nf90_inquire_dimension
38 
39  character (len = nf90_max_name) :: dimname
40  integer :: length
41 
42  nf90_inquire_dimension = nf_inq_dim(ncid, dimid, dimname, length)
43  if(present(name)) name = trim(dimname)
44  if(present(len )) len = length
45  end function nf90_inquire_dimension
46  ! -----------

Return to the Main Unidata NetCDF page.
Generated on Wed Aug 19 2015 17:51:09 for NetCDF-Fortran. NetCDF is a Unidata library.