historyvarinfoaddattr.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	historyvarinfoaddattrchar0 (varinfo, attrname, value, err)
	GT_HISTORY_VARINFO 型変数への属性付加
subroutine	historyvarinfoaddattr2char0 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattrlogical0 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattr2logical0 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattrint0 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattr2int0 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattrint1 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattr2int1 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattrreal0 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattr2real0 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattrreal1 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattr2real1 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattrdouble0 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattr2double0 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattrdouble1 (varinfo, attrname, value, err)
subroutine	historyvarinfoaddattr2double1 (varinfo, attrname, value, err)

Function/Subroutine Documentation

historyvarinfoaddattr2char0()

subroutine historyvarinfoaddattr2char0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		character(*), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 128 of file historyvarinfoaddattr.f90.

    !
                        !
    ! 使用方法は HistoryVarinfoAddAttr と同様です. 
    !
    ! Usage is same as "HistoryVarinfoAddAttr".
    !
    !--
    ! 総称名 Put_Attr として提供するための関数です. 
    ! 機能は HistoryVarinfoAttr と同じです. 
    !++
                    
    !
    use gtool_history_types, only: gt_history_varinfo
    use gtool_history_generic, only: historyvarinfoaddattr
    use dc_trace, only: beginsub, endsub
                    
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    character(*), intent(in):: value
    logical, intent(out), optional:: err
    character(*), parameter:: subname = "HistoryVarinfoAddAttr2Char0"
  continue
    call beginsub(subname)
    call historyvarinfoaddattr( &
      & varinfo, attrname, value, err )
    call endsub(subname)

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

Here is the call graph for this function:

historyvarinfoaddattr2double0()

subroutine historyvarinfoaddattr2double0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		real(dp), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 769 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_types, only: gt_history_varinfo
    use gtool_history_generic, only: historyvarinfoaddattr
    use dc_trace, only: beginsub, endsub
                        use dc_types, only: dp
                    
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    real(DP), intent(in):: value
    logical, intent(out), optional:: err
    character(*), parameter:: subname = "HistoryVarinfoAddAttr2Double0"
  continue
    call beginsub(subname)
    call historyvarinfoaddattr( &
      & varinfo, attrname, value, err )
    call endsub(subname)

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

Here is the call graph for this function:

historyvarinfoaddattr2double1()

subroutine historyvarinfoaddattr2double1	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		real(dp), dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 876 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_types, only: gt_history_varinfo
    use gtool_history_generic, only: historyvarinfoaddattr
    use dc_trace, only: beginsub, endsub
                        use dc_types, only: dp
                    
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    real(DP), intent(in):: value(:)
    logical, intent(out), optional:: err
    character(*), parameter:: subname = "HistoryVarinfoAddAttr2Double1"
  continue
    call beginsub(subname)
    call historyvarinfoaddattr( &
      & varinfo, attrname, value, err )
    call endsub(subname)

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

Here is the call graph for this function:

historyvarinfoaddattr2int0()

subroutine historyvarinfoaddattr2int0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		integer, intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 347 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_types, only: gt_history_varinfo
    use gtool_history_generic, only: historyvarinfoaddattr
    use dc_trace, only: beginsub, endsub
                    
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    integer, intent(in):: value
    logical, intent(out), optional:: err
    character(*), parameter:: subname = "HistoryVarinfoAddAttr2Int0"
  continue
    call beginsub(subname)
    call historyvarinfoaddattr( &
      & varinfo, attrname, value, err )
    call endsub(subname)

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

Here is the call graph for this function:

historyvarinfoaddattr2int1()

subroutine historyvarinfoaddattr2int1	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		integer, dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 453 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_types, only: gt_history_varinfo
    use gtool_history_generic, only: historyvarinfoaddattr
    use dc_trace, only: beginsub, endsub
                    
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    integer, intent(in):: value(:)
    logical, intent(out), optional:: err
    character(*), parameter:: subname = "HistoryVarinfoAddAttr2Int1"
  continue
    call beginsub(subname)
    call historyvarinfoaddattr( &
      & varinfo, attrname, value, err )
    call endsub(subname)

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

Here is the call graph for this function:

historyvarinfoaddattr2logical0()

subroutine historyvarinfoaddattr2logical0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		logical, intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 242 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_types, only: gt_history_varinfo
    use gtool_history_generic, only: historyvarinfoaddattr
    use dc_trace, only: beginsub, endsub
                    
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    logical, intent(in):: value
    logical, intent(out), optional:: err
    character(*), parameter:: subname = "HistoryVarinfoAddAttr2Logical0"
  continue
    call beginsub(subname)
    call historyvarinfoaddattr( &
      & varinfo, attrname, value, err )
    call endsub(subname)

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

Here is the call graph for this function:

historyvarinfoaddattr2real0()

subroutine historyvarinfoaddattr2real0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		real, intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 558 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_types, only: gt_history_varinfo
    use gtool_history_generic, only: historyvarinfoaddattr
    use dc_trace, only: beginsub, endsub
                    
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    real, intent(in):: value
    logical, intent(out), optional:: err
    character(*), parameter:: subname = "HistoryVarinfoAddAttr2Real0"
  continue
    call beginsub(subname)
    call historyvarinfoaddattr( &
      & varinfo, attrname, value, err )
    call endsub(subname)

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

Here is the call graph for this function:

historyvarinfoaddattr2real1()

subroutine historyvarinfoaddattr2real1	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		real, dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 664 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_types, only: gt_history_varinfo
    use gtool_history_generic, only: historyvarinfoaddattr
    use dc_trace, only: beginsub, endsub
                    
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    real, intent(in):: value(:)
    logical, intent(out), optional:: err
    character(*), parameter:: subname = "HistoryVarinfoAddAttr2Real1"
  continue
    call beginsub(subname)
    call historyvarinfoaddattr( &
      & varinfo, attrname, value, err )
    call endsub(subname)

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

Here is the call graph for this function:

historyvarinfoaddattrchar0()

subroutine historyvarinfoaddattrchar0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		character(*), intent(in)	value,
		logical, intent(out), optional	err
	)

GT_HISTORY_VARINFO 型変数への属性付加

Parameters

[in,out]

varinfo

iline 1

GT_HISTORY_VARINFO 型の変数 varinfo へ属性を付加します。

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

Definition at line 31 of file historyvarinfoaddattr.f90.

    !
                        !
    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    use gtool_history_types, only: gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_string, only: tochar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    character(*), intent(in):: value
                                                  ! 属性に与えられる値
                              ! 
                              ! 配列の場合でも、数値型以外
                              ! では配列の 1 つ目の要素のみ
                              ! 値として付加されます。
                              ! 
                    
    logical, intent(out), optional:: err
                              ! 例外処理用フラグ. 
                              ! デフォルトでは, この手続き内でエラーが
                              ! 生じた場合, プログラムは強制終了します. 
                              ! 引数 *err* が与えられる場合, 
                              ! プログラムは強制終了せず, 代わりに
                              ! *err* に .true. が代入されます. 
                              !
                              ! Exception handling flag. 
                              ! By default, when error occur in 
                              ! this procedure, the program aborts. 
                              ! If this *err* argument is given, 
                              ! .true. is substituted to *err* and 
                              ! the program does not abort. 
 
    type(GT_HISTORY_ATTR), pointer:: attrs_tmp(:)
    integer:: attrs_num, stat
    character(STRING) :: name, cause_c
    character(*), parameter:: subname = "HistoryVarinfoAddAttrChar0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(value))
    stat = dc_noerr
    cause_c = ''
 
    if ( .not. varinfo % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if
 
    call historyvarinfoinquire( varinfo, name )
    call dbgmessage('varinfo name=<%c>', c1=trim(name))
 
    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(varinfo % attrs) ) then
      allocate( varinfo % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( varinfo % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = varinfo % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( varinfo % attrs )
      allocate( varinfo % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = varinfo % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif
 
    varinfo % attrs(attrs_num) % attrname  = attrname
    varinfo % attrs(attrs_num) % attrtype  = 'Char'
                        varinfo % attrs(attrs_num) % array     = .false.
    varinfo % attrs(attrs_num) % Charvalue = value
                    
 
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyvarinfoaddattrdouble0()

subroutine historyvarinfoaddattrdouble0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		real(dp), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 687 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    use gtool_history_types, only: gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_string, only: tochar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, dp
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    real(DP), intent(in):: value
                    
    logical, intent(out), optional:: err
                              ! 例外処理用フラグ. 
                              ! デフォルトでは, この手続き内でエラーが
                              ! 生じた場合, プログラムは強制終了します. 
                              ! 引数 *err* が与えられる場合, 
                              ! プログラムは強制終了せず, 代わりに
                              ! *err* に .true. が代入されます. 
                              !
                              ! Exception handling flag. 
                              ! By default, when error occur in 
                              ! this procedure, the program aborts. 
                              ! If this *err* argument is given, 
                              ! .true. is substituted to *err* and 
                              ! the program does not abort. 
 
    type(GT_HISTORY_ATTR), pointer:: attrs_tmp(:)
    integer:: attrs_num, stat
    character(STRING) :: name, cause_c
    character(*), parameter:: subname = "HistoryVarinfoAddAttrDouble0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
 
    if ( .not. varinfo % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if
 
    call historyvarinfoinquire( varinfo, name )
    call dbgmessage('varinfo name=<%c>', c1=trim(name))
 
    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(varinfo % attrs) ) then
      allocate( varinfo % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( varinfo % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = varinfo % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( varinfo % attrs )
      allocate( varinfo % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = varinfo % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif
 
    varinfo % attrs(attrs_num) % attrname  = attrname
    varinfo % attrs(attrs_num) % attrtype  = 'Double'
                        varinfo % attrs(attrs_num) % array     = .false.
    varinfo % attrs(attrs_num) % Doublevalue = value
                    
 
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_types::dp, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyvarinfoaddattrdouble1()

subroutine historyvarinfoaddattrdouble1	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		real(dp), dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 793 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    use gtool_history_types, only: gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_string, only: tochar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, dp
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    real(DP), intent(in):: value(:)
                    
    logical, intent(out), optional:: err
                              ! 例外処理用フラグ. 
                              ! デフォルトでは, この手続き内でエラーが
                              ! 生じた場合, プログラムは強制終了します. 
                              ! 引数 *err* が与えられる場合, 
                              ! プログラムは強制終了せず, 代わりに
                              ! *err* に .true. が代入されます. 
                              !
                              ! Exception handling flag. 
                              ! By default, when error occur in 
                              ! this procedure, the program aborts. 
                              ! If this *err* argument is given, 
                              ! .true. is substituted to *err* and 
                              ! the program does not abort. 
 
    type(GT_HISTORY_ATTR), pointer:: attrs_tmp(:)
    integer:: attrs_num, stat
    character(STRING) :: name, cause_c
    character(*), parameter:: subname = "HistoryVarinfoAddAttrDouble1"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
 
    if ( .not. varinfo % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if
 
    call historyvarinfoinquire( varinfo, name )
    call dbgmessage('varinfo name=<%c>', c1=trim(name))
 
    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(varinfo % attrs) ) then
      allocate( varinfo % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( varinfo % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = varinfo % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( varinfo % attrs )
      allocate( varinfo % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = varinfo % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif
 
    varinfo % attrs(attrs_num) % attrname  = attrname
    varinfo % attrs(attrs_num) % attrtype  = 'Double'
                        varinfo % attrs(attrs_num) % array                = .true.
    allocate(  varinfo % attrs(attrs_num) % Doublearray( size(value) )  )
    varinfo % attrs(attrs_num) % Doublearray    = value
                    
 
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_types::dp, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyvarinfoaddattrint0()

subroutine historyvarinfoaddattrint0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		integer, intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 265 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    use gtool_history_types, only: gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_string, only: tochar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    integer, intent(in):: value
                    
    logical, intent(out), optional:: err
                              ! 例外処理用フラグ. 
                              ! デフォルトでは, この手続き内でエラーが
                              ! 生じた場合, プログラムは強制終了します. 
                              ! 引数 *err* が与えられる場合, 
                              ! プログラムは強制終了せず, 代わりに
                              ! *err* に .true. が代入されます. 
                              !
                              ! Exception handling flag. 
                              ! By default, when error occur in 
                              ! this procedure, the program aborts. 
                              ! If this *err* argument is given, 
                              ! .true. is substituted to *err* and 
                              ! the program does not abort. 
 
    type(GT_HISTORY_ATTR), pointer:: attrs_tmp(:)
    integer:: attrs_num, stat
    character(STRING) :: name, cause_c
    character(*), parameter:: subname = "HistoryVarinfoAddAttrInt0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
 
    if ( .not. varinfo % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if
 
    call historyvarinfoinquire( varinfo, name )
    call dbgmessage('varinfo name=<%c>', c1=trim(name))
 
    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(varinfo % attrs) ) then
      allocate( varinfo % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( varinfo % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = varinfo % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( varinfo % attrs )
      allocate( varinfo % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = varinfo % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif
 
    varinfo % attrs(attrs_num) % attrname  = attrname
    varinfo % attrs(attrs_num) % attrtype  = 'Int'
                        varinfo % attrs(attrs_num) % array     = .false.
    varinfo % attrs(attrs_num) % Intvalue = value
                    
 
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyvarinfoaddattrint1()

subroutine historyvarinfoaddattrint1	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		integer, dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 370 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    use gtool_history_types, only: gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_string, only: tochar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    integer, intent(in):: value(:)
                    
    logical, intent(out), optional:: err
                              ! 例外処理用フラグ. 
                              ! デフォルトでは, この手続き内でエラーが
                              ! 生じた場合, プログラムは強制終了します. 
                              ! 引数 *err* が与えられる場合, 
                              ! プログラムは強制終了せず, 代わりに
                              ! *err* に .true. が代入されます. 
                              !
                              ! Exception handling flag. 
                              ! By default, when error occur in 
                              ! this procedure, the program aborts. 
                              ! If this *err* argument is given, 
                              ! .true. is substituted to *err* and 
                              ! the program does not abort. 
 
    type(GT_HISTORY_ATTR), pointer:: attrs_tmp(:)
    integer:: attrs_num, stat
    character(STRING) :: name, cause_c
    character(*), parameter:: subname = "HistoryVarinfoAddAttrInt1"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
 
    if ( .not. varinfo % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if
 
    call historyvarinfoinquire( varinfo, name )
    call dbgmessage('varinfo name=<%c>', c1=trim(name))
 
    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(varinfo % attrs) ) then
      allocate( varinfo % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( varinfo % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = varinfo % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( varinfo % attrs )
      allocate( varinfo % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = varinfo % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif
 
    varinfo % attrs(attrs_num) % attrname  = attrname
    varinfo % attrs(attrs_num) % attrtype  = 'Int'
                        varinfo % attrs(attrs_num) % array                = .true.
    allocate(  varinfo % attrs(attrs_num) % Intarray( size(value) )  )
    varinfo % attrs(attrs_num) % Intarray    = value
                    
 
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyvarinfoaddattrlogical0()

subroutine historyvarinfoaddattrlogical0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		logical, intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 160 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    use gtool_history_types, only: gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_string, only: tochar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    logical, intent(in):: value
                    
    logical, intent(out), optional:: err
                              ! 例外処理用フラグ. 
                              ! デフォルトでは, この手続き内でエラーが
                              ! 生じた場合, プログラムは強制終了します. 
                              ! 引数 *err* が与えられる場合, 
                              ! プログラムは強制終了せず, 代わりに
                              ! *err* に .true. が代入されます. 
                              !
                              ! Exception handling flag. 
                              ! By default, when error occur in 
                              ! this procedure, the program aborts. 
                              ! If this *err* argument is given, 
                              ! .true. is substituted to *err* and 
                              ! the program does not abort. 
 
    type(GT_HISTORY_ATTR), pointer:: attrs_tmp(:)
    integer:: attrs_num, stat
    character(STRING) :: name, cause_c
    character(*), parameter:: subname = "HistoryVarinfoAddAttrLogical0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
 
    if ( .not. varinfo % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if
 
    call historyvarinfoinquire( varinfo, name )
    call dbgmessage('varinfo name=<%c>', c1=trim(name))
 
    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(varinfo % attrs) ) then
      allocate( varinfo % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( varinfo % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = varinfo % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( varinfo % attrs )
      allocate( varinfo % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = varinfo % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif
 
    varinfo % attrs(attrs_num) % attrname  = attrname
    varinfo % attrs(attrs_num) % attrtype  = 'Logical'
                        varinfo % attrs(attrs_num) % array     = .false.
    varinfo % attrs(attrs_num) % Logicalvalue = value
                    
 
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyvarinfoaddattrreal0()

subroutine historyvarinfoaddattrreal0	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		real, intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 476 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    use gtool_history_types, only: gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_string, only: tochar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    real, intent(in):: value
                    
    logical, intent(out), optional:: err
                              ! 例外処理用フラグ. 
                              ! デフォルトでは, この手続き内でエラーが
                              ! 生じた場合, プログラムは強制終了します. 
                              ! 引数 *err* が与えられる場合, 
                              ! プログラムは強制終了せず, 代わりに
                              ! *err* に .true. が代入されます. 
                              !
                              ! Exception handling flag. 
                              ! By default, when error occur in 
                              ! this procedure, the program aborts. 
                              ! If this *err* argument is given, 
                              ! .true. is substituted to *err* and 
                              ! the program does not abort. 
 
    type(GT_HISTORY_ATTR), pointer:: attrs_tmp(:)
    integer:: attrs_num, stat
    character(STRING) :: name, cause_c
    character(*), parameter:: subname = "HistoryVarinfoAddAttrReal0"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
 
    if ( .not. varinfo % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if
 
    call historyvarinfoinquire( varinfo, name )
    call dbgmessage('varinfo name=<%c>', c1=trim(name))
 
    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(varinfo % attrs) ) then
      allocate( varinfo % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( varinfo % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = varinfo % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( varinfo % attrs )
      allocate( varinfo % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = varinfo % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif
 
    varinfo % attrs(attrs_num) % attrname  = attrname
    varinfo % attrs(attrs_num) % attrtype  = 'Real'
                        varinfo % attrs(attrs_num) % array     = .false.
    varinfo % attrs(attrs_num) % Realvalue = value
                    
 
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyvarinfoaddattrreal1()

subroutine historyvarinfoaddattrreal1	(	type(gt_history_varinfo), intent(inout)	varinfo,
		character(*), intent(in)	attrname,
		real, dimension(:), intent(in)	value,
		logical, intent(out), optional	err
	)

Definition at line 581 of file historyvarinfoaddattr.f90.

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    use gtool_history_types, only: gt_history_varinfo, gt_history_attr
    use gtool_history_internal, only: copy_attrs
    use dc_string, only: tochar
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string
    implicit none
    type(GT_HISTORY_VARINFO),intent(inout) :: varinfo
    character(*), intent(in):: attrname ! 属性の名前
    real, intent(in):: value(:)
                    
    logical, intent(out), optional:: err
                              ! 例外処理用フラグ. 
                              ! デフォルトでは, この手続き内でエラーが
                              ! 生じた場合, プログラムは強制終了します. 
                              ! 引数 *err* が与えられる場合, 
                              ! プログラムは強制終了せず, 代わりに
                              ! *err* に .true. が代入されます. 
                              !
                              ! Exception handling flag. 
                              ! By default, when error occur in 
                              ! this procedure, the program aborts. 
                              ! If this *err* argument is given, 
                              ! .true. is substituted to *err* and 
                              ! the program does not abort. 
 
    type(GT_HISTORY_ATTR), pointer:: attrs_tmp(:)
    integer:: attrs_num, stat
    character(STRING) :: name, cause_c
    character(*), parameter:: subname = "HistoryVarinfoAddAttrReal1"
  continue
    call beginsub(subname, &
      & 'attrname=<%c>, value=<%c>', &
      & c1=trim(attrname), c2=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ''
 
    if ( .not. varinfo % initialized ) then
      stat = dc_enotinit
      cause_c = 'GT_HISTORY_VARINFO'
      goto 999
    end if
 
    call historyvarinfoinquire( varinfo, name )
    call dbgmessage('varinfo name=<%c>', c1=trim(name))
 
    ! これまでの属性を保持しつつ配列を1つ増やす
    if ( .not. associated(varinfo % attrs) ) then
      allocate( varinfo % attrs(1) )
      attrs_num = 1
    else
      attrs_num = size( varinfo % attrs ) + 1
      ! 配列データの領域確保
      allocate( attrs_tmp(attrs_num - 1) )
      call copy_attrs( from = varinfo % attrs(1:attrs_num - 1), &
        &                to = attrs_tmp(1:attrs_num - 1))
      deallocate( varinfo % attrs )
      allocate( varinfo % attrs(attrs_num) )
      call copy_attrs( from = attrs_tmp(1:attrs_num - 1), &
        &                to = varinfo % attrs(1:attrs_num - 1))
      deallocate( attrs_tmp )
    endif
 
    varinfo % attrs(attrs_num) % attrname  = attrname
    varinfo % attrs(attrs_num) % attrtype  = 'Real'
                        varinfo % attrs(attrs_num) % array                = .true.
    allocate(  varinfo % attrs(attrs_num) % Realarray( size(value) )  )
    varinfo % attrs(attrs_num) % Realarray    = value
                    
 
999 continue
    call storeerror( stat, subname, err, cause_c )
    call endsub(subname)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function: