gtvarputattrchar.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	gtvarputattrlogical (var, name, value, err)
subroutine	gtvarputattrint (var, name, value, err)
subroutine	gtvarputattrreal (var, name, value, err)
subroutine	gtvarputattrdouble (var, name, value, err)
subroutine	gtvarputattrchar (var, name, value, xtype, err)

Function/Subroutine Documentation

gtvarputattrchar()

subroutine gtvarputattrchar	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		character(len = *), intent(in)	value,
		character(len = *), intent(in), optional	xtype,
		logical, intent(out), optional	err
	)

Definition at line 172 of file gtvarputattrchar.f90.

References dc_trace::beginsub(), dc_trace::endsub(), and gtdata_internal_map::var_class().

  !
  ! まずは上記の Put_Attr
  ! (または GTVarPutAttrChar)
  ! を参照してください。
  !
  ! *xtype* に型を指定することで、引数 *value* には文字型を与えても、
  ! 整数型、実数型 (単精度、倍精度) の値を付加することが可能です。
  !
  ! *xtype* には与える文字列として、以下のものが有効です。
  ! これら以外の場合は文字型の値が与えられます。
  !
  ! 整数型          :: "INTEGER", "integer", "int"
  ! 実数型 (単精度) :: "REAL", "real", "float"
  ! 実数型 (倍精度) :: "DOUBLEPRECISION", "DOUBLE", "double"
  !--
  ! gtdata/gtdata_netcdf/gdncputattrchar.f90#GDNcVarPutAttrChar 参照
  !++
  !
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf, vtb_class_memory
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_memory_generic, only: put_attr
  use gtdata_memory_types, only: gd_mem_variable
  use dc_trace, only: beginsub, endsub
  implicit none
  type(gt_variable), intent(inout):: var
  character(len = *), intent(in):: name
  character(len = *), intent(in):: value
  character(len = *), intent(in), optional:: xtype
  logical, intent(out), optional:: err
  integer:: class, cid
  character(*), parameter:: subnam = "gtvarputattrchar"
continue
  call beginsub(subnam, "%d:%c = %c", i=(/var%mapid/), c1=trim(name), c2=trim(value))
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call put_attr(gd_nc_variable(cid), name, value, xtype, err)
  else if (class == vtb_class_memory) then
    call put_attr(gd_mem_variable(cid), name, value)
    if (present(err)) err = .false.
  endif
  call endsub(subnam)

Here is the call graph for this function:

gtvarputattrdouble()

subroutine gtvarputattrdouble	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		real(dp), dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 142 of file gtvarputattrchar.f90.

References dc_types::dp, and gtdata_internal_map::var_class().

  !
  ! まずは上記の Put_Attr
  ! (または GTVarPutAttrChar および GTVarPutAttrReal)
  ! を参照してください。
  !
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf, vtb_class_memory
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_memory_generic, only: put_attr
  use gtdata_memory_types, only: gd_mem_variable
  use dc_string, only: tochar
  use dc_types, only: dp
  implicit none
  type(gt_variable), intent(inout):: var
  character(len = *), intent(in):: name
  real(DP), intent(in):: value(:)
  logical, intent(out), optional:: err
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call put_attr(gd_nc_variable(cid), name, value, err)
  else if (class == vtb_class_memory) then
    call put_attr(gd_mem_variable(cid), name, trim(tochar(value)))
    if (present(err)) err = .false.
  endif

Here is the call graph for this function:

gtvarputattrint()

subroutine gtvarputattrint	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		integer, dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 80 of file gtvarputattrchar.f90.

References gtdata_internal_map::var_class().

  !
  ! まずは上記の Put_Attr
  ! (または GTVarPutAttrChar および GTVarPutAttrReal)
  ! を参照してください。
  !
  ! *value* は配列を受け取るので、スカラーを書き出すには
  ! Fortran の配列構成子 <tt>(/ ... /)</tt> を使ってください。
  ! たとえば、スカラー a から長さ 1 の配列 <tt>(/a/)</tt>
  ! を作ることができます。
  !
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf, vtb_class_memory
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_memory_generic, only: put_attr
  use gtdata_memory_types, only: gd_mem_variable
  use dc_string, only: tochar
  type(gt_variable), intent(inout):: var
  character(len = *), intent(in):: name
  integer, intent(in):: value(:)
  logical, intent(out), optional:: err
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call put_attr(gd_nc_variable(cid), name, value, err)
  else if (class == vtb_class_memory) then
    call put_attr(gd_mem_variable(cid), name, trim(tochar(value)))
    if (present(err)) err = .false.
  endif

Here is the call graph for this function:

gtvarputattrlogical()

subroutine gtvarputattrlogical	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		logical, intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 14 of file gtvarputattrchar.f90.

References gtdata_internal_map::var_class().

  !
  !== 属性の付加
  !
  ! 変数 *var* に, 属性名 *name* とその値 *value* を付加します。
  !
  ! *Put_Attr* は複数のサブルーチンの総称名なので、
  ! *value* には様々な型の変数を与えることが可能です。
  ! 以下のサブルーチンを参照してください。
  !
  ! 引数に *xtype* を持つものは、その引数に型を指定することで、
  ! 引数 *value* には文字型を与えても、
  ! 整数型、実数型 (単精度、倍精度) の値を付加することが可能です。
  ! 下記のサブルーチンを参照ください。
  !
  ! エラーが発生した場合、引数 *err* が与えられる場合は *err* が
  ! <tt>.true.</tt> となって返ります。
  ! 引数 *err* を与えなければプログラムは停止します。
  !
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf, vtb_class_memory
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_memory_generic, only: put_attr
  use gtdata_memory_types, only: gd_mem_variable
  use dc_string, only: tochar
  implicit none
  type(gt_variable),  intent(inout)        :: var
  character(len = *), intent(in)           :: name
  logical,            intent(in)           :: value
  logical,            intent(out), optional:: err
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    if (value) then
      call put_attr(gd_nc_variable(cid), name, "true", err=err)
    else
      call put_attr(gd_nc_variable(cid), name, "false", err=err)
    endif
  else if (class == vtb_class_memory) then
    if (value) then
      call put_attr(gd_mem_variable(cid), name, "true")
    else
      call put_attr(gd_mem_variable(cid), name, "false")
    endif
    if (present(err)) err = .false.
  endif

Here is the call graph for this function:

gtvarputattrreal()

subroutine gtvarputattrreal	(	type(gt_variable), intent(inout)	var,
		character(len = *), intent(in)	name,
		real, dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 113 of file gtvarputattrchar.f90.

References gtdata_internal_map::var_class().

  !
  ! まずは上記の Put_Attr
  ! (または GTVarPutAttrChar および GTVarPutAttrReal)
  ! を参照してください。
  !
  use gtdata_types, only: gt_variable
  use gtdata_internal_map, only: var_class, vtb_class_netcdf, vtb_class_memory
  use gtdata_netcdf_generic, only: put_attr
  use gtdata_netcdf_types, only: gd_nc_variable
  use gtdata_memory_generic, only: put_attr
  use gtdata_memory_types, only: gd_mem_variable
  use dc_string, only: tochar
  implicit none
  type(gt_variable), intent(inout):: var
  character(len = *), intent(in):: name
  real, intent(in):: value(:)
  logical, intent(out), optional:: err
  integer:: class, cid
continue
  call var_class(var, class, cid)
  if (class == vtb_class_netcdf) then
    call put_attr(gd_nc_variable(cid), name, value, err)
  else if (class == vtb_class_memory) then
    call put_attr(gd_mem_variable(cid), name, trim(tochar(value)))
    if (present(err)) err = .false.
  endif

Here is the call graph for this function: