gtvarattrsearch.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarattrrewind (var)
subroutine	gtvarattrnext (var, name, end)

Function/Subroutine Documentation

gtvarattrnext()

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

Definition at line 62 of file gtvarattrsearch.f90.

References gtdata_internal_map::var_class().

  !
  !== 変数からの属性リスト取得
  !
  ! Attr_Rewind を参照してください。
  !
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf, vtb_class_memory
  use gtdata_netcdf_generic, only: attr_next
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_memory_generic, only: attr_next
  use gtdata_memory_types, only: gd_mem_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)
  case(vtb_class_memory)
    call attr_next(gd_mem_variable(cid), name, end)
  end select

Here is the call graph for this function:

gtvarattrrewind()

subroutine gtvarattrrewind

(

type(gt_variable), intent(inout), target

var

)

Definition at line 15 of file gtvarattrsearch.f90.

References gtdata_internal_map::var_class().

  !
  !== 変数からの属性リスト取得 (初期化用)
  !
  ! *var* から属性名のリストを取得するために利用するサブルーチンです。
  ! このサブルーチンと Attr_Next によって属性リスト一覧を取得できます。
  !
  ! ある変数 *var* について全ての属性を列挙するためには、まず
  ! Attr_Rewind を呼んだ後、Attr_Next を呼びます。最初の呼び出しで
  ! 最初の属性が、次の呼び出しで次の属性の名前が得られます。最後の
  ! 属性のあとでは end == .true. となります。
  !
  ! 以下のサンプルソースコードを参照ください。
  !
  !
  !      ! 属性一覧の取得
  !      use gtool5
  !      type(GT_VARIABLE):: var
  !      character(len = STRING):: attrname
  !      logical:: end
  !      
  !      call Attr_Rewind(var)
  !      do
  !          call Attr_Next(var, attrname, end)
  !          if (end) exit
  !          write(*,*) trim(attrname)
  !      enddo
  !
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf, vtb_class_memory
  use gtdata_netcdf_generic, only: attr_rewind
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_memory_generic, only: attr_rewind
  use gtdata_memory_types, only: gd_mem_variable
  implicit none
  type(gt_variable), intent(inout), target:: var
  integer:: class, cid
continue
  call var_class(var, class, cid)
  select case(class)
  case(vtb_class_netcdf)
    call attr_rewind(gd_nc_variable(cid))
  case(vtb_class_memory)
    call attr_rewind(gd_mem_variable(cid))
  end select

Here is the call graph for this function: