historyautoaddattr.f90 File Reference

属性付加 More...

Go to the source code of this file.

Functions/Subroutines
subroutine	historyautoaddattrchar0 (varname, attrname, value)
subroutine	historyautoaddattrlogical0 (varname, attrname, value)
subroutine	historyautoaddattrint0 (varname, attrname, value)
subroutine	historyautoaddattrint1 (varname, attrname, value)
subroutine	historyautoaddattrreal0 (varname, attrname, value)
subroutine	historyautoaddattrreal1 (varname, attrname, value)
subroutine	historyautoaddattrdouble0 (varname, attrname, value)
subroutine	historyautoaddattrdouble1 (varname, attrname, value)

Detailed Description

属性付加

Author

Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2008-2026. All rights reserved.
License is BSD-2-Clause. See COPYRIGHT in detail

Definition in file historyautoaddattr.f90.

Function/Subroutine Documentation

historyautoaddattrchar0()

subroutine historyautoaddattrchar0	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		character(*), intent(in)	value )

座標変数および座標重み変数に属性を付加します.

座標変数および座標重み変数に属性を付加します. このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が 必要です.

• 座標変数については, HistoryAutoCreate の dims に与えられた もののみ指定可能です.
• 座標重み変数については, HistoryAutoAddWeight で与えられた もののみ指定可能です.
• HistoryAutoAddAttr は複数のサブルーチンの総称名です. value にはいくつかの型を与えることが可能です.

Parameters

[in]	varname	変数の名前. ここで指定するものは, HistoryAutoCreate の dims , または HistoryAutoAddWeight の varname で既に指定されていなければなりません.
[in]	attrname	属性の名前.
[in]	value	属性の値.

Definition at line 75 of file historyautoaddattr.f90.

    !
                        !
    ! 座標変数および座標重み変数に属性を付加します.
    ! このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が
    ! 必要です.
    !
    ! * 座標変数については, HistoryAutoCreate の "dims" に与えられた
    !   もののみ指定可能です.
    !
    ! * 座標重み変数については, HistoryAutoAddWeight で与えられた
    !   もののみ指定可能です.
    !
    ! * *HistoryAutoAddAttr* は複数のサブルーチンの総称名です. *value*
    !   にはいくつかの型を与えることが可能です.
    !   下記のサブルーチンを参照ください.
    !
    ! Add attributes axes or weights of axes.
    ! Initialization by "HistoryAutoCreate" is needed
    ! before use of this subroutine.
    !
    ! * About axes, "dims" specified by "HistoryAutoCreate" can be
    !   specified.
    !
    ! * About weights of axes, "dims" specified by "HistoryAutoAddWeight"
    !   can be specified.
    !
    ! * "HistoryAutoAddAttr" is a generic name of multiple subroutines.
    !   Then some data type can be specified to "value".
    !
                    
    !
    use gtool_historyauto_internal, only: initialized, numdims, &
      & numwgts, gthst_axes, gthst_weights
    use gtool_history, only: historyaxisaddattr, historyaxisinquire, &
      &                    historyvarinfoaddattr, historyvarinfoinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname, dc_enotinit
    use dc_string, only: tochar
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
                                                  ! 変数の名前.
                              !
                              ! ここで指定するものは,
                              ! HistoryAutoCreate の *dims* ,
                              ! または HistoryAutoAddWeight の
                              ! *varname* で既に指定されてい
                              ! なければなりません.
                              !
                              ! Name of a variable.
                              !
                              ! This must be specified with *dims*
                              ! in HistoryAutoCreate, or
                              ! *varname* in "HistoryAutoAddWeight".
                              !
                    
    character(*), intent(in):: attrname
                                                  ! 属性の名前.
                              ! Name of an attribute.
                    
    character(*), intent(in):: value
                                                  ! 属性の値.
                              ! Value of an attribute.
                    
 
    character(STRING):: name
    integer:: stat, i
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoAddAttrChar0"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(value))
    stat = dc_noerr
    cause_c = ""
 
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      stat = dc_enotinit
      cause_c = 'gtool_historyauto'
      goto 999
    end if
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyaxisaddattr( &
          & axis = gthst_axes(i), &              ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    do i = 1, numwgts
      call historyvarinfoinquire( &
        & varinfo = gthst_weights(i), &  ! (in)
        & name = name )                  ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyvarinfoaddattr( &
          & varinfo = gthst_weights(i), &        ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = varname
 
999 continue
    call storeerror(stat, subname, cause_c = cause_c)
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, gtool_historyauto_internal::gthst_weights, dc_error::hst_enoaxisname, gtool_historyauto_internal::initialized, gtool_historyauto_internal::numdims, gtool_historyauto_internal::numwgts, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyautoaddattrdouble0()

subroutine historyautoaddattrdouble0	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		real(dp), intent(in)	value )

座標変数および座標重み変数に属性を付加します.

座標変数および座標重み変数に属性を付加します. このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が 必要です.

• 座標変数については, HistoryAutoCreate の dims に与えられた もののみ指定可能です.
• 座標重み変数については, HistoryAutoAddWeight で与えられた もののみ指定可能です.
• HistoryAutoAddAttr は複数のサブルーチンの総称名です. value にはいくつかの型を与えることが可能です.

Parameters

[in]	varname	変数の名前. ここで指定するものは, HistoryAutoCreate の dims , または HistoryAutoAddWeight の varname で既に指定されていなければなりません.
[in]	attrname	属性の名前.
[in]	value	属性の値.

Definition at line 835 of file historyautoaddattr.f90.

    !
                    
    !
    use gtool_historyauto_internal, only: initialized, numdims, &
      & numwgts, gthst_axes, gthst_weights
    use gtool_history, only: historyaxisaddattr, historyaxisinquire, &
      &                    historyvarinfoaddattr, historyvarinfoinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname, dc_enotinit
    use dc_string, only: tochar
    use dc_types, only: string, dp
    implicit none
    character(*), intent(in):: varname
                    
    character(*), intent(in):: attrname
                    
    real(DP), intent(in):: value
                    
 
    character(STRING):: name
    integer:: stat, i
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoAddAttrDouble0"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ""
 
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      stat = dc_enotinit
      cause_c = 'gtool_historyauto'
      goto 999
    end if
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyaxisaddattr( &
          & axis = gthst_axes(i), &              ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    do i = 1, numwgts
      call historyvarinfoinquire( &
        & varinfo = gthst_weights(i), &  ! (in)
        & name = name )                  ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyvarinfoaddattr( &
          & varinfo = gthst_weights(i), &        ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = varname
 
999 continue
    call storeerror(stat, subname, cause_c = cause_c)
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_types::dp, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, gtool_historyauto_internal::gthst_weights, dc_error::hst_enoaxisname, gtool_historyauto_internal::initialized, gtool_historyauto_internal::numdims, gtool_historyauto_internal::numwgts, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyautoaddattrdouble1()

subroutine historyautoaddattrdouble1	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		real(dp), dimension(:), intent(in)	value )

座標変数および座標重み変数に属性を付加します.

座標変数および座標重み変数に属性を付加します. このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が 必要です.

• 座標変数については, HistoryAutoCreate の dims に与えられた もののみ指定可能です.
• 座標重み変数については, HistoryAutoAddWeight で与えられた もののみ指定可能です.
• HistoryAutoAddAttr は複数のサブルーチンの総称名です. value にはいくつかの型を与えることが可能です.

Parameters

[in]	varname	変数の名前. ここで指定するものは, HistoryAutoCreate の dims , または HistoryAutoAddWeight の varname で既に指定されていなければなりません.
[in]	attrname	属性の名前.
[in]	value	属性の値.

Definition at line 954 of file historyautoaddattr.f90.

    !
                    
    !
    use gtool_historyauto_internal, only: initialized, numdims, &
      & numwgts, gthst_axes, gthst_weights
    use gtool_history, only: historyaxisaddattr, historyaxisinquire, &
      &                    historyvarinfoaddattr, historyvarinfoinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname, dc_enotinit
    use dc_string, only: tochar
    use dc_types, only: string, dp
    implicit none
    character(*), intent(in):: varname
                    
    character(*), intent(in):: attrname
                    
    real(DP), intent(in):: value(:)
                    
 
    character(STRING):: name
    integer:: stat, i
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoAddAttrDouble1"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ""
 
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      stat = dc_enotinit
      cause_c = 'gtool_historyauto'
      goto 999
    end if
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyaxisaddattr( &
          & axis = gthst_axes(i), &              ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    do i = 1, numwgts
      call historyvarinfoinquire( &
        & varinfo = gthst_weights(i), &  ! (in)
        & name = name )                  ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyvarinfoaddattr( &
          & varinfo = gthst_weights(i), &        ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = varname
 
999 continue
    call storeerror(stat, subname, cause_c = cause_c)
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_types::dp, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, gtool_historyauto_internal::gthst_weights, dc_error::hst_enoaxisname, gtool_historyauto_internal::initialized, gtool_historyauto_internal::numdims, gtool_historyauto_internal::numwgts, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyautoaddattrint0()

subroutine historyautoaddattrint0	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		integer, intent(in)	value )

座標変数および座標重み変数に属性を付加します.

座標変数および座標重み変数に属性を付加します. このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が 必要です.

• 座標変数については, HistoryAutoCreate の dims に与えられた もののみ指定可能です.
• 座標重み変数については, HistoryAutoAddWeight で与えられた もののみ指定可能です.
• HistoryAutoAddAttr は複数のサブルーチンの総称名です. value にはいくつかの型を与えることが可能です.

Parameters

[in]	varname	変数の名前. ここで指定するものは, HistoryAutoCreate の dims , または HistoryAutoAddWeight の varname で既に指定されていなければなりません.
[in]	attrname	属性の名前.
[in]	value	属性の値.

Definition at line 359 of file historyautoaddattr.f90.

    !
                    
    !
    use gtool_historyauto_internal, only: initialized, numdims, &
      & numwgts, gthst_axes, gthst_weights
    use gtool_history, only: historyaxisaddattr, historyaxisinquire, &
      &                    historyvarinfoaddattr, historyvarinfoinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname, dc_enotinit
    use dc_string, only: tochar
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
                    
    character(*), intent(in):: attrname
                    
    integer, intent(in):: value
                    
 
    character(STRING):: name
    integer:: stat, i
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoAddAttrInt0"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ""
 
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      stat = dc_enotinit
      cause_c = 'gtool_historyauto'
      goto 999
    end if
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyaxisaddattr( &
          & axis = gthst_axes(i), &              ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    do i = 1, numwgts
      call historyvarinfoinquire( &
        & varinfo = gthst_weights(i), &  ! (in)
        & name = name )                  ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyvarinfoaddattr( &
          & varinfo = gthst_weights(i), &        ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = varname
 
999 continue
    call storeerror(stat, subname, cause_c = cause_c)
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, gtool_historyauto_internal::gthst_weights, dc_error::hst_enoaxisname, gtool_historyauto_internal::initialized, gtool_historyauto_internal::numdims, gtool_historyauto_internal::numwgts, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyautoaddattrint1()

subroutine historyautoaddattrint1	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		integer, dimension(:), intent(in)	value )

座標変数および座標重み変数に属性を付加します.

座標変数および座標重み変数に属性を付加します. このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が 必要です.

• 座標変数については, HistoryAutoCreate の dims に与えられた もののみ指定可能です.
• 座標重み変数については, HistoryAutoAddWeight で与えられた もののみ指定可能です.
• HistoryAutoAddAttr は複数のサブルーチンの総称名です. value にはいくつかの型を与えることが可能です.

Parameters

[in]	varname	変数の名前. ここで指定するものは, HistoryAutoCreate の dims , または HistoryAutoAddWeight の varname で既に指定されていなければなりません.
[in]	attrname	属性の名前.
[in]	value	属性の値.

Definition at line 478 of file historyautoaddattr.f90.

    !
                    
    !
    use gtool_historyauto_internal, only: initialized, numdims, &
      & numwgts, gthst_axes, gthst_weights
    use gtool_history, only: historyaxisaddattr, historyaxisinquire, &
      &                    historyvarinfoaddattr, historyvarinfoinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname, dc_enotinit
    use dc_string, only: tochar
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
                    
    character(*), intent(in):: attrname
                    
    integer, intent(in):: value(:)
                    
 
    character(STRING):: name
    integer:: stat, i
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoAddAttrInt1"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ""
 
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      stat = dc_enotinit
      cause_c = 'gtool_historyauto'
      goto 999
    end if
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyaxisaddattr( &
          & axis = gthst_axes(i), &              ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    do i = 1, numwgts
      call historyvarinfoinquire( &
        & varinfo = gthst_weights(i), &  ! (in)
        & name = name )                  ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyvarinfoaddattr( &
          & varinfo = gthst_weights(i), &        ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = varname
 
999 continue
    call storeerror(stat, subname, cause_c = cause_c)
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, gtool_historyauto_internal::gthst_weights, dc_error::hst_enoaxisname, gtool_historyauto_internal::initialized, gtool_historyauto_internal::numdims, gtool_historyauto_internal::numwgts, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyautoaddattrlogical0()

subroutine historyautoaddattrlogical0	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		logical, intent(in)	value )

座標変数および座標重み変数に属性を付加します.

座標変数および座標重み変数に属性を付加します. このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が 必要です.

• 座標変数については, HistoryAutoCreate の dims に与えられた もののみ指定可能です.
• 座標重み変数については, HistoryAutoAddWeight で与えられた もののみ指定可能です.
• HistoryAutoAddAttr は複数のサブルーチンの総称名です. value にはいくつかの型を与えることが可能です.

Parameters

[in]	varname	変数の名前. ここで指定するものは, HistoryAutoCreate の dims , または HistoryAutoAddWeight の varname で既に指定されていなければなりません.
[in]	attrname	属性の名前.
[in]	value	属性の値.

Definition at line 240 of file historyautoaddattr.f90.

    !
                    
    !
    use gtool_historyauto_internal, only: initialized, numdims, &
      & numwgts, gthst_axes, gthst_weights
    use gtool_history, only: historyaxisaddattr, historyaxisinquire, &
      &                    historyvarinfoaddattr, historyvarinfoinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname, dc_enotinit
    use dc_string, only: tochar
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
                    
    character(*), intent(in):: attrname
                    
    logical, intent(in):: value
                    
 
    character(STRING):: name
    integer:: stat, i
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoAddAttrLogical0"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ""
 
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      stat = dc_enotinit
      cause_c = 'gtool_historyauto'
      goto 999
    end if
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyaxisaddattr( &
          & axis = gthst_axes(i), &              ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    do i = 1, numwgts
      call historyvarinfoinquire( &
        & varinfo = gthst_weights(i), &  ! (in)
        & name = name )                  ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyvarinfoaddattr( &
          & varinfo = gthst_weights(i), &        ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = varname
 
999 continue
    call storeerror(stat, subname, cause_c = cause_c)
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, gtool_historyauto_internal::gthst_weights, dc_error::hst_enoaxisname, gtool_historyauto_internal::initialized, gtool_historyauto_internal::numdims, gtool_historyauto_internal::numwgts, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyautoaddattrreal0()

subroutine historyautoaddattrreal0	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		real, intent(in)	value )

座標変数および座標重み変数に属性を付加します.

座標変数および座標重み変数に属性を付加します. このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が 必要です.

• 座標変数については, HistoryAutoCreate の dims に与えられた もののみ指定可能です.
• 座標重み変数については, HistoryAutoAddWeight で与えられた もののみ指定可能です.
• HistoryAutoAddAttr は複数のサブルーチンの総称名です. value にはいくつかの型を与えることが可能です.

Parameters

[in]	varname	変数の名前. ここで指定するものは, HistoryAutoCreate の dims , または HistoryAutoAddWeight の varname で既に指定されていなければなりません.
[in]	attrname	属性の名前.
[in]	value	属性の値.

Definition at line 597 of file historyautoaddattr.f90.

    !
                    
    !
    use gtool_historyauto_internal, only: initialized, numdims, &
      & numwgts, gthst_axes, gthst_weights
    use gtool_history, only: historyaxisaddattr, historyaxisinquire, &
      &                    historyvarinfoaddattr, historyvarinfoinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname, dc_enotinit
    use dc_string, only: tochar
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
                    
    character(*), intent(in):: attrname
                    
    real, intent(in):: value
                    
 
    character(STRING):: name
    integer:: stat, i
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoAddAttrReal0"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ""
 
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      stat = dc_enotinit
      cause_c = 'gtool_historyauto'
      goto 999
    end if
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyaxisaddattr( &
          & axis = gthst_axes(i), &              ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    do i = 1, numwgts
      call historyvarinfoinquire( &
        & varinfo = gthst_weights(i), &  ! (in)
        & name = name )                  ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyvarinfoaddattr( &
          & varinfo = gthst_weights(i), &        ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = varname
 
999 continue
    call storeerror(stat, subname, cause_c = cause_c)
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, gtool_historyauto_internal::gthst_weights, dc_error::hst_enoaxisname, gtool_historyauto_internal::initialized, gtool_historyauto_internal::numdims, gtool_historyauto_internal::numwgts, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function:

historyautoaddattrreal1()

subroutine historyautoaddattrreal1	(	character(*), intent(in)	varname,
		character(*), intent(in)	attrname,
		real, dimension(:), intent(in)	value )

座標変数および座標重み変数に属性を付加します.

座標変数および座標重み変数に属性を付加します. このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が 必要です.

• 座標変数については, HistoryAutoCreate の dims に与えられた もののみ指定可能です.
• 座標重み変数については, HistoryAutoAddWeight で与えられた もののみ指定可能です.
• HistoryAutoAddAttr は複数のサブルーチンの総称名です. value にはいくつかの型を与えることが可能です.

Parameters

[in]	varname	変数の名前. ここで指定するものは, HistoryAutoCreate の dims , または HistoryAutoAddWeight の varname で既に指定されていなければなりません.
[in]	attrname	属性の名前.
[in]	value	属性の値.

Definition at line 716 of file historyautoaddattr.f90.

    !
                    
    !
    use gtool_historyauto_internal, only: initialized, numdims, &
      & numwgts, gthst_axes, gthst_weights
    use gtool_history, only: historyaxisaddattr, historyaxisinquire, &
      &                    historyvarinfoaddattr, historyvarinfoinquire
    use dc_trace, only: beginsub, endsub
    use dc_error, only: storeerror, dc_noerr, hst_enoaxisname, dc_enotinit
    use dc_string, only: tochar
    use dc_types, only: string
    implicit none
    character(*), intent(in):: varname
                    
    character(*), intent(in):: attrname
                    
    real, intent(in):: value(:)
                    
 
    character(STRING):: name
    integer:: stat, i
    character(STRING):: cause_c
    character(*), parameter:: subname = "HistoryAutoAddAttrReal1"
  continue
    call beginsub(subname, &
      & 'varname=<%c> attrname=<%c>, value=<%c>', &
      & c1=trim(varname), c2=trim(attrname), c3=trim(tochar(value)))
    stat = dc_noerr
    cause_c = ""
 
    ! 初期設定チェック
    ! Check initialization
    !
    if ( .not. initialized ) then
      stat = dc_enotinit
      cause_c = 'gtool_historyauto'
      goto 999
    end if
 
    do i = 1, numdims
      call historyaxisinquire( &
        & axis = gthst_axes(i), &  ! (in)
        & name = name )            ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyaxisaddattr( &
          & axis = gthst_axes(i), &              ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    do i = 1, numwgts
      call historyvarinfoinquire( &
        & varinfo = gthst_weights(i), &  ! (in)
        & name = name )                  ! (out)
      if ( trim(varname) == trim(name) ) then
        call historyvarinfoaddattr( &
          & varinfo = gthst_weights(i), &        ! (inout)
          & attrname = attrname, value = value ) ! (in)
        goto 999
      end if
    end do
 
    stat = hst_enoaxisname
    cause_c = varname
 
999 continue
    call storeerror(stat, subname, cause_c = cause_c)
    call endsub(subname)

References dc_trace::beginsub(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_trace::endsub(), gtool_historyauto_internal::gthst_axes, gtool_historyauto_internal::gthst_weights, dc_error::hst_enoaxisname, gtool_historyauto_internal::initialized, gtool_historyauto_internal::numdims, gtool_historyauto_internal::numwgts, dc_error::storeerror(), and dc_types::string.

Here is the call graph for this function: