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)

Function/Subroutine Documentation

◆ historyautoaddattrchar0()

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

Definition at line 31 of file historyautoaddattr.f90.

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(), dc_types::string, and dc_types::token.

     !
                         !
     ! 座標変数および座標重み変数に属性を付加します. 
     ! このサブルーチンを用いる前に, 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: dp, string, token
     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)