gtvarslicendims.f90 File Reference

スライス次元数の取得 (未実装) More...

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarslicendims (var, ndims, shape, err)

Detailed Description

スライス次元数の取得 (未実装)

Copyright

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

Definition in file gtvarslicendims.f90.

Function/Subroutine Documentation

gtvarslicendims()

subroutine gtvarslicendims	(	type(gt_variable), intent(inout)	var,
		integer, intent(in)	ndims,
		integer, dimension(:), intent(in), optional	shape,
		logical, intent(out), optional	err
	)

スライス次元数の取得

Note

このサブルーチンは未実装です。

Parameters

[in,out]	var	変数ハンドル
[in]	ndims	次元数
[in]	shape	形状配列 (省略可能)
[out]	err	エラーフラグ (省略可能)

Definition at line 36 of file gtvarslicendims.f90.

    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'