gtvargetnum.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvargetdouble (var, value, nvalue, err)
subroutine	gtvargetreal (var, value, nvalue, err)
subroutine	gtvargetint (var, value, nvalue, err)

Function/Subroutine Documentation

gtvargetdouble()

subroutine gtvargetdouble	(	type(gt_variable), intent(in)	var,
		real(dp), dimension(*), intent(out)	value,
		integer, intent(in)	nvalue,
		logical, intent(out), optional	err
	)

Definition at line 42 of file gtvargetnum.f90.

References dc_error::dc_enegative, dc_error::dc_noerr, dc_types::dp, dc_error::gt_efake, gtdata_internal_map::gtvar_dump(), gtdata_internal_map::map_to_internal_specs(), dc_error::storeerror(), dc_types::string, and gtdata_internal_map::var_class().

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: &
    & var_class, &
    & vtb_class_netcdf, &
    & map_to_internal_specs, &
    & gtvar_dump
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_types,   only: string, dp
  use dc_error,   only: storeerror, dc_noerr, dc_enegative, gt_efake
  implicit none
  type(gt_variable), intent(in)            :: var
  real(DP),          intent(out)           :: value(*)
  integer,           intent(in)            :: nvalue
  logical,           intent(out), optional :: err
  integer                                  :: class, cid, stat
  integer                  , pointer       :: specs(:, :)
  character(STRING):: cause_c
  character(len = *), parameter:: subname = 'GTVarGetDouble'
  continue
  call var_class(var, class, cid)
  stat = dc_noerr
  cause_c = ''
  if (nvalue < 1) then
    stat = dc_enegative
    cause_c = 'nvalue'
    goto 999
  end if
  call gtvar_dump(var)
  call map_to_internal_specs(var, specs)
  if (class == vtb_class_netcdf) then
    call get(gd_nc_variable(cid), start=specs(:, 1), count=specs(:, 2), &
      & stride=specs(:, 3), imap=specs(:, 4), siz=nvalue, value=value, &
      & iostat=stat)
  else
    stat = gt_efake
  endif
  if (associated(specs)) deallocate(specs)
999 continue
  call storeerror(stat, subname, cause_c = cause_c, err = err)

Here is the call graph for this function:

gtvargetint()

subroutine gtvargetint	(	type(gt_variable), intent(in)	var,
		integer, dimension(*), intent(out)	value,
		integer, intent(in)	nvalue,
		logical, intent(out), optional	err
	)

Definition at line 128 of file gtvargetnum.f90.

References dc_error::dc_enegative, dc_error::dc_noerr, dc_error::gt_efake, gtdata_internal_map::gtvar_dump(), gtdata_internal_map::map_to_internal_specs(), dc_error::storeerror(), dc_types::string, and gtdata_internal_map::var_class().

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: &
    & var_class, &
    & vtb_class_netcdf, &
    & map_to_internal_specs, &
    & gtvar_dump
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_types,   only: string
  use dc_error,   only: storeerror, dc_noerr, dc_enegative, gt_efake
  implicit none
  type(gt_variable), intent(in)            :: var
  integer,           intent(out)           :: value(*)
  integer,           intent(in)            :: nvalue
  logical,           intent(out), optional :: err
  integer                                  :: class, cid, stat
  integer                  , pointer       :: specs(:, :)
  character(STRING):: cause_c
  character(len = *), parameter:: subname = 'GTVarGetDouble'
  continue
  call var_class(var, class, cid)
  stat = dc_noerr
  cause_c = ''
  if (nvalue < 1) then
    stat = dc_enegative
    cause_c = 'nvalue'
    goto 999
  end if
  call gtvar_dump(var)
  call map_to_internal_specs(var, specs)
  if (class == vtb_class_netcdf) then
    call get(gd_nc_variable(cid), start=specs(:, 1), count=specs(:, 2), &
      & stride=specs(:, 3), imap=specs(:, 4), siz=nvalue, value=value, &
      & iostat=stat)
  else
    stat = gt_efake
  endif
  if (associated(specs)) deallocate(specs)
999 continue
  call storeerror(stat, subname, cause_c = cause_c, err = err)

Here is the call graph for this function:

gtvargetreal()

subroutine gtvargetreal	(	type(gt_variable), intent(in)	var,
		real(sp), dimension(*), intent(out)	value,
		integer, intent(in)	nvalue,
		logical, intent(out), optional	err
	)

Definition at line 85 of file gtvargetnum.f90.

References dc_error::dc_enegative, dc_error::dc_noerr, dc_error::gt_efake, gtdata_internal_map::gtvar_dump(), gtdata_internal_map::map_to_internal_specs(), dc_types::sp, dc_error::storeerror(), dc_types::string, and gtdata_internal_map::var_class().

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: &
    & var_class, &
    & vtb_class_netcdf, &
    & map_to_internal_specs, &
    & gtvar_dump
  use gtdata_netcdf_generic, only: get
  use gtdata_netcdf_types, only: gd_nc_variable
  use dc_types,   only: string ,sp
  use dc_error,   only: storeerror, dc_noerr, dc_enegative, gt_efake
  implicit none
  type(gt_variable), intent(in)            :: var
  real(SP),          intent(out)           :: value(*)
  integer,           intent(in)            :: nvalue
  logical,           intent(out), optional :: err
  integer                                  :: class, cid, stat
  integer                  , pointer       :: specs(:, :)
  character(STRING):: cause_c
  character(len = *), parameter:: subname = 'GTVarGetDouble'
  continue
  call var_class(var, class, cid)
  stat = dc_noerr
  cause_c = ''
  if (nvalue < 1) then
    stat = dc_enegative
    cause_c = 'nvalue'
    goto 999
  end if
  call gtvar_dump(var)
  call map_to_internal_specs(var, specs)
  if (class == vtb_class_netcdf) then
    call get(gd_nc_variable(cid), start=specs(:, 1), count=specs(:, 2), &
      & stride=specs(:, 3), imap=specs(:, 4), siz=nvalue, value=value, &
      & iostat=stat)
  else
    stat = gt_efake
  endif
  if (associated(specs)) deallocate(specs)
999 continue
  call storeerror(stat, subname, cause_c = cause_c, err = err)

Here is the call graph for this function: