historyvarinfoaddattr.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	historyvarinfoaddattrchar0 (varinfo, attrname, value, err)
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 129 of file historyvarinfoaddattr.f90.

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

    !
                        !
    ! 使用方法は HistoryVarinfoAddAttr と同様です. 
    !
    ! Usage is same as "HistoryVarinfoAddAttr".
    !
    !--
    ! 総称名 Put_Attr として提供するための関数です. 
    ! 機能は HistoryVarinfoAttr と同じです. 
    !++
                    
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyvarinfoaddattr
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: dp
    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)

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 788 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyvarinfoaddattr
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    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)

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 897 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyvarinfoaddattr
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    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)

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 354 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyvarinfoaddattr
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: dp
    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)

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 463 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyvarinfoaddattr
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: dp
    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)

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 246 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyvarinfoaddattr
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: dp
    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)

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 571 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyvarinfoaddattr
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: dp
    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)

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 680 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_types, only: gt_history, gt_history_axis, gt_history_varinfo, gt_history_attr
    use gtool_history_generic, only: historyvarinfoaddattr
    use gtdata_generic, only: put_attr
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: dp
    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)

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
	)

Definition at line 30 of file historyvarinfoaddattr.f90.

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

    !
                        !
    !== GT_HISTORY_VARINFO 型変数への属性付加
    !
    ! GT_HISTORY_VARINFO 型の変数 *varinfo* へ属性を付加します。
    !
    ! *HistoryVarinfoAddAttr* は複数のサブルーチンの総称名です。
    ! value には様々な型の引数を与えることが可能です。
    ! 下記のサブルーチンを参照ください。
    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    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_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    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)

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 704 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    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_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, 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)

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 812 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    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_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, 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)

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 270 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    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_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    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)

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 378 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    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_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    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)

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 162 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    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_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    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)

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 487 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    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_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    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)

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 595 of file historyvarinfoaddattr.f90.

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

    !
                    
    !
    use gtool_history_generic, only: historyvarinfoinquire
    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_string, only: tochar, joinchar
    use dc_url, only: gt_plus
    use dc_error, only: storeerror, dc_noerr, dc_enotinit
    use dc_trace, only: beginsub, endsub, dbgmessage
    use dc_types, only: string, token, dp
    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)

Here is the call graph for this function: