gtvargetsliceall.f90 File Reference

Get variable I/O range restriction information (bulk get for all dimensions). More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvargetsliceall (var, start, count, stride)

Detailed Description

Get variable I/O range restriction information (bulk get for all dimensions).

Author

Eizi TOYODA, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

This subroutine is provided as gtdata_generic#Get_Slice through gtdata_generic.

Definition in file gtvargetsliceall.f90.

Function/Subroutine Documentation

gtvargetsliceall()

subroutine gtvargetsliceall	(	type(gt_variable), intent(in)	var,
		integer, dimension(:), intent(out), optional	start,
		integer, dimension(:), intent(out), optional	count,
		integer, dimension(:), intent(out), optional	stride )

Get I/O range information for all dimensions

Gets I/O range information set by Slice for variable var. To bulk get I/O range for all dimensions, must first call Inquire(var, alldims) to allocate the number of dimensions.

See Slice for start, count, stride.

Get_Slice is a generic name for 2 subroutines; there is also a method to get information for a single dimension.

Parameters

[in]	var	Variable handle
[out]	start	Start array for each dimension (optional)
[out]	count	Count array for each dimension (optional)
[out]	stride	Stride array for each dimension (optional)

Definition at line 57 of file gtvargetsliceall.f90.

  use gtdata_types, only: gt_variable
  use gtdata_generic, only: gtvargetslice
  implicit none
  type(GT_VARIABLE), intent(in):: var
  integer, intent(out), optional:: start(:), count(:), stride(:)
  integer:: nd, i
  logical:: all
  nd = huge(1)
  all = present(start) .and. present(count) .and. present(stride)
  if (present(start)) nd = min(nd, size(start))
  if (present(count)) nd = min(nd, size(count))
  if (present(stride)) nd = min(nd, size(stride))
  do, i = 1, nd
    if (all) then
      call gtvargetslice(var, i, start(i), count(i), stride(i))
      cycle
    endif
    if (present(start)) call gtvargetslice(var, i, start=start(i))
    if (present(count)) call gtvargetslice(var, i, count=count(i))
    if (present(stride)) call gtvargetslice(var, i, stride=stride(i))
  enddo

References gtvargetslice().

Here is the call graph for this function: