gtvargetsliceall.f90

Go to the documentation of this file.

!> @file gtvargetsliceall.f90
!>
!> @author Eizi TOYODA, Yasuhiro MORIKAWA
!> @copyright Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved. <br/>
!>            License is BSD-2-Clause. See [COPYRIGHT](@ref COPYRIGHT) in detail
!>
!> @en
!> @brief Get variable I/O range restriction information (bulk get for all dimensions)
!>
!> This subroutine is provided as gtdata_generic#Get_Slice
!> through gtdata_generic.
!> @enden
!>
!> @ja
!> @brief 変数入出力範囲限定情報を取得 (全ての次元の情報を一括取得)
!>
!> このサブルーチンは gtdata_generic から gtdata_generic#Get_Slice
!> として提供されます。
!> @endja
!>
 
!>
!> @en
!> @brief 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.
!> @param[in]  var    Variable handle
!> @param[out] start  Start array for each dimension (optional)
!> @param[out] count  Count array for each dimension (optional)
!> @param[out] stride Stride array for each dimension (optional)
!> @enden
!>
!> @ja
!> @brief 全次元の入出力範囲情報を取得
!>
!> 変数 var に関して、Slice によって設定された入出力範囲の情報を取得します。
!> 全次元の入出力範囲について一括取得するため、
!> あらかじめ Inquire(var, alldims) して次元の数を確保しなければなりません。
!>
!> start, count, stride に関しては Slice を参照してください。
!>
!> Get_Slice は 2 つのサブルーチンの総称名であり、
!> 他にもある1つの次元に関して情報を取得する方法もあります。
!> @param[in]  var    変数ハンドル
!> @param[out] start  各次元の開始位置配列 (省略可能)
!> @param[out] count  各次元のカウント配列 (省略可能)
!> @param[out] stride 各次元のストライド配列 (省略可能)
!> @endja
!>
subroutine gtvargetsliceall(var, start, count, stride)
  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
end subroutine gtvargetsliceall