historyaxisaddattr.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	historyaxisaddattrchar0 (axis, attrname, value)
subroutine	historyaxisaddattr2char0 (axis, attrname, value)
subroutine	historyaxisaddattrlogical0 (axis, attrname, value)
subroutine	historyaxisaddattr2logical0 (axis, attrname, value)
subroutine	historyaxisaddattrint0 (axis, attrname, value)
subroutine	historyaxisaddattr2int0 (axis, attrname, value)
subroutine	historyaxisaddattrint1 (axis, attrname, value)
subroutine	historyaxisaddattr2int1 (axis, attrname, value)
subroutine	historyaxisaddattrreal0 (axis, attrname, value)
subroutine	historyaxisaddattr2real0 (axis, attrname, value)
subroutine	historyaxisaddattrreal1 (axis, attrname, value)
subroutine	historyaxisaddattr2real1 (axis, attrname, value)
subroutine	historyaxisaddattrdouble0 (axis, attrname, value)
subroutine	historyaxisaddattr2double0 (axis, attrname, value)
subroutine	historyaxisaddattrdouble1 (axis, attrname, value)
subroutine	historyaxisaddattr2double1 (axis, attrname, value)

Function/Subroutine Documentation

historyaxisaddattr2char0()

subroutine historyaxisaddattr2char0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		character(*), intent(in)	value
	)

Definition at line 102 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_types::dp, dc_trace::endsub(), dc_types::string, and dc_types::token.

    !
                        !
    ! 使用方法は HistoryAxisAddAttr と同様です. 
    !
    ! Usage is same as "HistoryAxisAddAttr".
    !
    !--
    ! 総称名 Put_Attr として提供するための関数です. 
    ! 機能は HistoryAxisAttr と同じです. 
    !++
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    character(*), intent(in):: value
    character(*), parameter:: subname = "HistoryAxisAddAttr2Char0"
  continue
    call beginsub(subname)
    call historyaxisaddattr( axis, attrname, value )
    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattr2double0()

subroutine historyaxisaddattr2double0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		real(dp), intent(in)	value
	)

Definition at line 581 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_types::dp, dc_trace::endsub(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    real(DP), intent(in):: value
    character(*), parameter:: subname = "HistoryAxisAddAttr2Double0"
  continue
    call beginsub(subname)
    call historyaxisaddattr( axis, attrname, value )
    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattr2double1()

subroutine historyaxisaddattr2double1	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		real(dp), dimension(:), intent(in)	value
	)

Definition at line 660 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_types::dp, dc_trace::endsub(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    real(DP), intent(in):: value(:)
    character(*), parameter:: subname = "HistoryAxisAddAttr2Double1"
  continue
    call beginsub(subname)
    call historyaxisaddattr( axis, attrname, value )
    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattr2int0()

subroutine historyaxisaddattr2int0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		integer, intent(in)	value
	)

Definition at line 267 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_types::dp, dc_trace::endsub(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    integer, intent(in):: value
    character(*), parameter:: subname = "HistoryAxisAddAttr2Int0"
  continue
    call beginsub(subname)
    call historyaxisaddattr( axis, attrname, value )
    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattr2int1()

subroutine historyaxisaddattr2int1	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		integer, dimension(:), intent(in)	value
	)

Definition at line 346 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_types::dp, dc_trace::endsub(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    integer, intent(in):: value(:)
    character(*), parameter:: subname = "HistoryAxisAddAttr2Int1"
  continue
    call beginsub(subname)
    call historyaxisaddattr( axis, attrname, value )
    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattr2logical0()

subroutine historyaxisaddattr2logical0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		logical, intent(in)	value
	)

Definition at line 189 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_types::dp, dc_trace::endsub(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    logical, intent(in):: value
    character(*), parameter:: subname = "HistoryAxisAddAttr2Logical0"
  continue
    call beginsub(subname)
    call historyaxisaddattr( axis, attrname, value )
    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattr2real0()

subroutine historyaxisaddattr2real0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		real, intent(in)	value
	)

Definition at line 424 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_types::dp, dc_trace::endsub(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    real, intent(in):: value
    character(*), parameter:: subname = "HistoryAxisAddAttr2Real0"
  continue
    call beginsub(subname)
    call historyaxisaddattr( axis, attrname, value )
    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattr2real1()

subroutine historyaxisaddattr2real1	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		real, dimension(:), intent(in)	value
	)

Definition at line 503 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_types::dp, dc_trace::endsub(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    real, intent(in):: value(:)
    character(*), parameter:: subname = "HistoryAxisAddAttr2Real1"
  continue
    call beginsub(subname)
    call historyaxisaddattr( axis, attrname, value )
    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattrchar0()

subroutine historyaxisaddattrchar0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		character(*), intent(in)	value
	)

Definition at line 30 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), gtool_history_internal::default, dc_types::dp, dc_trace::endsub(), dc_url::gt_plus, dc_string::joinchar(), dc_types::string, and dc_types::token.

    !
                        !
    !== GT_HISTORY_AXIS 型変数への属性付加
    !
    ! GT_HISTORY_AXIS 型の変数 *axis* へ属性を付加します。
    !
    ! *HistoryAxisAddAttr* は複数のサブルーチンの総称名です。
    ! value には様々な型の引数を与えることが可能です。
    ! 下記のサブルーチンを参照ください。
    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default, copy_attrs
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    use dc_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    character(*), intent(in):: value
                                                  ! 属性に与えられる値
                              ! 
                              ! 配列の場合でも、数値型以外
                              ! では配列の 1 つ目の要素のみ
                              ! 値として付加されます。
                              ! 
                    
    type(gt_history_attr), pointer:: attrs_tmp(:)
    integer:: attrs_num
    character(STRING) :: name
    character(*), parameter:: subname = "HistoryAxisAddAttrChar0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(value))
    call historyaxisinquire( axis, name )
    call dbgmessage('axis name=<%c>', c1=trim(name))

    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(axis % attrs) ) then
      allocate( axis % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( axis % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = axis % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( axis % attrs )
      allocate( axis % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = axis % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif

    axis % attrs(attrs_num) % attrname  = attrname
    axis % attrs(attrs_num) % attrtype  = 'Char'
                        axis % attrs(attrs_num) % array     = .false.
    axis % attrs(attrs_num) % Charvalue = value
                    

    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattrdouble0()

subroutine historyaxisaddattrdouble0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		real(dp), intent(in)	value
	)

Definition at line 524 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), gtool_history_internal::default, dc_types::dp, dc_trace::endsub(), dc_url::gt_plus, dc_string::joinchar(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default, copy_attrs
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    use dc_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    real(DP), intent(in):: value
                    
    type(gt_history_attr), pointer:: attrs_tmp(:)
    integer:: attrs_num
    character(STRING) :: name
    character(*), parameter:: subname = "HistoryAxisAddAttrDouble0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    call historyaxisinquire( axis, name )
    call dbgmessage('axis name=<%c>', c1=trim(name))

    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(axis % attrs) ) then
      allocate( axis % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( axis % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = axis % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( axis % attrs )
      allocate( axis % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = axis % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif

    axis % attrs(attrs_num) % attrname  = attrname
    axis % attrs(attrs_num) % attrtype  = 'Double'
                        axis % attrs(attrs_num) % array     = .false.
    axis % attrs(attrs_num) % Doublevalue = value
                    

    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattrdouble1()

subroutine historyaxisaddattrdouble1	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		real(dp), dimension(:), intent(in)	value
	)

Definition at line 602 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), gtool_history_internal::default, dc_types::dp, dc_trace::endsub(), dc_url::gt_plus, dc_string::joinchar(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default, copy_attrs
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    use dc_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    real(DP), intent(in):: value(:)
                    
    type(gt_history_attr), pointer:: attrs_tmp(:)
    integer:: attrs_num
    character(STRING) :: name
    character(*), parameter:: subname = "HistoryAxisAddAttrDouble1"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    call historyaxisinquire( axis, name )
    call dbgmessage('axis name=<%c>', c1=trim(name))

    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(axis % attrs) ) then
      allocate( axis % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( axis % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = axis % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( axis % attrs )
      allocate( axis % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = axis % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif

    axis % attrs(attrs_num) % attrname  = attrname
    axis % attrs(attrs_num) % attrtype  = 'Double'
                        axis % attrs(attrs_num) % array                = .true.
    allocate(  axis % attrs(attrs_num) % Doublearray( size(value) )  )
    axis % attrs(attrs_num) % Doublearray    = value
                    

    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattrint0()

subroutine historyaxisaddattrint0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		integer, intent(in)	value
	)

Definition at line 210 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), gtool_history_internal::default, dc_types::dp, dc_trace::endsub(), dc_url::gt_plus, dc_string::joinchar(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default, copy_attrs
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    use dc_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    integer, intent(in):: value
                    
    type(gt_history_attr), pointer:: attrs_tmp(:)
    integer:: attrs_num
    character(STRING) :: name
    character(*), parameter:: subname = "HistoryAxisAddAttrInt0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    call historyaxisinquire( axis, name )
    call dbgmessage('axis name=<%c>', c1=trim(name))

    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(axis % attrs) ) then
      allocate( axis % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( axis % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = axis % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( axis % attrs )
      allocate( axis % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = axis % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif

    axis % attrs(attrs_num) % attrname  = attrname
    axis % attrs(attrs_num) % attrtype  = 'Int'
                        axis % attrs(attrs_num) % array     = .false.
    axis % attrs(attrs_num) % Intvalue = value
                    

    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattrint1()

subroutine historyaxisaddattrint1	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		integer, dimension(:), intent(in)	value
	)

Definition at line 288 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), gtool_history_internal::default, dc_types::dp, dc_trace::endsub(), dc_url::gt_plus, dc_string::joinchar(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default, copy_attrs
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    use dc_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    integer, intent(in):: value(:)
                    
    type(gt_history_attr), pointer:: attrs_tmp(:)
    integer:: attrs_num
    character(STRING) :: name
    character(*), parameter:: subname = "HistoryAxisAddAttrInt1"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    call historyaxisinquire( axis, name )
    call dbgmessage('axis name=<%c>', c1=trim(name))

    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(axis % attrs) ) then
      allocate( axis % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( axis % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = axis % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( axis % attrs )
      allocate( axis % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = axis % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif

    axis % attrs(attrs_num) % attrname  = attrname
    axis % attrs(attrs_num) % attrtype  = 'Int'
                        axis % attrs(attrs_num) % array                = .true.
    allocate(  axis % attrs(attrs_num) % Intarray( size(value) )  )
    axis % attrs(attrs_num) % Intarray    = value
                    

    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattrlogical0()

subroutine historyaxisaddattrlogical0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		logical, intent(in)	value
	)

Definition at line 132 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), gtool_history_internal::default, dc_types::dp, dc_trace::endsub(), dc_url::gt_plus, dc_string::joinchar(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default, copy_attrs
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    use dc_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    logical, intent(in):: value
                    
    type(gt_history_attr), pointer:: attrs_tmp(:)
    integer:: attrs_num
    character(STRING) :: name
    character(*), parameter:: subname = "HistoryAxisAddAttrLogical0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    call historyaxisinquire( axis, name )
    call dbgmessage('axis name=<%c>', c1=trim(name))

    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(axis % attrs) ) then
      allocate( axis % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( axis % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = axis % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( axis % attrs )
      allocate( axis % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = axis % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif

    axis % attrs(attrs_num) % attrname  = attrname
    axis % attrs(attrs_num) % attrtype  = 'Logical'
                        axis % attrs(attrs_num) % array     = .false.
    axis % attrs(attrs_num) % Logicalvalue = value
                    

    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattrreal0()

subroutine historyaxisaddattrreal0	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		real, intent(in)	value
	)

Definition at line 367 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), gtool_history_internal::default, dc_types::dp, dc_trace::endsub(), dc_url::gt_plus, dc_string::joinchar(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default, copy_attrs
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    use dc_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    real, intent(in):: value
                    
    type(gt_history_attr), pointer:: attrs_tmp(:)
    integer:: attrs_num
    character(STRING) :: name
    character(*), parameter:: subname = "HistoryAxisAddAttrReal0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    call historyaxisinquire( axis, name )
    call dbgmessage('axis name=<%c>', c1=trim(name))

    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(axis % attrs) ) then
      allocate( axis % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( axis % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = axis % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( axis % attrs )
      allocate( axis % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = axis % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif

    axis % attrs(attrs_num) % attrname  = attrname
    axis % attrs(attrs_num) % attrtype  = 'Real'
                        axis % attrs(attrs_num) % array     = .false.
    axis % attrs(attrs_num) % Realvalue = value
                    

    call endsub(subname)

Here is the call graph for this function:

historyaxisaddattrreal1()

subroutine historyaxisaddattrreal1	(	type(gt_history_axis), intent(inout)	axis,
		character(*), intent(in)	attrname,
		real, dimension(:), intent(in)	value
	)

Definition at line 445 of file historyaxisaddattr.f90.

References dc_trace::beginsub(), dc_trace::dbgmessage(), gtool_history_internal::default, dc_types::dp, dc_trace::endsub(), dc_url::gt_plus, dc_string::joinchar(), dc_types::string, and dc_types::token.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: default, copy_attrs
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    use dc_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    implicit none
    type(gt_history_axis),intent(inout) :: axis
    character(*), intent(in):: attrname ! 属性の名前
    real, intent(in):: value(:)
                    
    type(gt_history_attr), pointer:: attrs_tmp(:)
    integer:: attrs_num
    character(STRING) :: name
    character(*), parameter:: subname = "HistoryAxisAddAttrReal1"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    call historyaxisinquire( axis, name )
    call dbgmessage('axis name=<%c>', c1=trim(name))

    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(axis % attrs) ) then
      allocate( axis % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( axis % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = axis % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( axis % attrs )
      allocate( axis % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = axis % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif

    axis % attrs(attrs_num) % attrname  = attrname
    axis % attrs(attrs_num) % attrtype  = 'Real'
                        axis % attrs(attrs_num) % array                = .true.
    allocate(  axis % attrs(attrs_num) % Realarray( size(value) )  )
    axis % attrs(attrs_num) % Realarray    = value
                    

    call endsub(subname)

Here is the call graph for this function: