gtvarslicendims.f90

Go to the documentation of this file.

!> @file gtvarslicendims.f90
!>
!> @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 number of slice dimensions (not implemented)
!> @enden
!>
!> @ja
!> @brief スライス次元数の取得 (未実装)
!> @endja
!>
 
!>
!> @en
!> @brief Get number of slice dimensions
!>
!> @note This subroutine is not implemented yet.
!> @param[inout] var   Variable handle
!> @param[in]    ndims Number of dimensions
!> @param[in]    shape Shape array (optional)
!> @param[out]   err   Error flag (optional)
!> @enden
!>
!> @ja
!> @brief スライス次元数の取得
!>
!> @note このサブルーチンは未実装です。
!> @param[inout] var   変数ハンドル
!> @param[in]    ndims 次元数
!> @param[in]    shape 形状配列 (省略可能)
!> @param[out]   err   エラーフラグ (省略可能)
!> @endja
!>
subroutine gtvarslicendims(var, ndims, shape, err)
    use gtdata_types, only: gt_variable
    use gtdata_generic, only: inquire, get_slice
    implicit none
    type(gt_variable), intent(inout):: var
    integer, intent(in):: ndims
    integer, intent(in), optional:: shape(:)
    logical, intent(out), optional:: err
    integer:: nd
    integer, allocatable:: vcount(:)
    if (ndims < 0) then
      if (present(shape)) continue
    end if
    call inquire(var, alldims=nd)
    allocate(vcount(nd))
    call get_slice(var, count=vcount(:))
    if (present(err)) err = .true.
    stop 'gtvarslicendims: not implemented'
end subroutine