\hypertarget{historyautoaddattr_8f90}{}\section{gtool/gtool\+\_\+historyauto/historyautoaddattr.f90 File Reference}
\label{historyautoaddattr_8f90}\index{gtool/gtool\+\_\+historyauto/historyautoaddattr.\+f90@{gtool/gtool\+\_\+historyauto/historyautoaddattr.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyautoaddattr_8f90_a54bf8fc23850ac32e2281fee8bacb391}{historyautoaddattrchar0} (varname, attrname, value)
\item 
subroutine \hyperlink{historyautoaddattr_8f90_ab9d93efb2763d31641a8f6d349ef7fd8}{historyautoaddattrlogical0} (varname, attrname, value)
\item 
subroutine \hyperlink{historyautoaddattr_8f90_a58f0037d378bb270be104724b0d3be22}{historyautoaddattrint0} (varname, attrname, value)
\item 
subroutine \hyperlink{historyautoaddattr_8f90_a16237b07aab35ce143a9d087c8b23cef}{historyautoaddattrint1} (varname, attrname, value)
\item 
subroutine \hyperlink{historyautoaddattr_8f90_ab622dfdb701a036d56401e451da3a87d}{historyautoaddattrreal0} (varname, attrname, value)
\item 
subroutine \hyperlink{historyautoaddattr_8f90_a74047de304f8e4ec1653d1b77303747b}{historyautoaddattrreal1} (varname, attrname, value)
\item 
subroutine \hyperlink{historyautoaddattr_8f90_ab381404fc077f0dd6fa670cd0e315438}{historyautoaddattrdouble0} (varname, attrname, value)
\item 
subroutine \hyperlink{historyautoaddattr_8f90_a4a5511470b40915c23be3a309ccbcd18}{historyautoaddattrdouble1} (varname, attrname, value)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyautoaddattr_8f90_a54bf8fc23850ac32e2281fee8bacb391}\label{historyautoaddattr_8f90_a54bf8fc23850ac32e2281fee8bacb391}} 
\index{historyautoaddattr.\+f90@{historyautoaddattr.\+f90}!historyautoaddattrchar0@{historyautoaddattrchar0}}
\index{historyautoaddattrchar0@{historyautoaddattrchar0}!historyautoaddattr.\+f90@{historyautoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyautoaddattrchar0()}{historyautoaddattrchar0()}}
{\footnotesize\ttfamily subroutine historyautoaddattrchar0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{character($\ast$), intent(in)}]{value }\end{DoxyParamCaption})}



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.


\begin{DoxyCode}
31     \textcolor{comment}{!}
32                         \textcolor{comment}{!}
33     \textcolor{comment}{! 座標変数および座標重み変数に属性を付加します. }
34     \textcolor{comment}{! このサブルーチンを用いる前に, HistoryAutoCreate による初期設定が}
35     \textcolor{comment}{! 必要です.}
36     \textcolor{comment}{! }
37     \textcolor{comment}{! * 座標変数については, HistoryAutoCreate の "dims" に与えられた}
38     \textcolor{comment}{!   もののみ指定可能です. }
39     \textcolor{comment}{!}
40     \textcolor{comment}{! * 座標重み変数については, HistoryAutoAddWeight で与えられた}
41     \textcolor{comment}{!   もののみ指定可能です. }
42     \textcolor{comment}{!}
43     \textcolor{comment}{! * *HistoryAutoAddAttr* は複数のサブルーチンの総称名です. *value* }
44     \textcolor{comment}{!   にはいくつかの型を与えることが可能です.}
45     \textcolor{comment}{!   下記のサブルーチンを参照ください.}
46     \textcolor{comment}{!}
47     \textcolor{comment}{! Add attributes axes or weights of axes. }
48     \textcolor{comment}{! Initialization by "HistoryAutoCreate" is needed }
49     \textcolor{comment}{! before use of this subroutine. }
50     \textcolor{comment}{! }
51     \textcolor{comment}{! * About axes, "dims" specified by "HistoryAutoCreate" can be}
52     \textcolor{comment}{!   specified. }
53     \textcolor{comment}{!}
54     \textcolor{comment}{! * About weights of axes, "dims" specified by "HistoryAutoAddWeight" }
55     \textcolor{comment}{!   can be specified. }
56     \textcolor{comment}{!}
57     \textcolor{comment}{! * "HistoryAutoAddAttr" is a generic name of multiple subroutines. }
58     \textcolor{comment}{!   Then some data type can be specified to "value". }
59     \textcolor{comment}{!}
60                     
61     \textcolor{comment}{!}
62     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
63       & \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}
64     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, &
65       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
66     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
67     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
68     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
69     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
70     \textcolor{keywordtype}{implicit none}
71     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
72                                                   \textcolor{comment}{! 変数の名前.}
73                               \textcolor{comment}{!}
74                               \textcolor{comment}{! ここで指定するものは,}
75                               \textcolor{comment}{! HistoryAutoCreate の *dims* ,}
76                               \textcolor{comment}{! または HistoryAutoAddWeight の}
77                               \textcolor{comment}{! *varname* で既に指定されてい}
78                               \textcolor{comment}{! なければなりません.}
79                               \textcolor{comment}{! }
80                               \textcolor{comment}{! Name of a variable. }
81                               \textcolor{comment}{!}
82                               \textcolor{comment}{! This must be specified with *dims*}
83                               \textcolor{comment}{! in HistoryAutoCreate, or }
84                               \textcolor{comment}{! *varname* in "HistoryAutoAddWeight". }
85                               \textcolor{comment}{! }
86                     
87     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
88                                                   \textcolor{comment}{! 属性の名前. }
89                               \textcolor{comment}{! Name of an attribute. }
90                     
91     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: value
92                                                   \textcolor{comment}{! 属性の値. }
93                               \textcolor{comment}{! Value of an attribute. }
94                     
95 
96     \textcolor{keywordtype}{character(STRING)}:: name
97     \textcolor{keywordtype}{integer}:: stat, i
98     \textcolor{keywordtype}{character(STRING)}:: cause\_c
99     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoAddAttrChar0"}
100   \textcolor{keywordflow}{continue}
101     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
102       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
103       & c1=trim(varname), c2=trim(attrname), c3=trim(\textcolor{keywordtype}{value}))
104     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
105     cause\_c = \textcolor{stringliteral}{""}
106 
107     \textcolor{comment}{! 初期設定チェック}
108     \textcolor{comment}{! Check initialization}
109     \textcolor{comment}{!}
110     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
111       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
112       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
113       \textcolor{keywordflow}{goto} 999
114 \textcolor{keywordflow}{    end if}
115 
116     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
117       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
118         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
119         & name = name )            \textcolor{comment}{! (out)}
120       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
121         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
122           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &              \textcolor{comment}{! (inout)}
123           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
124         \textcolor{keywordflow}{goto} 999
125 \textcolor{keywordflow}{      end if}
126 \textcolor{keywordflow}{    end do}
127 
128     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}
129       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
130         & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &  \textcolor{comment}{! (in)}
131         & name = name )                  \textcolor{comment}{! (out)}
132       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
133         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
134           & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &        \textcolor{comment}{! (inout)}
135           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
136         \textcolor{keywordflow}{goto} 999
137 \textcolor{keywordflow}{      end if}
138 \textcolor{keywordflow}{    end do}
139 
140     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
141     cause\_c = varname
142 
143 999 \textcolor{keywordflow}{continue}
144     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
145     \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]{historyautoaddattr_8f90_a54bf8fc23850ac32e2281fee8bacb391_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoaddattr_8f90_ab381404fc077f0dd6fa670cd0e315438}\label{historyautoaddattr_8f90_ab381404fc077f0dd6fa670cd0e315438}} 
\index{historyautoaddattr.\+f90@{historyautoaddattr.\+f90}!historyautoaddattrdouble0@{historyautoaddattrdouble0}}
\index{historyautoaddattrdouble0@{historyautoaddattrdouble0}!historyautoaddattr.\+f90@{historyautoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyautoaddattrdouble0()}{historyautoaddattrdouble0()}}
{\footnotesize\ttfamily subroutine historyautoaddattrdouble0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), intent(in)}]{value }\end{DoxyParamCaption})}



Definition at line 527 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.


\begin{DoxyCode}
527     \textcolor{comment}{!}
528                     
529     \textcolor{comment}{!}
530     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
531       & \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}
532     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, &
533       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
534     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
535     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
536     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
537     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
538     \textcolor{keywordtype}{implicit none}
539     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
540                     
541     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
542                     
543     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: value
544                     
545 
546     \textcolor{keywordtype}{character(STRING)}:: name
547     \textcolor{keywordtype}{integer}:: stat, i
548     \textcolor{keywordtype}{character(STRING)}:: cause\_c
549     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoAddAttrDouble0"}
550   \textcolor{keywordflow}{continue}
551     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
552       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
553       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
554     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
555     cause\_c = \textcolor{stringliteral}{""}
556 
557     \textcolor{comment}{! 初期設定チェック}
558     \textcolor{comment}{! Check initialization}
559     \textcolor{comment}{!}
560     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
561       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
562       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
563       \textcolor{keywordflow}{goto} 999
564 \textcolor{keywordflow}{    end if}
565 
566     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
567       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
568         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
569         & name = name )            \textcolor{comment}{! (out)}
570       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
571         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
572           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &              \textcolor{comment}{! (inout)}
573           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
574         \textcolor{keywordflow}{goto} 999
575 \textcolor{keywordflow}{      end if}
576 \textcolor{keywordflow}{    end do}
577 
578     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}
579       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
580         & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &  \textcolor{comment}{! (in)}
581         & name = name )                  \textcolor{comment}{! (out)}
582       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
583         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
584           & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &        \textcolor{comment}{! (inout)}
585           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
586         \textcolor{keywordflow}{goto} 999
587 \textcolor{keywordflow}{      end if}
588 \textcolor{keywordflow}{    end do}
589 
590     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
591     cause\_c = varname
592 
593 999 \textcolor{keywordflow}{continue}
594     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
595     \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]{historyautoaddattr_8f90_ab381404fc077f0dd6fa670cd0e315438_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoaddattr_8f90_a4a5511470b40915c23be3a309ccbcd18}\label{historyautoaddattr_8f90_a4a5511470b40915c23be3a309ccbcd18}} 
\index{historyautoaddattr.\+f90@{historyautoaddattr.\+f90}!historyautoaddattrdouble1@{historyautoaddattrdouble1}}
\index{historyautoaddattrdouble1@{historyautoaddattrdouble1}!historyautoaddattr.\+f90@{historyautoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyautoaddattrdouble1()}{historyautoaddattrdouble1()}}
{\footnotesize\ttfamily subroutine historyautoaddattrdouble1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), dimension(\+:), intent(in)}]{value }\end{DoxyParamCaption})}



Definition at line 602 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.


\begin{DoxyCode}
602     \textcolor{comment}{!}
603                     
604     \textcolor{comment}{!}
605     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
606       & \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}
607     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, &
608       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
609     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
610     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
611     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
612     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
613     \textcolor{keywordtype}{implicit none}
614     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
615                     
616     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
617                     
618     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
619                     
620 
621     \textcolor{keywordtype}{character(STRING)}:: name
622     \textcolor{keywordtype}{integer}:: stat, i
623     \textcolor{keywordtype}{character(STRING)}:: cause\_c
624     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoAddAttrDouble1"}
625   \textcolor{keywordflow}{continue}
626     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
627       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
628       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
629     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
630     cause\_c = \textcolor{stringliteral}{""}
631 
632     \textcolor{comment}{! 初期設定チェック}
633     \textcolor{comment}{! Check initialization}
634     \textcolor{comment}{!}
635     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
636       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
637       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
638       \textcolor{keywordflow}{goto} 999
639 \textcolor{keywordflow}{    end if}
640 
641     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
642       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
643         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
644         & name = name )            \textcolor{comment}{! (out)}
645       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
646         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
647           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &              \textcolor{comment}{! (inout)}
648           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
649         \textcolor{keywordflow}{goto} 999
650 \textcolor{keywordflow}{      end if}
651 \textcolor{keywordflow}{    end do}
652 
653     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}
654       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
655         & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &  \textcolor{comment}{! (in)}
656         & name = name )                  \textcolor{comment}{! (out)}
657       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
658         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
659           & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &        \textcolor{comment}{! (inout)}
660           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
661         \textcolor{keywordflow}{goto} 999
662 \textcolor{keywordflow}{      end if}
663 \textcolor{keywordflow}{    end do}
664 
665     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
666     cause\_c = varname
667 
668 999 \textcolor{keywordflow}{continue}
669     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
670     \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]{historyautoaddattr_8f90_a4a5511470b40915c23be3a309ccbcd18_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoaddattr_8f90_a58f0037d378bb270be104724b0d3be22}\label{historyautoaddattr_8f90_a58f0037d378bb270be104724b0d3be22}} 
\index{historyautoaddattr.\+f90@{historyautoaddattr.\+f90}!historyautoaddattrint0@{historyautoaddattrint0}}
\index{historyautoaddattrint0@{historyautoaddattrint0}!historyautoaddattr.\+f90@{historyautoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyautoaddattrint0()}{historyautoaddattrint0()}}
{\footnotesize\ttfamily subroutine historyautoaddattrint0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, intent(in)}]{value }\end{DoxyParamCaption})}



Definition at line 227 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.


\begin{DoxyCode}
227     \textcolor{comment}{!}
228                     
229     \textcolor{comment}{!}
230     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
231       & \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}
232     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, &
233       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
234     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
235     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
236     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
237     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
238     \textcolor{keywordtype}{implicit none}
239     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
240                     
241     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
242                     
243     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: value
244                     
245 
246     \textcolor{keywordtype}{character(STRING)}:: name
247     \textcolor{keywordtype}{integer}:: stat, i
248     \textcolor{keywordtype}{character(STRING)}:: cause\_c
249     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoAddAttrInt0"}
250   \textcolor{keywordflow}{continue}
251     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
252       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
253       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
254     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
255     cause\_c = \textcolor{stringliteral}{""}
256 
257     \textcolor{comment}{! 初期設定チェック}
258     \textcolor{comment}{! Check initialization}
259     \textcolor{comment}{!}
260     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
261       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
262       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
263       \textcolor{keywordflow}{goto} 999
264 \textcolor{keywordflow}{    end if}
265 
266     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
267       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
268         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
269         & name = name )            \textcolor{comment}{! (out)}
270       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
271         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
272           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &              \textcolor{comment}{! (inout)}
273           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
274         \textcolor{keywordflow}{goto} 999
275 \textcolor{keywordflow}{      end if}
276 \textcolor{keywordflow}{    end do}
277 
278     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}
279       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
280         & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &  \textcolor{comment}{! (in)}
281         & name = name )                  \textcolor{comment}{! (out)}
282       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
283         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
284           & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &        \textcolor{comment}{! (inout)}
285           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
286         \textcolor{keywordflow}{goto} 999
287 \textcolor{keywordflow}{      end if}
288 \textcolor{keywordflow}{    end do}
289 
290     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
291     cause\_c = varname
292 
293 999 \textcolor{keywordflow}{continue}
294     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
295     \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]{historyautoaddattr_8f90_a58f0037d378bb270be104724b0d3be22_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoaddattr_8f90_a16237b07aab35ce143a9d087c8b23cef}\label{historyautoaddattr_8f90_a16237b07aab35ce143a9d087c8b23cef}} 
\index{historyautoaddattr.\+f90@{historyautoaddattr.\+f90}!historyautoaddattrint1@{historyautoaddattrint1}}
\index{historyautoaddattrint1@{historyautoaddattrint1}!historyautoaddattr.\+f90@{historyautoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyautoaddattrint1()}{historyautoaddattrint1()}}
{\footnotesize\ttfamily subroutine historyautoaddattrint1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, dimension(\+:), intent(in)}]{value }\end{DoxyParamCaption})}



Definition at line 302 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.


\begin{DoxyCode}
302     \textcolor{comment}{!}
303                     
304     \textcolor{comment}{!}
305     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
306       & \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}
307     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, &
308       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
309     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
310     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
311     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
312     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
313     \textcolor{keywordtype}{implicit none}
314     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
315                     
316     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
317                     
318     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
319                     
320 
321     \textcolor{keywordtype}{character(STRING)}:: name
322     \textcolor{keywordtype}{integer}:: stat, i
323     \textcolor{keywordtype}{character(STRING)}:: cause\_c
324     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoAddAttrInt1"}
325   \textcolor{keywordflow}{continue}
326     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
327       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
328       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
329     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
330     cause\_c = \textcolor{stringliteral}{""}
331 
332     \textcolor{comment}{! 初期設定チェック}
333     \textcolor{comment}{! Check initialization}
334     \textcolor{comment}{!}
335     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
336       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
337       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
338       \textcolor{keywordflow}{goto} 999
339 \textcolor{keywordflow}{    end if}
340 
341     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
342       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
343         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
344         & name = name )            \textcolor{comment}{! (out)}
345       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
346         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
347           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &              \textcolor{comment}{! (inout)}
348           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
349         \textcolor{keywordflow}{goto} 999
350 \textcolor{keywordflow}{      end if}
351 \textcolor{keywordflow}{    end do}
352 
353     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}
354       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
355         & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &  \textcolor{comment}{! (in)}
356         & name = name )                  \textcolor{comment}{! (out)}
357       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
358         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
359           & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &        \textcolor{comment}{! (inout)}
360           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
361         \textcolor{keywordflow}{goto} 999
362 \textcolor{keywordflow}{      end if}
363 \textcolor{keywordflow}{    end do}
364 
365     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
366     cause\_c = varname
367 
368 999 \textcolor{keywordflow}{continue}
369     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
370     \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]{historyautoaddattr_8f90_a16237b07aab35ce143a9d087c8b23cef_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoaddattr_8f90_ab9d93efb2763d31641a8f6d349ef7fd8}\label{historyautoaddattr_8f90_ab9d93efb2763d31641a8f6d349ef7fd8}} 
\index{historyautoaddattr.\+f90@{historyautoaddattr.\+f90}!historyautoaddattrlogical0@{historyautoaddattrlogical0}}
\index{historyautoaddattrlogical0@{historyautoaddattrlogical0}!historyautoaddattr.\+f90@{historyautoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyautoaddattrlogical0()}{historyautoaddattrlogical0()}}
{\footnotesize\ttfamily subroutine historyautoaddattrlogical0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{logical, intent(in)}]{value }\end{DoxyParamCaption})}



Definition at line 152 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.


\begin{DoxyCode}
152     \textcolor{comment}{!}
153                     
154     \textcolor{comment}{!}
155     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
156       & \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}
157     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, &
158       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
159     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
160     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
161     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
162     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
163     \textcolor{keywordtype}{implicit none}
164     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
165                     
166     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
167                     
168     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}:: value
169                     
170 
171     \textcolor{keywordtype}{character(STRING)}:: name
172     \textcolor{keywordtype}{integer}:: stat, i
173     \textcolor{keywordtype}{character(STRING)}:: cause\_c
174     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoAddAttrLogical0"}
175   \textcolor{keywordflow}{continue}
176     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
177       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
178       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
179     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
180     cause\_c = \textcolor{stringliteral}{""}
181 
182     \textcolor{comment}{! 初期設定チェック}
183     \textcolor{comment}{! Check initialization}
184     \textcolor{comment}{!}
185     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
186       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
187       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
188       \textcolor{keywordflow}{goto} 999
189 \textcolor{keywordflow}{    end if}
190 
191     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
192       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
193         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
194         & name = name )            \textcolor{comment}{! (out)}
195       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
196         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
197           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &              \textcolor{comment}{! (inout)}
198           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
199         \textcolor{keywordflow}{goto} 999
200 \textcolor{keywordflow}{      end if}
201 \textcolor{keywordflow}{    end do}
202 
203     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}
204       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
205         & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &  \textcolor{comment}{! (in)}
206         & name = name )                  \textcolor{comment}{! (out)}
207       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
208         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
209           & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &        \textcolor{comment}{! (inout)}
210           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
211         \textcolor{keywordflow}{goto} 999
212 \textcolor{keywordflow}{      end if}
213 \textcolor{keywordflow}{    end do}
214 
215     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
216     cause\_c = varname
217 
218 999 \textcolor{keywordflow}{continue}
219     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
220     \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]{historyautoaddattr_8f90_ab9d93efb2763d31641a8f6d349ef7fd8_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoaddattr_8f90_ab622dfdb701a036d56401e451da3a87d}\label{historyautoaddattr_8f90_ab622dfdb701a036d56401e451da3a87d}} 
\index{historyautoaddattr.\+f90@{historyautoaddattr.\+f90}!historyautoaddattrreal0@{historyautoaddattrreal0}}
\index{historyautoaddattrreal0@{historyautoaddattrreal0}!historyautoaddattr.\+f90@{historyautoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyautoaddattrreal0()}{historyautoaddattrreal0()}}
{\footnotesize\ttfamily subroutine historyautoaddattrreal0 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, intent(in)}]{value }\end{DoxyParamCaption})}



Definition at line 377 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.


\begin{DoxyCode}
377     \textcolor{comment}{!}
378                     
379     \textcolor{comment}{!}
380     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
381       & \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}
382     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, &
383       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
384     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
385     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
386     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
387     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
388     \textcolor{keywordtype}{implicit none}
389     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
390                     
391     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
392                     
393     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: value
394                     
395 
396     \textcolor{keywordtype}{character(STRING)}:: name
397     \textcolor{keywordtype}{integer}:: stat, i
398     \textcolor{keywordtype}{character(STRING)}:: cause\_c
399     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoAddAttrReal0"}
400   \textcolor{keywordflow}{continue}
401     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
402       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
403       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
404     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
405     cause\_c = \textcolor{stringliteral}{""}
406 
407     \textcolor{comment}{! 初期設定チェック}
408     \textcolor{comment}{! Check initialization}
409     \textcolor{comment}{!}
410     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
411       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
412       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
413       \textcolor{keywordflow}{goto} 999
414 \textcolor{keywordflow}{    end if}
415 
416     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
417       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
418         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
419         & name = name )            \textcolor{comment}{! (out)}
420       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
421         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
422           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &              \textcolor{comment}{! (inout)}
423           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
424         \textcolor{keywordflow}{goto} 999
425 \textcolor{keywordflow}{      end if}
426 \textcolor{keywordflow}{    end do}
427 
428     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}
429       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
430         & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &  \textcolor{comment}{! (in)}
431         & name = name )                  \textcolor{comment}{! (out)}
432       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
433         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
434           & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &        \textcolor{comment}{! (inout)}
435           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
436         \textcolor{keywordflow}{goto} 999
437 \textcolor{keywordflow}{      end if}
438 \textcolor{keywordflow}{    end do}
439 
440     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
441     cause\_c = varname
442 
443 999 \textcolor{keywordflow}{continue}
444     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
445     \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]{historyautoaddattr_8f90_ab622dfdb701a036d56401e451da3a87d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoaddattr_8f90_a74047de304f8e4ec1653d1b77303747b}\label{historyautoaddattr_8f90_a74047de304f8e4ec1653d1b77303747b}} 
\index{historyautoaddattr.\+f90@{historyautoaddattr.\+f90}!historyautoaddattrreal1@{historyautoaddattrreal1}}
\index{historyautoaddattrreal1@{historyautoaddattrreal1}!historyautoaddattr.\+f90@{historyautoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyautoaddattrreal1()}{historyautoaddattrreal1()}}
{\footnotesize\ttfamily subroutine historyautoaddattrreal1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{varname,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, dimension(\+:), intent(in)}]{value }\end{DoxyParamCaption})}



Definition at line 452 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.


\begin{DoxyCode}
452     \textcolor{comment}{!}
453                     
454     \textcolor{comment}{!}
455     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
456       & \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}
457     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, &
458       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}, 
      \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
459     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
460     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
461     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
462     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
463     \textcolor{keywordtype}{implicit none}
464     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: varname
465                     
466     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname
467                     
468     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
469                     
470 
471     \textcolor{keywordtype}{character(STRING)}:: name
472     \textcolor{keywordtype}{integer}:: stat, i
473     \textcolor{keywordtype}{character(STRING)}:: cause\_c
474     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoAddAttrReal1"}
475   \textcolor{keywordflow}{continue}
476     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
477       & \textcolor{stringliteral}{'varname=<%c> attrname=<%c>, value=<%c>'}, &
478       & c1=trim(varname), c2=trim(attrname), c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
479     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
480     cause\_c = \textcolor{stringliteral}{""}
481 
482     \textcolor{comment}{! 初期設定チェック}
483     \textcolor{comment}{! Check initialization}
484     \textcolor{comment}{!}
485     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
486       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
487       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
488       \textcolor{keywordflow}{goto} 999
489 \textcolor{keywordflow}{    end if}
490 
491     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
492       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
493         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
494         & name = name )            \textcolor{comment}{! (out)}
495       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
496         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
497           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &              \textcolor{comment}{! (inout)}
498           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
499         \textcolor{keywordflow}{goto} 999
500 \textcolor{keywordflow}{      end if}
501 \textcolor{keywordflow}{    end do}
502 
503     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}
504       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( &
505         & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &  \textcolor{comment}{! (in)}
506         & name = name )                  \textcolor{comment}{! (out)}
507       \textcolor{keywordflow}{if} ( trim(varname) == trim(name) ) \textcolor{keywordflow}{then}
508         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
509           & varinfo = \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i), &        \textcolor{comment}{! (inout)}
510           & attrname = attrname, \textcolor{keywordtype}{value} = \textcolor{keywordtype}{value} ) \textcolor{comment}{! (in)}
511         \textcolor{keywordflow}{goto} 999
512 \textcolor{keywordflow}{      end if}
513 \textcolor{keywordflow}{    end do}
514 
515     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
516     cause\_c = varname
517 
518 999 \textcolor{keywordflow}{continue}
519     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
520     \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]{historyautoaddattr_8f90_a74047de304f8e4ec1653d1b77303747b_cgraph}
\end{center}
\end{figure}
