gtdata_internal_vartable::dimrange Interface Reference

Private Member Functions

subroutine dimrange_direct (vid, dimlo, dimhi)
 

Detailed Description

Definition at line 57 of file gtdata_internal_vartable.f90.

Member Function/Subroutine Documentation

◆ dimrange_direct()

subroutine gtdata_internal_vartable::dimrange::dimrange_direct ( integer, intent(in)  vid,
integer, intent(out)  dimlo,
integer, intent(out)  dimhi 
)
private

Definition at line 188 of file gtdata_internal_vartable.f90.

189  use gtdata_netcdf_generic, only: gdncinquire => inquire
190  use dc_error, only: storeerror, nf90_einval, gt_efake
191  integer, intent(in):: vid
192  integer, intent(out):: dimlo, dimhi
193  integer:: class, cid
194  call vartablelookup(vid, class, cid)
195  select case(class)
196  case(vtb_class_memory)
197  call storeerror(gt_efake, 'gtdata::dimrange')
198  case(vtb_class_netcdf)
199  dimlo = 1
200  call gdncinquire(gd_nc_variable(cid), dimlen=dimhi)
201  case default
202  call storeerror(nf90_einval, 'gtdata::dimrange')
203  end select
integer, parameter, public gt_efake
Definition: dc_error.f90:523
subroutine, public storeerror(number, where, err, cause_c, cause_i)
Definition: dc_error.f90:830

The documentation for this interface was generated from the following file: