変数の属性取得 More...

Functions/Subroutines
subroutine	gtvarattrrewind (var)

subroutine	gtvarattrnext (var, name, end)

Detailed Description

変数の属性取得

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

Definition in file gtvarattrsearch.f90.

Function/Subroutine Documentation

◆ gtvarattrnext()

subroutine gtvarattrnext	(	type(gt_variable), intent(inout), target	var,
		character(len = *), intent(out)	name,
		logical, intent(out), optional	end
	)

変数からの属性リスト取得 (次を取得)

Attr_Rewind を参照してください。

Parameters

[in,out]	var	変数ハンドル
[out]	name	属性名
[out]	end	すべての属性を列挙し終えたとき .true. (省略可能)

Definition at line 97 of file gtvarattrsearch.f90.

  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf
  use gtdata_netcdf_generic, only: attr_next
  use gtdata_netcdf_types, only: gd_nc_variable
  implicit none
  type(GT_VARIABLE), intent(inout), target:: var
  character(len = *), intent(out):: name
  logical, intent(out), optional:: end
  integer:: class, cid
continue
  call var_class(var, class, cid)
  select case(class)
  case(vtb_class_netcdf)
    call attr_next(gd_nc_variable(cid), name, end)
  end select

References gtdata_internal_map::var_class().

Here is the call graph for this function:

◆ gtvarattrrewind()

subroutine gtvarattrrewind ( type(gt_variable), intent(inout), target var )

変数からの属性リスト取得 (初期化用)

var から属性名のリストを取得するために利用するサブルーチンです。このサブルーチンと Attr_Next によって属性リスト一覧を取得できます。

ある変数 var について全ての属性を列挙するためには、まず Attr_Rewind を呼んだ後、Attr_Next を呼びます。最初の呼び出しで最初の属性が、次の呼び出しで次の属性の名前が得られます。最後の属性のあとでは end == .true. となります。