historyaxisaddattr.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	historyaxisaddattrchar0 (axis, attrname, value)
	GT_HISTORY_AXIS 型変数への属性付加
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 101 of file historyaxisaddattr.f90.

    !
                        !
    ! 使用方法は HistoryAxisAddAttr と同様です. 
    !
    ! Usage is same as "HistoryAxisAddAttr".
    !
    !--
    ! 総称名 Put_Attr として提供するための関数です. 
    ! 機能は HistoryAxisAttr と同じです. 
    !++
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history_axis
    
    use dc_trace, only: beginsub, endsub
    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)

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

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 568 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history_axis
    use dc_types, only: dp
    use dc_trace, only: beginsub, endsub
    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)

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

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 645 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history_axis
    use dc_types, only: dp
    use dc_trace, only: beginsub, endsub
    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)

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

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 262 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history_axis
    
    use dc_trace, only: beginsub, endsub
    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)

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

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 339 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history_axis
    
    use dc_trace, only: beginsub, endsub
    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)

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

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 186 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history_axis
    
    use dc_trace, only: beginsub, endsub
    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)

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

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 415 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history_axis
    
    use dc_trace, only: beginsub, endsub
    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)

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

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 492 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisaddattr
    use gtool_history_types, only: gt_history_axis
    
    use dc_trace, only: beginsub, endsub
    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)

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

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 )

GT_HISTORY_AXIS 型変数への属性付加

Parameters

[in,out]

axis

GT_HISTORY_AXIS 型の変数 axis へ属性を付加します。

HistoryAxisAddAttr は複数のサブルーチンの総称名です。 value には様々な型の引数を与えることが可能です。 下記のサブルーチンを参照ください。

Definition at line 31 of file historyaxisaddattr.f90.

    !
                        !
    !> @brief GT_HISTORY_AXIS 型変数への属性付加
    !>
    !> GT_HISTORY_AXIS 型の変数 axis へ属性を付加します。
    !>
    !> HistoryAxisAddAttr は複数のサブルーチンの総称名です。
    !> value には様々な型の引数を与えることが可能です。
    !> 下記のサブルーチンを参照ください。
    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history_axis, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    use dc_string, only: tochar
    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)

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

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 513 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history_axis, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, dp
    use dc_string, only: tochar
    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)

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

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 589 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history_axis, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, dp
    use dc_string, only: tochar
    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)

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

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 207 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history_axis, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    use dc_string, only: tochar
    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)

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

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 283 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history_axis, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    use dc_string, only: tochar
    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)

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

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 131 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history_axis, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    use dc_string, only: tochar
    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)

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

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 360 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history_axis, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    use dc_string, only: tochar
    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)

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

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 436 of file historyaxisaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyaxisinquire
    use gtool_history_types, only: gt_history_axis, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    use dc_string, only: tochar
    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)

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

Here is the call graph for this function: