\hypertarget{historyaddattr_8f90}{}\section{gtool/gtool\+\_\+history/historyaddattr.f90 File Reference}
\label{historyaddattr_8f90}\index{gtool/gtool\+\_\+history/historyaddattr.\+f90@{gtool/gtool\+\_\+history/historyaddattr.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyaddattr_8f90_a397a28b58c3c13eae929b0b0bd8b3fca}{historyaddattrchar0} (varname, attrname, value, history, err)
\item 
subroutine \hyperlink{historyaddattr_8f90_a272f6d1bfc6700b774dc5c7a5a50254d}{historyaddattrlogical0} (varname, attrname, value, history, err)
\item 
subroutine \hyperlink{historyaddattr_8f90_a8e526832814457ad5b675a8bfd67a9f5}{historyaddattrint0} (varname, attrname, value, history, err)
\item 
subroutine \hyperlink{historyaddattr_8f90_ab4940dd4f4dfb4579fd34a3715e415f6}{historyaddattrint1} (varname, attrname, value, history, err)
\item 
subroutine \hyperlink{historyaddattr_8f90_a0c707575b6f0b6a6a4b87ef9873f8721}{historyaddattrreal0} (varname, attrname, value, history, err)
\item 
subroutine \hyperlink{historyaddattr_8f90_aafcc046358bdd8723640082253670bb1}{historyaddattrreal1} (varname, attrname, value, history, err)
\item 
subroutine \hyperlink{historyaddattr_8f90_a9a959ec5ca80f2b685c142535acfd6b4}{historyaddattrdouble0} (varname, attrname, value, history, err)
\item 
subroutine \hyperlink{historyaddattr_8f90_a224d4170b58e3075e3a08471b29b13c4}{historyaddattrdouble1} (varname, attrname, value, history, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyaddattr_8f90_a397a28b58c3c13eae929b0b0bd8b3fca}\label{historyaddattr_8f90_a397a28b58c3c13eae929b0b0bd8b3fca}} 
\index{historyaddattr.\+f90@{historyaddattr.\+f90}!historyaddattrchar0@{historyaddattrchar0}}
\index{historyaddattrchar0@{historyaddattrchar0}!historyaddattr.\+f90@{historyaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyaddattrchar0()}{historyaddattrchar0()}}
{\footnotesize\ttfamily subroutine historyaddattrchar0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{character($\ast$), intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 29 of file historyaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
29     \textcolor{comment}{!}
30                         \textcolor{comment}{!}
31     \textcolor{comment}{!== gtool4 データ内の変数への属性付加}
32     \textcolor{comment}{!}
33     \textcolor{comment}{! gtool4 データおよびそのデータ内の変数に属性を付加します。}
34     \textcolor{comment}{! このサブルーチンを用いる前に、 HistoryCreate による初期設定が}
35     \textcolor{comment}{! 必要です。}
36     \textcolor{comment}{!}
37     \textcolor{comment}{! 属性名 *attrname* の先頭にプラス "<b><tt>+</tt></b>" を付加する}
38     \textcolor{comment}{! 場合は、gtool4 データ自体の属性 (大域属性) として属性が付加されます。}
39     \textcolor{comment}{! この場合、*varname* は無視されますが、}
40     \textcolor{comment}{! その場合でも *varname* へはデータ内に存在する変数名を与えてください。}
41     \textcolor{comment}{!}
42     \textcolor{comment}{! *HistoryAddAttr* は複数のサブルーチンの総称名です。*value* には}
43     \textcolor{comment}{! いくつかの型を与えることが可能です。}
44     \textcolor{comment}{! 下記のサブルーチンを参照ください。}
45     \textcolor{comment}{!}
46     \textcolor{comment}{!}
47     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
48     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}
49     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
50     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
51     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
52     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
53     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
54     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
55     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
56     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
57     \textcolor{keywordtype}{implicit none}
58     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
59                                                   \textcolor{comment}{! 変数の名前。}
60                               \textcolor{comment}{!}
61                               \textcolor{comment}{! ここで指定するものは、}
62                               \textcolor{comment}{! HistoryCreateの *dims* 、}
63                               \textcolor{comment}{! または HistoryAddVariable の}
64                               \textcolor{comment}{! *varname* で既に指定されてい}
65                               \textcolor{comment}{! なければなりません。}
66                               \textcolor{comment}{!}
67     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
68                                                   \textcolor{comment}{! 変数またはファイル全体に付}
69                               \textcolor{comment}{! 加する属性の名前}
70                               \textcolor{comment}{!}
71                               \textcolor{comment}{! "<b><tt>+</tt></b>" (プラ}
72                               \textcolor{comment}{! ス) を属性名の先頭につける}
73                               \textcolor{comment}{! 場合には、ファイル全体に属}
74                               \textcolor{comment}{! 性を付加します。}
75                               \textcolor{comment}{! ファイル全体へ属性を付加}
76                               \textcolor{comment}{! する場合でも、 HistoryCreate}
77                               \textcolor{comment}{! の *dims* 、または}
78                               \textcolor{comment}{! HistoryAddVariable の}
79                               \textcolor{comment}{! *varname* で既に指定されてい}
80                               \textcolor{comment}{! る変数を *varname* に指定する}
81                               \textcolor{comment}{! 必要があります。}
82                               \textcolor{comment}{!}
83     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: value
84                                                   \textcolor{comment}{! 属性の値}
85                               \textcolor{comment}{!}
86     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
87                                                   \textcolor{comment}{! 出力ファイルの設定に関する情報を}
88                               \textcolor{comment}{! 格納した構造体}
89                               \textcolor{comment}{!}
90                               \textcolor{comment}{! ここに指定するものは、}
91                               \textcolor{comment}{! HistoryCreate によって初期設定}
92                               \textcolor{comment}{! されていなければなりません。}
93                               \textcolor{comment}{!}
94     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
95                                                   \textcolor{comment}{! 例外処理用フラグ.}
96                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
97                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します.}
98                               \textcolor{comment}{! 引数 *err* が与えられる場合,}
99                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
100                               \textcolor{comment}{! *err* に .true. が代入されます.}
101                               \textcolor{comment}{!}
102                               \textcolor{comment}{! Exception handling flag.}
103                               \textcolor{comment}{! By default, when error occur in}
104                               \textcolor{comment}{! this procedure, the program aborts.}
105                               \textcolor{comment}{! If this *err* argument is given,}
106                               \textcolor{comment}{! .true. is substituted to *err* and}
107                               \textcolor{comment}{! the program does not abort.}
108     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
109     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
110     \textcolor{keywordtype}{integer}:: v\_ord
111     \textcolor{keywordtype}{logical}:: err\_not\_found
112     \textcolor{keywordtype}{integer}:: stat
113     \textcolor{keywordtype}{character(STRING)}:: cause\_c
114     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAddAttrChar0"}
115   \textcolor{keywordflow}{continue}
116     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
117       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
118       & c1=trim(varname), c2=trim(attrname), c3=trim(\textcolor{keywordtype}{value}))
119     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
120     cause\_c = \textcolor{stringliteral}{''}
121     \textcolor{comment}{! 操作対象決定}
122     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
123       hst => history
124     \textcolor{keywordflow}{else}
125       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
126 \textcolor{keywordflow}{    endif}
127     \textcolor{keywordflow}{if} (varname == \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
128       \textcolor{comment}{! とりあえず無駄だが大域属性を何度もつける}
129       \textcolor{keywordflow}{do}, v\_ord = 1, \textcolor{keyword}{size}(hst % vars)
130         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(hst % vars(v\_ord), \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus} // attrname, \textcolor{keywordtype}{value})
131 \textcolor{keywordflow}{      enddo}
132     \textcolor{keywordflow}{else}
133       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}( hst, varname, var, err\_not\_found )
134       \textcolor{keywordflow}{if} ( .not. err\_not\_found ) \textcolor{keywordflow}{then}
135         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(var, attrname, \textcolor{keywordtype}{value})
136       \textcolor{keywordflow}{else}
137         stat = nf90\_enotvar
138         cause\_c = \textcolor{stringliteral}{'varname="'} // trim(varname) // \textcolor{stringliteral}{'" is not found'}
139         \textcolor{keywordflow}{goto} 999
140 \textcolor{keywordflow}{      endif}
141 \textcolor{keywordflow}{    endif}
142 999 \textcolor{keywordflow}{continue}
143     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
144     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyaddattr_8f90_a397a28b58c3c13eae929b0b0bd8b3fca_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyaddattr_8f90_a9a959ec5ca80f2b685c142535acfd6b4}\label{historyaddattr_8f90_a9a959ec5ca80f2b685c142535acfd6b4}} 
\index{historyaddattr.\+f90@{historyaddattr.\+f90}!historyaddattrdouble0@{historyaddattrdouble0}}
\index{historyaddattrdouble0@{historyaddattrdouble0}!historyaddattr.\+f90@{historyaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyaddattrdouble0()}{historyaddattrdouble0()}}
{\footnotesize\ttfamily subroutine historyaddattrdouble0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 438 of file historyaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
438     \textcolor{comment}{!}
439     \textcolor{comment}{!}
440     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
441     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}
442     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
443     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
444     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
445     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
446     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
447     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
448     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
449     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
450     \textcolor{keywordtype}{implicit none}
451     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
452     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
453     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: value
454     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
455     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
456     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
457     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
458     \textcolor{keywordtype}{integer}:: v\_ord
459     \textcolor{keywordtype}{logical}:: err\_not\_found
460     \textcolor{keywordtype}{integer}:: stat
461     \textcolor{keywordtype}{character(STRING)}:: cause\_c
462     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAddAttrDouble0"}
463   \textcolor{keywordflow}{continue}
464     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
465       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
466       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
467     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
468     cause\_c = \textcolor{stringliteral}{''}
469     \textcolor{comment}{! 操作対象決定}
470     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
471       hst => history
472     \textcolor{keywordflow}{else}
473       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
474 \textcolor{keywordflow}{    endif}
475     \textcolor{keywordflow}{if} (varname == \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
476       \textcolor{comment}{! とりあえず無駄だが大域属性を何度もつける}
477       \textcolor{keywordflow}{do}, v\_ord = 1, \textcolor{keyword}{size}(hst % vars)
478         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(hst % vars(v\_ord), \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus} // attrname, (/\textcolor{keywordtype}{value}/))
479 \textcolor{keywordflow}{      enddo}
480     \textcolor{keywordflow}{else}
481       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}( hst, varname, var, err\_not\_found )
482       \textcolor{keywordflow}{if} ( .not. err\_not\_found ) \textcolor{keywordflow}{then}
483         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(var, attrname, (/\textcolor{keywordtype}{value}/))
484       \textcolor{keywordflow}{else}
485         stat = nf90\_enotvar
486         cause\_c = \textcolor{stringliteral}{'varname="'} // trim(varname) // \textcolor{stringliteral}{'" is not found'}
487         \textcolor{keywordflow}{goto} 999
488 \textcolor{keywordflow}{      endif}
489 \textcolor{keywordflow}{    endif}
490 999 \textcolor{keywordflow}{continue}
491     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
492     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyaddattr_8f90_a9a959ec5ca80f2b685c142535acfd6b4_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyaddattr_8f90_a224d4170b58e3075e3a08471b29b13c4}\label{historyaddattr_8f90_a224d4170b58e3075e3a08471b29b13c4}} 
\index{historyaddattr.\+f90@{historyaddattr.\+f90}!historyaddattrdouble1@{historyaddattrdouble1}}
\index{historyaddattrdouble1@{historyaddattrdouble1}!historyaddattr.\+f90@{historyaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyaddattrdouble1()}{historyaddattrdouble1()}}
{\footnotesize\ttfamily subroutine historyaddattrdouble1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), dimension(\+:), intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 496 of file historyaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
496     \textcolor{comment}{!}
497     \textcolor{comment}{!}
498     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
499     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}
500     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
501     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
502     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
503     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
504     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
505     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
506     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
507     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
508     \textcolor{keywordtype}{implicit none}
509     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
510     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
511     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
512     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
513     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
514     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
515     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
516     \textcolor{keywordtype}{integer}:: v\_ord
517     \textcolor{keywordtype}{logical}:: err\_not\_found
518     \textcolor{keywordtype}{integer}:: stat
519     \textcolor{keywordtype}{character(STRING)}:: cause\_c
520     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAddAttrDouble1"}
521   \textcolor{keywordflow}{continue}
522     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
523       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
524       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
525     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
526     cause\_c = \textcolor{stringliteral}{''}
527     \textcolor{comment}{! 操作対象決定}
528     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
529       hst => history
530     \textcolor{keywordflow}{else}
531       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
532 \textcolor{keywordflow}{    endif}
533     \textcolor{keywordflow}{if} (varname == \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
534       \textcolor{comment}{! とりあえず無駄だが大域属性を何度もつける}
535       \textcolor{keywordflow}{do}, v\_ord = 1, \textcolor{keyword}{size}(hst % vars)
536         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(hst % vars(v\_ord), \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus} // attrname, (/\textcolor{keywordtype}{value}/))
537 \textcolor{keywordflow}{      enddo}
538     \textcolor{keywordflow}{else}
539       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}( hst, varname, var, err\_not\_found )
540       \textcolor{keywordflow}{if} ( .not. err\_not\_found ) \textcolor{keywordflow}{then}
541         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(var, attrname, (/\textcolor{keywordtype}{value}/))
542       \textcolor{keywordflow}{else}
543         stat = nf90\_enotvar
544         cause\_c = \textcolor{stringliteral}{'varname="'} // trim(varname) // \textcolor{stringliteral}{'" is not found'}
545         \textcolor{keywordflow}{goto} 999
546 \textcolor{keywordflow}{      endif}
547 \textcolor{keywordflow}{    endif}
548 999 \textcolor{keywordflow}{continue}
549     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
550     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyaddattr_8f90_a224d4170b58e3075e3a08471b29b13c4_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyaddattr_8f90_a8e526832814457ad5b675a8bfd67a9f5}\label{historyaddattr_8f90_a8e526832814457ad5b675a8bfd67a9f5}} 
\index{historyaddattr.\+f90@{historyaddattr.\+f90}!historyaddattrint0@{historyaddattrint0}}
\index{historyaddattrint0@{historyaddattrint0}!historyaddattr.\+f90@{historyaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyaddattrint0()}{historyaddattrint0()}}
{\footnotesize\ttfamily subroutine historyaddattrint0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 206 of file historyaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
206     \textcolor{comment}{!}
207     \textcolor{comment}{!}
208     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
209     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}
210     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
211     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
212     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
213     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
214     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
215     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
216     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
217     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
218     \textcolor{keywordtype}{implicit none}
219     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
220     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
221     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: value
222     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
223     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
224     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
225     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
226     \textcolor{keywordtype}{integer}:: v\_ord
227     \textcolor{keywordtype}{logical}:: err\_not\_found
228     \textcolor{keywordtype}{integer}:: stat
229     \textcolor{keywordtype}{character(STRING)}:: cause\_c
230     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAddAttrInt0"}
231   \textcolor{keywordflow}{continue}
232     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
233       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
234       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
235     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
236     cause\_c = \textcolor{stringliteral}{''}
237     \textcolor{comment}{! 操作対象決定}
238     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
239       hst => history
240     \textcolor{keywordflow}{else}
241       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
242 \textcolor{keywordflow}{    endif}
243     \textcolor{keywordflow}{if} (varname == \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
244       \textcolor{comment}{! とりあえず無駄だが大域属性を何度もつける}
245       \textcolor{keywordflow}{do}, v\_ord = 1, \textcolor{keyword}{size}(hst % vars)
246         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(hst % vars(v\_ord), \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus} // attrname, (/\textcolor{keywordtype}{value}/))
247 \textcolor{keywordflow}{      enddo}
248     \textcolor{keywordflow}{else}
249       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}( hst, varname, var, err\_not\_found )
250       \textcolor{keywordflow}{if} ( .not. err\_not\_found ) \textcolor{keywordflow}{then}
251         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(var, attrname, (/\textcolor{keywordtype}{value}/))
252       \textcolor{keywordflow}{else}
253         stat = nf90\_enotvar
254         cause\_c = \textcolor{stringliteral}{'varname="'} // trim(varname) // \textcolor{stringliteral}{'" is not found'}
255         \textcolor{keywordflow}{goto} 999
256 \textcolor{keywordflow}{      endif}
257 \textcolor{keywordflow}{    endif}
258 999 \textcolor{keywordflow}{continue}
259     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
260     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyaddattr_8f90_a8e526832814457ad5b675a8bfd67a9f5_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyaddattr_8f90_ab4940dd4f4dfb4579fd34a3715e415f6}\label{historyaddattr_8f90_ab4940dd4f4dfb4579fd34a3715e415f6}} 
\index{historyaddattr.\+f90@{historyaddattr.\+f90}!historyaddattrint1@{historyaddattrint1}}
\index{historyaddattrint1@{historyaddattrint1}!historyaddattr.\+f90@{historyaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyaddattrint1()}{historyaddattrint1()}}
{\footnotesize\ttfamily subroutine historyaddattrint1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, dimension(\+:), intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 264 of file historyaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
264     \textcolor{comment}{!}
265     \textcolor{comment}{!}
266     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
267     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}
268     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
269     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
270     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
271     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
272     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
273     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
274     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
275     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
276     \textcolor{keywordtype}{implicit none}
277     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
278     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
279     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
280     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
281     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
282     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
283     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
284     \textcolor{keywordtype}{integer}:: v\_ord
285     \textcolor{keywordtype}{logical}:: err\_not\_found
286     \textcolor{keywordtype}{integer}:: stat
287     \textcolor{keywordtype}{character(STRING)}:: cause\_c
288     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAddAttrInt1"}
289   \textcolor{keywordflow}{continue}
290     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
291       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
292       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
293     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
294     cause\_c = \textcolor{stringliteral}{''}
295     \textcolor{comment}{! 操作対象決定}
296     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
297       hst => history
298     \textcolor{keywordflow}{else}
299       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
300 \textcolor{keywordflow}{    endif}
301     \textcolor{keywordflow}{if} (varname == \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
302       \textcolor{comment}{! とりあえず無駄だが大域属性を何度もつける}
303       \textcolor{keywordflow}{do}, v\_ord = 1, \textcolor{keyword}{size}(hst % vars)
304         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(hst % vars(v\_ord), \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus} // attrname, (/\textcolor{keywordtype}{value}/))
305 \textcolor{keywordflow}{      enddo}
306     \textcolor{keywordflow}{else}
307       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}( hst, varname, var, err\_not\_found )
308       \textcolor{keywordflow}{if} ( .not. err\_not\_found ) \textcolor{keywordflow}{then}
309         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(var, attrname, (/\textcolor{keywordtype}{value}/))
310       \textcolor{keywordflow}{else}
311         stat = nf90\_enotvar
312         cause\_c = \textcolor{stringliteral}{'varname="'} // trim(varname) // \textcolor{stringliteral}{'" is not found'}
313         \textcolor{keywordflow}{goto} 999
314 \textcolor{keywordflow}{      endif}
315 \textcolor{keywordflow}{    endif}
316 999 \textcolor{keywordflow}{continue}
317     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
318     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyaddattr_8f90_ab4940dd4f4dfb4579fd34a3715e415f6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyaddattr_8f90_a272f6d1bfc6700b774dc5c7a5a50254d}\label{historyaddattr_8f90_a272f6d1bfc6700b774dc5c7a5a50254d}} 
\index{historyaddattr.\+f90@{historyaddattr.\+f90}!historyaddattrlogical0@{historyaddattrlogical0}}
\index{historyaddattrlogical0@{historyaddattrlogical0}!historyaddattr.\+f90@{historyaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyaddattrlogical0()}{historyaddattrlogical0()}}
{\footnotesize\ttfamily subroutine historyaddattrlogical0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{logical, intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 148 of file historyaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
148     \textcolor{comment}{!}
149     \textcolor{comment}{!}
150     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
151     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}
152     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
153     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
154     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
155     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
156     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
157     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
158     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
159     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
160     \textcolor{keywordtype}{implicit none}
161     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
162     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
163     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}:: value
164     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
165     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
166     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
167     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
168     \textcolor{keywordtype}{integer}:: v\_ord
169     \textcolor{keywordtype}{logical}:: err\_not\_found
170     \textcolor{keywordtype}{integer}:: stat
171     \textcolor{keywordtype}{character(STRING)}:: cause\_c
172     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAddAttrLogical0"}
173   \textcolor{keywordflow}{continue}
174     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
175       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
176       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
177     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
178     cause\_c = \textcolor{stringliteral}{''}
179     \textcolor{comment}{! 操作対象決定}
180     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
181       hst => history
182     \textcolor{keywordflow}{else}
183       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
184 \textcolor{keywordflow}{    endif}
185     \textcolor{keywordflow}{if} (varname == \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
186       \textcolor{comment}{! とりあえず無駄だが大域属性を何度もつける}
187       \textcolor{keywordflow}{do}, v\_ord = 1, \textcolor{keyword}{size}(hst % vars)
188         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(hst % vars(v\_ord), \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus} // attrname, \textcolor{keywordtype}{value})
189 \textcolor{keywordflow}{      enddo}
190     \textcolor{keywordflow}{else}
191       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}( hst, varname, var, err\_not\_found )
192       \textcolor{keywordflow}{if} ( .not. err\_not\_found ) \textcolor{keywordflow}{then}
193         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(var, attrname, \textcolor{keywordtype}{value})
194       \textcolor{keywordflow}{else}
195         stat = nf90\_enotvar
196         cause\_c = \textcolor{stringliteral}{'varname="'} // trim(varname) // \textcolor{stringliteral}{'" is not found'}
197         \textcolor{keywordflow}{goto} 999
198 \textcolor{keywordflow}{      endif}
199 \textcolor{keywordflow}{    endif}
200 999 \textcolor{keywordflow}{continue}
201     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
202     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyaddattr_8f90_a272f6d1bfc6700b774dc5c7a5a50254d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyaddattr_8f90_a0c707575b6f0b6a6a4b87ef9873f8721}\label{historyaddattr_8f90_a0c707575b6f0b6a6a4b87ef9873f8721}} 
\index{historyaddattr.\+f90@{historyaddattr.\+f90}!historyaddattrreal0@{historyaddattrreal0}}
\index{historyaddattrreal0@{historyaddattrreal0}!historyaddattr.\+f90@{historyaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyaddattrreal0()}{historyaddattrreal0()}}
{\footnotesize\ttfamily subroutine historyaddattrreal0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 322 of file historyaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
322     \textcolor{comment}{!}
323     \textcolor{comment}{!}
324     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
325     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}
326     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
327     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
328     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
329     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
330     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
331     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
332     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
333     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
334     \textcolor{keywordtype}{implicit none}
335     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
336     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
337     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: value
338     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
339     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
340     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
341     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
342     \textcolor{keywordtype}{integer}:: v\_ord
343     \textcolor{keywordtype}{logical}:: err\_not\_found
344     \textcolor{keywordtype}{integer}:: stat
345     \textcolor{keywordtype}{character(STRING)}:: cause\_c
346     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAddAttrReal0"}
347   \textcolor{keywordflow}{continue}
348     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
349       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
350       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
351     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
352     cause\_c = \textcolor{stringliteral}{''}
353     \textcolor{comment}{! 操作対象決定}
354     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
355       hst => history
356     \textcolor{keywordflow}{else}
357       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
358 \textcolor{keywordflow}{    endif}
359     \textcolor{keywordflow}{if} (varname == \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
360       \textcolor{comment}{! とりあえず無駄だが大域属性を何度もつける}
361       \textcolor{keywordflow}{do}, v\_ord = 1, \textcolor{keyword}{size}(hst % vars)
362         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(hst % vars(v\_ord), \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus} // attrname, (/\textcolor{keywordtype}{value}/))
363 \textcolor{keywordflow}{      enddo}
364     \textcolor{keywordflow}{else}
365       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}( hst, varname, var, err\_not\_found )
366       \textcolor{keywordflow}{if} ( .not. err\_not\_found ) \textcolor{keywordflow}{then}
367         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(var, attrname, (/\textcolor{keywordtype}{value}/))
368       \textcolor{keywordflow}{else}
369         stat = nf90\_enotvar
370         cause\_c = \textcolor{stringliteral}{'varname="'} // trim(varname) // \textcolor{stringliteral}{'" is not found'}
371         \textcolor{keywordflow}{goto} 999
372 \textcolor{keywordflow}{      endif}
373 \textcolor{keywordflow}{    endif}
374 999 \textcolor{keywordflow}{continue}
375     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
376     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyaddattr_8f90_a0c707575b6f0b6a6a4b87ef9873f8721_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyaddattr_8f90_aafcc046358bdd8723640082253670bb1}\label{historyaddattr_8f90_aafcc046358bdd8723640082253670bb1}} 
\index{historyaddattr.\+f90@{historyaddattr.\+f90}!historyaddattrreal1@{historyaddattrreal1}}
\index{historyaddattrreal1@{historyaddattrreal1}!historyaddattr.\+f90@{historyaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyaddattrreal1()}{historyaddattrreal1()}}
{\footnotesize\ttfamily subroutine historyaddattrreal1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, dimension(\+:), intent(in)}]{value,  }\item[{type(gt\+\_\+history), intent(inout), optional, target}]{history,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 380 of file historyaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::hst\+\_\+empinoaxisdata, dc\+\_\+string\+::joinchar(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
380     \textcolor{comment}{!}
381     \textcolor{comment}{!}
382     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, 
      \hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}, \hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}, 
      \hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}
383     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}
384     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
385     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
386     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
387     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
388     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, nf90\_enotvar, 
      \hyperlink{namespacedc__error_ac9383c449e0a61a04a809199b7fe284b}{hst\_empinoaxisdata}
389     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
390     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}, \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
391     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
392     \textcolor{keywordtype}{implicit none}
393     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
394     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
395     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
396     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
397     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
398     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
399     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}):: var
400     \textcolor{keywordtype}{integer}:: v\_ord
401     \textcolor{keywordtype}{logical}:: err\_not\_found
402     \textcolor{keywordtype}{integer}:: stat
403     \textcolor{keywordtype}{character(STRING)}:: cause\_c
404     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAddAttrReal1"}
405   \textcolor{keywordflow}{continue}
406     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
407       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
408       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
409     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
410     cause\_c = \textcolor{stringliteral}{''}
411     \textcolor{comment}{! 操作対象決定}
412     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
413       hst => history
414     \textcolor{keywordflow}{else}
415       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
416 \textcolor{keywordflow}{    endif}
417     \textcolor{keywordflow}{if} (varname == \textcolor{stringliteral}{""}) \textcolor{keywordflow}{then}
418       \textcolor{comment}{! とりあえず無駄だが大域属性を何度もつける}
419       \textcolor{keywordflow}{do}, v\_ord = 1, \textcolor{keyword}{size}(hst % vars)
420         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(hst % vars(v\_ord), \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus} // attrname, (/\textcolor{keywordtype}{value}/))
421 \textcolor{keywordflow}{      enddo}
422     \textcolor{keywordflow}{else}
423       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1lookup__var__or__dim}{lookup\_var\_or\_dim}( hst, varname, var, err\_not\_found )
424       \textcolor{keywordflow}{if} ( .not. err\_not\_found ) \textcolor{keywordflow}{then}
425         \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(var, attrname, (/\textcolor{keywordtype}{value}/))
426       \textcolor{keywordflow}{else}
427         stat = nf90\_enotvar
428         cause\_c = \textcolor{stringliteral}{'varname="'} // trim(varname) // \textcolor{stringliteral}{'" is not found'}
429         \textcolor{keywordflow}{goto} 999
430 \textcolor{keywordflow}{      endif}
431 \textcolor{keywordflow}{    endif}
432 999 \textcolor{keywordflow}{continue}
433     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
434     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyaddattr_8f90_aafcc046358bdd8723640082253670bb1_cgraph}
\end{center}
\end{figure}
