\hypertarget{historyvarinfoaddattr_8f90}{}\section{gtool/gtool\+\_\+history/historyvarinfoaddattr.f90 File Reference}
\label{historyvarinfoaddattr_8f90}\index{gtool/gtool\+\_\+history/historyvarinfoaddattr.\+f90@{gtool/gtool\+\_\+history/historyvarinfoaddattr.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_ace779fc789e43e97d7210d79c2da667d}{historyvarinfoaddattrchar0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_ad4ebdd90934e6f1066f699ac5049b5fa}{historyvarinfoaddattr2char0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_a13238bfd07fa05e8ed1c56620a4fe4a1}{historyvarinfoaddattrlogical0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_a6420fe607f42b5d4acb4314748295095}{historyvarinfoaddattr2logical0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_aefe0cb1e9189cf70b432b2daf2eff2c3}{historyvarinfoaddattrint0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_ae680b2711f19e5f9d995a603d77b4c51}{historyvarinfoaddattr2int0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_afd3d5db60392cc68b1bbd7fa688ef138}{historyvarinfoaddattrint1} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_ab90bf4271ca3f7d8d0f73c6bda3e0916}{historyvarinfoaddattr2int1} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_a97b955e733d86797c5ba52740531a1a1}{historyvarinfoaddattrreal0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_aad2b1d0093632065ee97b1963c1be7a6}{historyvarinfoaddattr2real0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_af8fe3b028091127a900a501a3758681e}{historyvarinfoaddattrreal1} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_aa9d8c65c5cf93984dbe0159c3da107de}{historyvarinfoaddattr2real1} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_a9906447fa7051bb45882b2e6ba5e19dd}{historyvarinfoaddattrdouble0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_a9690ac7ff08443c886e989fcf4ecff74}{historyvarinfoaddattr2double0} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_ae7ee6931b0a0c4dc76e0bd24fd936100}{historyvarinfoaddattrdouble1} (varinfo, attrname, value, err)
\item 
subroutine \hyperlink{historyvarinfoaddattr_8f90_af1755a2d952e9d32e567b80f7fa73393}{historyvarinfoaddattr2double1} (varinfo, attrname, value, err)
\end{DoxyCompactItemize}


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



Definition at line 129 of file historyvarinfoaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
129     \textcolor{comment}{!}
130                         \textcolor{comment}{!}
131     \textcolor{comment}{! 使用方法は HistoryVarinfoAddAttr と同様です. }
132     \textcolor{comment}{!}
133     \textcolor{comment}{! Usage is same as "HistoryVarinfoAddAttr".}
134     \textcolor{comment}{!}
135     \textcolor{comment}{!--}
136     \textcolor{comment}{! 総称名 Put\_Attr として提供するための関数です. }
137     \textcolor{comment}{! 機能は HistoryVarinfoAttr と同じです. }
138     \textcolor{comment}{!++}
139                     
140     \textcolor{comment}{!}
141     \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}
142     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}
143     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
144     \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}
145     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
146     \textcolor{keywordtype}{implicit none}
147     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
148     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
149     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: value
150     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
151     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttr2Char0"}
152   \textcolor{keywordflow}{continue}
153     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
154     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
155       & varinfo, attrname, \textcolor{keywordtype}{value}, err )
156     \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]{historyvarinfoaddattr_8f90_ad4ebdd90934e6f1066f699ac5049b5fa_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_a9690ac7ff08443c886e989fcf4ecff74}\label{historyvarinfoaddattr_8f90_a9690ac7ff08443c886e989fcf4ecff74}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattr2double0@{historyvarinfoaddattr2double0}}
\index{historyvarinfoaddattr2double0@{historyvarinfoaddattr2double0}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattr2double0()}{historyvarinfoaddattr2double0()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattr2double0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 788 of file historyvarinfoaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
788     \textcolor{comment}{!}
789                     
790     \textcolor{comment}{!}
791     \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}
792     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}
793     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
794     \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}
795     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
796     \textcolor{keywordtype}{implicit none}
797     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
798     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
799     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: value
800     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
801     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttr2Double0"}
802   \textcolor{keywordflow}{continue}
803     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
804     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
805       & varinfo, attrname, \textcolor{keywordtype}{value}, err )
806     \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]{historyvarinfoaddattr_8f90_a9690ac7ff08443c886e989fcf4ecff74_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_af1755a2d952e9d32e567b80f7fa73393}\label{historyvarinfoaddattr_8f90_af1755a2d952e9d32e567b80f7fa73393}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattr2double1@{historyvarinfoaddattr2double1}}
\index{historyvarinfoaddattr2double1@{historyvarinfoaddattr2double1}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattr2double1()}{historyvarinfoaddattr2double1()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattr2double1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 897 of file historyvarinfoaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
897     \textcolor{comment}{!}
898                     
899     \textcolor{comment}{!}
900     \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}
901     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}
902     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
903     \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}
904     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
905     \textcolor{keywordtype}{implicit none}
906     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
907     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
908     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
909     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
910     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttr2Double1"}
911   \textcolor{keywordflow}{continue}
912     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
913     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
914       & varinfo, attrname, \textcolor{keywordtype}{value}, err )
915     \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]{historyvarinfoaddattr_8f90_af1755a2d952e9d32e567b80f7fa73393_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_ae680b2711f19e5f9d995a603d77b4c51}\label{historyvarinfoaddattr_8f90_ae680b2711f19e5f9d995a603d77b4c51}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattr2int0@{historyvarinfoaddattr2int0}}
\index{historyvarinfoaddattr2int0@{historyvarinfoaddattr2int0}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattr2int0()}{historyvarinfoaddattr2int0()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattr2int0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 354 of file historyvarinfoaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
354     \textcolor{comment}{!}
355                     
356     \textcolor{comment}{!}
357     \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}
358     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}
359     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
360     \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}
361     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
362     \textcolor{keywordtype}{implicit none}
363     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
364     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
365     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: value
366     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
367     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttr2Int0"}
368   \textcolor{keywordflow}{continue}
369     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
370     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
371       & varinfo, attrname, \textcolor{keywordtype}{value}, err )
372     \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]{historyvarinfoaddattr_8f90_ae680b2711f19e5f9d995a603d77b4c51_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_ab90bf4271ca3f7d8d0f73c6bda3e0916}\label{historyvarinfoaddattr_8f90_ab90bf4271ca3f7d8d0f73c6bda3e0916}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattr2int1@{historyvarinfoaddattr2int1}}
\index{historyvarinfoaddattr2int1@{historyvarinfoaddattr2int1}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattr2int1()}{historyvarinfoaddattr2int1()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattr2int1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 463 of file historyvarinfoaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
463     \textcolor{comment}{!}
464                     
465     \textcolor{comment}{!}
466     \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}
467     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}
468     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
469     \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}
470     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
471     \textcolor{keywordtype}{implicit none}
472     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
473     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
474     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
475     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
476     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttr2Int1"}
477   \textcolor{keywordflow}{continue}
478     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
479     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
480       & varinfo, attrname, \textcolor{keywordtype}{value}, err )
481     \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]{historyvarinfoaddattr_8f90_ab90bf4271ca3f7d8d0f73c6bda3e0916_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_a6420fe607f42b5d4acb4314748295095}\label{historyvarinfoaddattr_8f90_a6420fe607f42b5d4acb4314748295095}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattr2logical0@{historyvarinfoaddattr2logical0}}
\index{historyvarinfoaddattr2logical0@{historyvarinfoaddattr2logical0}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattr2logical0()}{historyvarinfoaddattr2logical0()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattr2logical0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{logical, intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 246 of file historyvarinfoaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
246     \textcolor{comment}{!}
247                     
248     \textcolor{comment}{!}
249     \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}
250     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}
251     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
252     \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}
253     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
254     \textcolor{keywordtype}{implicit none}
255     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
256     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
257     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}:: value
258     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
259     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttr2Logical0"}
260   \textcolor{keywordflow}{continue}
261     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
262     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
263       & varinfo, attrname, \textcolor{keywordtype}{value}, err )
264     \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]{historyvarinfoaddattr_8f90_a6420fe607f42b5d4acb4314748295095_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_aad2b1d0093632065ee97b1963c1be7a6}\label{historyvarinfoaddattr_8f90_aad2b1d0093632065ee97b1963c1be7a6}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattr2real0@{historyvarinfoaddattr2real0}}
\index{historyvarinfoaddattr2real0@{historyvarinfoaddattr2real0}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattr2real0()}{historyvarinfoaddattr2real0()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattr2real0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 571 of file historyvarinfoaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
571     \textcolor{comment}{!}
572                     
573     \textcolor{comment}{!}
574     \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}
575     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}
576     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
577     \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}
578     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
579     \textcolor{keywordtype}{implicit none}
580     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
581     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
582     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: value
583     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
584     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttr2Real0"}
585   \textcolor{keywordflow}{continue}
586     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
587     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
588       & varinfo, attrname, \textcolor{keywordtype}{value}, err )
589     \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]{historyvarinfoaddattr_8f90_aad2b1d0093632065ee97b1963c1be7a6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_aa9d8c65c5cf93984dbe0159c3da107de}\label{historyvarinfoaddattr_8f90_aa9d8c65c5cf93984dbe0159c3da107de}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattr2real1@{historyvarinfoaddattr2real1}}
\index{historyvarinfoaddattr2real1@{historyvarinfoaddattr2real1}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattr2real1()}{historyvarinfoaddattr2real1()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattr2real1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 680 of file historyvarinfoaddattr.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, and dc\+\_\+trace\+::endsub().


\begin{DoxyCode}
680     \textcolor{comment}{!}
681                     
682     \textcolor{comment}{!}
683     \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}
684     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}
685     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
686     \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}
687     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
688     \textcolor{keywordtype}{implicit none}
689     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
690     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
691     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
692     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
693     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttr2Real1"}
694   \textcolor{keywordflow}{continue}
695     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
696     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoaddattr}{historyvarinfoaddattr}( &
697       & varinfo, attrname, \textcolor{keywordtype}{value}, err )
698     \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]{historyvarinfoaddattr_8f90_aa9d8c65c5cf93984dbe0159c3da107de_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_ace779fc789e43e97d7210d79c2da667d}\label{historyvarinfoaddattr_8f90_ace779fc789e43e97d7210d79c2da667d}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattrchar0@{historyvarinfoaddattrchar0}}
\index{historyvarinfoaddattrchar0@{historyvarinfoaddattrchar0}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattrchar0()}{historyvarinfoaddattrchar0()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattrchar0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{character($\ast$), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 30 of file historyvarinfoaddattr.\+f90.



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


\begin{DoxyCode}
30     \textcolor{comment}{!}
31                         \textcolor{comment}{!}
32     \textcolor{comment}{!== GT\_HISTORY\_VARINFO 型変数への属性付加}
33     \textcolor{comment}{!}
34     \textcolor{comment}{! GT\_HISTORY\_VARINFO 型の変数 *varinfo* へ属性を付加します。}
35     \textcolor{comment}{!}
36     \textcolor{comment}{! *HistoryVarinfoAddAttr* は複数のサブルーチンの総称名です。}
37     \textcolor{comment}{! value には様々な型の引数を与えることが可能です。}
38     \textcolor{comment}{! 下記のサブルーチンを参照ください。}
39     \textcolor{comment}{!}
40                     
41     \textcolor{comment}{!}
42     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
43     \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}
44     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}
45     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
46     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
47     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
48     \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_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
49     \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}
50     \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}
51     \textcolor{keywordtype}{implicit none}
52     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
53     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
54     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: value
55                                                   \textcolor{comment}{! 属性に与えられる値}
56                               \textcolor{comment}{! }
57                               \textcolor{comment}{! 配列の場合でも、数値型以外}
58                               \textcolor{comment}{! では配列の 1 つ目の要素のみ}
59                               \textcolor{comment}{! 値として付加されます。}
60                               \textcolor{comment}{! }
61                     
62     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
63                               \textcolor{comment}{! 例外処理用フラグ. }
64                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
65                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
66                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
67                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
68                               \textcolor{comment}{! *err* に .true. が代入されます. }
69                               \textcolor{comment}{!}
70                               \textcolor{comment}{! Exception handling flag. }
71                               \textcolor{comment}{! By default, when error occur in }
72                               \textcolor{comment}{! this procedure, the program aborts. }
73                               \textcolor{comment}{! If this *err* argument is given, }
74                               \textcolor{comment}{! .true. is substituted to *err* and }
75                               \textcolor{comment}{! the program does not abort. }
76 
77     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}), \textcolor{keywordtype}{pointer}:: attrs\_tmp(:)
78     \textcolor{keywordtype}{integer}:: attrs\_num, stat
79     \textcolor{keywordtype}{character(STRING)} :: name, cause\_c
80     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttrChar0"}
81   \textcolor{keywordflow}{continue}
82     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
83       & \textcolor{stringliteral}{'attrname=<%c>, value=<%c>'}, &
84       & c1=trim(attrname), c2=trim(\textcolor{keywordtype}{value}))
85     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
86     cause\_c = \textcolor{stringliteral}{''}
87 
88     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
89       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
90       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
91       \textcolor{keywordflow}{goto} 999
92 \textcolor{keywordflow}{    end if}
93 
94     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( varinfo, name )
95     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varinfo name=<%c>'}, c1=trim(name))
96 
97     \textcolor{comment}{! これまでの属性を保持しつつ配列を1つ増やす}
98     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}(varinfo % attrs) ) \textcolor{keywordflow}{then}
99       \textcolor{keyword}{allocate}( varinfo % attrs(1) )
100       attrs\_num = 1
101     \textcolor{keywordflow}{else}
102       attrs\_num = \textcolor{keyword}{size}( varinfo % attrs ) + 1
103       \textcolor{comment}{! 配列データの領域確保}
104       \textcolor{keyword}{allocate}( attrs\_tmp(attrs\_num - 1) )
105       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = varinfo % attrs(1:attrs\_num - 1), &
106         &                to = attrs\_tmp(1:attrs\_num - 1))
107       \textcolor{keyword}{deallocate}( varinfo % attrs )
108       \textcolor{keyword}{allocate}( varinfo % attrs(attrs\_num) )
109       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = attrs\_tmp(1:attrs\_num - 1), &
110         &                to = varinfo % attrs(1:attrs\_num - 1))
111       \textcolor{keyword}{deallocate}( attrs\_tmp )
112 \textcolor{keywordflow}{    endif}
113 
114     varinfo % attrs(attrs\_num) % attrname  = attrname
115     varinfo % attrs(attrs\_num) % attrtype  = \textcolor{stringliteral}{'Char'}
116                         varinfo % attrs(attrs\_num) % array     = .false.
117     varinfo % attrs(attrs\_num) % Charvalue = \textcolor{keywordtype}{value}
118                     
119 
120 999 \textcolor{keywordflow}{continue}
121     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
122     \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]{historyvarinfoaddattr_8f90_ace779fc789e43e97d7210d79c2da667d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_a9906447fa7051bb45882b2e6ba5e19dd}\label{historyvarinfoaddattr_8f90_a9906447fa7051bb45882b2e6ba5e19dd}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattrdouble0@{historyvarinfoaddattrdouble0}}
\index{historyvarinfoaddattrdouble0@{historyvarinfoaddattrdouble0}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattrdouble0()}{historyvarinfoaddattrdouble0()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattrdouble0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 704 of file historyvarinfoaddattr.\+f90.



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


\begin{DoxyCode}
704     \textcolor{comment}{!}
705                     
706     \textcolor{comment}{!}
707     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
708     \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}
709     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}
710     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
711     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
712     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
713     \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_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
714     \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}
715     \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}
716     \textcolor{keywordtype}{implicit none}
717     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
718     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
719     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: value
720                     
721     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
722                               \textcolor{comment}{! 例外処理用フラグ. }
723                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
724                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
725                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
726                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
727                               \textcolor{comment}{! *err* に .true. が代入されます. }
728                               \textcolor{comment}{!}
729                               \textcolor{comment}{! Exception handling flag. }
730                               \textcolor{comment}{! By default, when error occur in }
731                               \textcolor{comment}{! this procedure, the program aborts. }
732                               \textcolor{comment}{! If this *err* argument is given, }
733                               \textcolor{comment}{! .true. is substituted to *err* and }
734                               \textcolor{comment}{! the program does not abort. }
735 
736     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}), \textcolor{keywordtype}{pointer}:: attrs\_tmp(:)
737     \textcolor{keywordtype}{integer}:: attrs\_num, stat
738     \textcolor{keywordtype}{character(STRING)} :: name, cause\_c
739     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttrDouble0"}
740   \textcolor{keywordflow}{continue}
741     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
742       & \textcolor{stringliteral}{'attrname=<%c>, value=<%c>'}, &
743       & c1=trim(attrname), c2=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
744     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
745     cause\_c = \textcolor{stringliteral}{''}
746 
747     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
748       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
749       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
750       \textcolor{keywordflow}{goto} 999
751 \textcolor{keywordflow}{    end if}
752 
753     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( varinfo, name )
754     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varinfo name=<%c>'}, c1=trim(name))
755 
756     \textcolor{comment}{! これまでの属性を保持しつつ配列を1つ増やす}
757     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}(varinfo % attrs) ) \textcolor{keywordflow}{then}
758       \textcolor{keyword}{allocate}( varinfo % attrs(1) )
759       attrs\_num = 1
760     \textcolor{keywordflow}{else}
761       attrs\_num = \textcolor{keyword}{size}( varinfo % attrs ) + 1
762       \textcolor{comment}{! 配列データの領域確保}
763       \textcolor{keyword}{allocate}( attrs\_tmp(attrs\_num - 1) )
764       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = varinfo % attrs(1:attrs\_num - 1), &
765         &                to = attrs\_tmp(1:attrs\_num - 1))
766       \textcolor{keyword}{deallocate}( varinfo % attrs )
767       \textcolor{keyword}{allocate}( varinfo % attrs(attrs\_num) )
768       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = attrs\_tmp(1:attrs\_num - 1), &
769         &                to = varinfo % attrs(1:attrs\_num - 1))
770       \textcolor{keyword}{deallocate}( attrs\_tmp )
771 \textcolor{keywordflow}{    endif}
772 
773     varinfo % attrs(attrs\_num) % attrname  = attrname
774     varinfo % attrs(attrs\_num) % attrtype  = \textcolor{stringliteral}{'Double'}
775                         varinfo % attrs(attrs\_num) % array     = .false.
776     varinfo % attrs(attrs\_num) % Doublevalue = \textcolor{keywordtype}{value}
777                     
778 
779 999 \textcolor{keywordflow}{continue}
780     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
781     \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]{historyvarinfoaddattr_8f90_a9906447fa7051bb45882b2e6ba5e19dd_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_ae7ee6931b0a0c4dc76e0bd24fd936100}\label{historyvarinfoaddattr_8f90_ae7ee6931b0a0c4dc76e0bd24fd936100}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattrdouble1@{historyvarinfoaddattrdouble1}}
\index{historyvarinfoaddattrdouble1@{historyvarinfoaddattrdouble1}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattrdouble1()}{historyvarinfoaddattrdouble1()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattrdouble1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real(dp), dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 812 of file historyvarinfoaddattr.\+f90.



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


\begin{DoxyCode}
812     \textcolor{comment}{!}
813                     
814     \textcolor{comment}{!}
815     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
816     \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}
817     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}
818     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
819     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
820     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
821     \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_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
822     \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}
823     \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}
824     \textcolor{keywordtype}{implicit none}
825     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
826     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
827     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
828                     
829     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
830                               \textcolor{comment}{! 例外処理用フラグ. }
831                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
832                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
833                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
834                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
835                               \textcolor{comment}{! *err* に .true. が代入されます. }
836                               \textcolor{comment}{!}
837                               \textcolor{comment}{! Exception handling flag. }
838                               \textcolor{comment}{! By default, when error occur in }
839                               \textcolor{comment}{! this procedure, the program aborts. }
840                               \textcolor{comment}{! If this *err* argument is given, }
841                               \textcolor{comment}{! .true. is substituted to *err* and }
842                               \textcolor{comment}{! the program does not abort. }
843 
844     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}), \textcolor{keywordtype}{pointer}:: attrs\_tmp(:)
845     \textcolor{keywordtype}{integer}:: attrs\_num, stat
846     \textcolor{keywordtype}{character(STRING)} :: name, cause\_c
847     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttrDouble1"}
848   \textcolor{keywordflow}{continue}
849     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
850       & \textcolor{stringliteral}{'attrname=<%c>, value=<%c>'}, &
851       & c1=trim(attrname), c2=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
852     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
853     cause\_c = \textcolor{stringliteral}{''}
854 
855     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
856       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
857       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
858       \textcolor{keywordflow}{goto} 999
859 \textcolor{keywordflow}{    end if}
860 
861     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( varinfo, name )
862     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varinfo name=<%c>'}, c1=trim(name))
863 
864     \textcolor{comment}{! これまでの属性を保持しつつ配列を1つ増やす}
865     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}(varinfo % attrs) ) \textcolor{keywordflow}{then}
866       \textcolor{keyword}{allocate}( varinfo % attrs(1) )
867       attrs\_num = 1
868     \textcolor{keywordflow}{else}
869       attrs\_num = \textcolor{keyword}{size}( varinfo % attrs ) + 1
870       \textcolor{comment}{! 配列データの領域確保}
871       \textcolor{keyword}{allocate}( attrs\_tmp(attrs\_num - 1) )
872       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = varinfo % attrs(1:attrs\_num - 1), &
873         &                to = attrs\_tmp(1:attrs\_num - 1))
874       \textcolor{keyword}{deallocate}( varinfo % attrs )
875       \textcolor{keyword}{allocate}( varinfo % attrs(attrs\_num) )
876       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = attrs\_tmp(1:attrs\_num - 1), &
877         &                to = varinfo % attrs(1:attrs\_num - 1))
878       \textcolor{keyword}{deallocate}( attrs\_tmp )
879 \textcolor{keywordflow}{    endif}
880 
881     varinfo % attrs(attrs\_num) % attrname  = attrname
882     varinfo % attrs(attrs\_num) % attrtype  = \textcolor{stringliteral}{'Double'}
883                         varinfo % attrs(attrs\_num) % array                = .true.
884     \textcolor{keyword}{allocate}(  varinfo % attrs(attrs\_num) % Doublearray( \textcolor{keyword}{size}(\textcolor{keywordtype}{value}) )  )
885     varinfo % attrs(attrs\_num) % Doublearray    = \textcolor{keywordtype}{value}
886                     
887 
888 999 \textcolor{keywordflow}{continue}
889     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
890     \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]{historyvarinfoaddattr_8f90_ae7ee6931b0a0c4dc76e0bd24fd936100_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_aefe0cb1e9189cf70b432b2daf2eff2c3}\label{historyvarinfoaddattr_8f90_aefe0cb1e9189cf70b432b2daf2eff2c3}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattrint0@{historyvarinfoaddattrint0}}
\index{historyvarinfoaddattrint0@{historyvarinfoaddattrint0}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattrint0()}{historyvarinfoaddattrint0()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattrint0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 270 of file historyvarinfoaddattr.\+f90.



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


\begin{DoxyCode}
270     \textcolor{comment}{!}
271                     
272     \textcolor{comment}{!}
273     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
274     \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}
275     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}
276     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
277     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
278     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
279     \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_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
280     \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}
281     \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}
282     \textcolor{keywordtype}{implicit none}
283     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
284     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
285     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: value
286                     
287     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
288                               \textcolor{comment}{! 例外処理用フラグ. }
289                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
290                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
291                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
292                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
293                               \textcolor{comment}{! *err* に .true. が代入されます. }
294                               \textcolor{comment}{!}
295                               \textcolor{comment}{! Exception handling flag. }
296                               \textcolor{comment}{! By default, when error occur in }
297                               \textcolor{comment}{! this procedure, the program aborts. }
298                               \textcolor{comment}{! If this *err* argument is given, }
299                               \textcolor{comment}{! .true. is substituted to *err* and }
300                               \textcolor{comment}{! the program does not abort. }
301 
302     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}), \textcolor{keywordtype}{pointer}:: attrs\_tmp(:)
303     \textcolor{keywordtype}{integer}:: attrs\_num, stat
304     \textcolor{keywordtype}{character(STRING)} :: name, cause\_c
305     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttrInt0"}
306   \textcolor{keywordflow}{continue}
307     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
308       & \textcolor{stringliteral}{'attrname=<%c>, value=<%c>'}, &
309       & c1=trim(attrname), c2=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
310     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
311     cause\_c = \textcolor{stringliteral}{''}
312 
313     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
314       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
315       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
316       \textcolor{keywordflow}{goto} 999
317 \textcolor{keywordflow}{    end if}
318 
319     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( varinfo, name )
320     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varinfo name=<%c>'}, c1=trim(name))
321 
322     \textcolor{comment}{! これまでの属性を保持しつつ配列を1つ増やす}
323     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}(varinfo % attrs) ) \textcolor{keywordflow}{then}
324       \textcolor{keyword}{allocate}( varinfo % attrs(1) )
325       attrs\_num = 1
326     \textcolor{keywordflow}{else}
327       attrs\_num = \textcolor{keyword}{size}( varinfo % attrs ) + 1
328       \textcolor{comment}{! 配列データの領域確保}
329       \textcolor{keyword}{allocate}( attrs\_tmp(attrs\_num - 1) )
330       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = varinfo % attrs(1:attrs\_num - 1), &
331         &                to = attrs\_tmp(1:attrs\_num - 1))
332       \textcolor{keyword}{deallocate}( varinfo % attrs )
333       \textcolor{keyword}{allocate}( varinfo % attrs(attrs\_num) )
334       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = attrs\_tmp(1:attrs\_num - 1), &
335         &                to = varinfo % attrs(1:attrs\_num - 1))
336       \textcolor{keyword}{deallocate}( attrs\_tmp )
337 \textcolor{keywordflow}{    endif}
338 
339     varinfo % attrs(attrs\_num) % attrname  = attrname
340     varinfo % attrs(attrs\_num) % attrtype  = \textcolor{stringliteral}{'Int'}
341                         varinfo % attrs(attrs\_num) % array     = .false.
342     varinfo % attrs(attrs\_num) % Intvalue = \textcolor{keywordtype}{value}
343                     
344 
345 999 \textcolor{keywordflow}{continue}
346     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
347     \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]{historyvarinfoaddattr_8f90_aefe0cb1e9189cf70b432b2daf2eff2c3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_afd3d5db60392cc68b1bbd7fa688ef138}\label{historyvarinfoaddattr_8f90_afd3d5db60392cc68b1bbd7fa688ef138}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattrint1@{historyvarinfoaddattrint1}}
\index{historyvarinfoaddattrint1@{historyvarinfoaddattrint1}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattrint1()}{historyvarinfoaddattrint1()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattrint1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{integer, dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 378 of file historyvarinfoaddattr.\+f90.



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


\begin{DoxyCode}
378     \textcolor{comment}{!}
379                     
380     \textcolor{comment}{!}
381     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
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_1copy__attrs}{copy\_attrs}
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{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
386     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
387     \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_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
388     \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}
389     \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}
390     \textcolor{keywordtype}{implicit none}
391     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
392     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
393     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
394                     
395     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
396                               \textcolor{comment}{! 例外処理用フラグ. }
397                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
398                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
399                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
400                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
401                               \textcolor{comment}{! *err* に .true. が代入されます. }
402                               \textcolor{comment}{!}
403                               \textcolor{comment}{! Exception handling flag. }
404                               \textcolor{comment}{! By default, when error occur in }
405                               \textcolor{comment}{! this procedure, the program aborts. }
406                               \textcolor{comment}{! If this *err* argument is given, }
407                               \textcolor{comment}{! .true. is substituted to *err* and }
408                               \textcolor{comment}{! the program does not abort. }
409 
410     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}), \textcolor{keywordtype}{pointer}:: attrs\_tmp(:)
411     \textcolor{keywordtype}{integer}:: attrs\_num, stat
412     \textcolor{keywordtype}{character(STRING)} :: name, cause\_c
413     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttrInt1"}
414   \textcolor{keywordflow}{continue}
415     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
416       & \textcolor{stringliteral}{'attrname=<%c>, value=<%c>'}, &
417       & c1=trim(attrname), c2=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
418     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
419     cause\_c = \textcolor{stringliteral}{''}
420 
421     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
422       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
423       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
424       \textcolor{keywordflow}{goto} 999
425 \textcolor{keywordflow}{    end if}
426 
427     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( varinfo, name )
428     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varinfo name=<%c>'}, c1=trim(name))
429 
430     \textcolor{comment}{! これまでの属性を保持しつつ配列を1つ増やす}
431     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}(varinfo % attrs) ) \textcolor{keywordflow}{then}
432       \textcolor{keyword}{allocate}( varinfo % attrs(1) )
433       attrs\_num = 1
434     \textcolor{keywordflow}{else}
435       attrs\_num = \textcolor{keyword}{size}( varinfo % attrs ) + 1
436       \textcolor{comment}{! 配列データの領域確保}
437       \textcolor{keyword}{allocate}( attrs\_tmp(attrs\_num - 1) )
438       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = varinfo % attrs(1:attrs\_num - 1), &
439         &                to = attrs\_tmp(1:attrs\_num - 1))
440       \textcolor{keyword}{deallocate}( varinfo % attrs )
441       \textcolor{keyword}{allocate}( varinfo % attrs(attrs\_num) )
442       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = attrs\_tmp(1:attrs\_num - 1), &
443         &                to = varinfo % attrs(1:attrs\_num - 1))
444       \textcolor{keyword}{deallocate}( attrs\_tmp )
445 \textcolor{keywordflow}{    endif}
446 
447     varinfo % attrs(attrs\_num) % attrname  = attrname
448     varinfo % attrs(attrs\_num) % attrtype  = \textcolor{stringliteral}{'Int'}
449                         varinfo % attrs(attrs\_num) % array                = .true.
450     \textcolor{keyword}{allocate}(  varinfo % attrs(attrs\_num) % Intarray( \textcolor{keyword}{size}(\textcolor{keywordtype}{value}) )  )
451     varinfo % attrs(attrs\_num) % Intarray    = \textcolor{keywordtype}{value}
452                     
453 
454 999 \textcolor{keywordflow}{continue}
455     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
456     \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]{historyvarinfoaddattr_8f90_afd3d5db60392cc68b1bbd7fa688ef138_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_a13238bfd07fa05e8ed1c56620a4fe4a1}\label{historyvarinfoaddattr_8f90_a13238bfd07fa05e8ed1c56620a4fe4a1}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattrlogical0@{historyvarinfoaddattrlogical0}}
\index{historyvarinfoaddattrlogical0@{historyvarinfoaddattrlogical0}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattrlogical0()}{historyvarinfoaddattrlogical0()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattrlogical0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{logical, intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 162 of file historyvarinfoaddattr.\+f90.



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


\begin{DoxyCode}
162     \textcolor{comment}{!}
163                     
164     \textcolor{comment}{!}
165     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
166     \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}
167     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}
168     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
169     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
170     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
171     \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_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
172     \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}
173     \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}
174     \textcolor{keywordtype}{implicit none}
175     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
176     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
177     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}:: value
178                     
179     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
180                               \textcolor{comment}{! 例外処理用フラグ. }
181                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
182                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
183                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
184                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
185                               \textcolor{comment}{! *err* に .true. が代入されます. }
186                               \textcolor{comment}{!}
187                               \textcolor{comment}{! Exception handling flag. }
188                               \textcolor{comment}{! By default, when error occur in }
189                               \textcolor{comment}{! this procedure, the program aborts. }
190                               \textcolor{comment}{! If this *err* argument is given, }
191                               \textcolor{comment}{! .true. is substituted to *err* and }
192                               \textcolor{comment}{! the program does not abort. }
193 
194     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}), \textcolor{keywordtype}{pointer}:: attrs\_tmp(:)
195     \textcolor{keywordtype}{integer}:: attrs\_num, stat
196     \textcolor{keywordtype}{character(STRING)} :: name, cause\_c
197     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttrLogical0"}
198   \textcolor{keywordflow}{continue}
199     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
200       & \textcolor{stringliteral}{'attrname=<%c>, value=<%c>'}, &
201       & c1=trim(attrname), c2=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
202     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
203     cause\_c = \textcolor{stringliteral}{''}
204 
205     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
206       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
207       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
208       \textcolor{keywordflow}{goto} 999
209 \textcolor{keywordflow}{    end if}
210 
211     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( varinfo, name )
212     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varinfo name=<%c>'}, c1=trim(name))
213 
214     \textcolor{comment}{! これまでの属性を保持しつつ配列を1つ増やす}
215     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}(varinfo % attrs) ) \textcolor{keywordflow}{then}
216       \textcolor{keyword}{allocate}( varinfo % attrs(1) )
217       attrs\_num = 1
218     \textcolor{keywordflow}{else}
219       attrs\_num = \textcolor{keyword}{size}( varinfo % attrs ) + 1
220       \textcolor{comment}{! 配列データの領域確保}
221       \textcolor{keyword}{allocate}( attrs\_tmp(attrs\_num - 1) )
222       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = varinfo % attrs(1:attrs\_num - 1), &
223         &                to = attrs\_tmp(1:attrs\_num - 1))
224       \textcolor{keyword}{deallocate}( varinfo % attrs )
225       \textcolor{keyword}{allocate}( varinfo % attrs(attrs\_num) )
226       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = attrs\_tmp(1:attrs\_num - 1), &
227         &                to = varinfo % attrs(1:attrs\_num - 1))
228       \textcolor{keyword}{deallocate}( attrs\_tmp )
229 \textcolor{keywordflow}{    endif}
230 
231     varinfo % attrs(attrs\_num) % attrname  = attrname
232     varinfo % attrs(attrs\_num) % attrtype  = \textcolor{stringliteral}{'Logical'}
233                         varinfo % attrs(attrs\_num) % array     = .false.
234     varinfo % attrs(attrs\_num) % Logicalvalue = \textcolor{keywordtype}{value}
235                     
236 
237 999 \textcolor{keywordflow}{continue}
238     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
239     \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]{historyvarinfoaddattr_8f90_a13238bfd07fa05e8ed1c56620a4fe4a1_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_a97b955e733d86797c5ba52740531a1a1}\label{historyvarinfoaddattr_8f90_a97b955e733d86797c5ba52740531a1a1}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattrreal0@{historyvarinfoaddattrreal0}}
\index{historyvarinfoaddattrreal0@{historyvarinfoaddattrreal0}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattrreal0()}{historyvarinfoaddattrreal0()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattrreal0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 487 of file historyvarinfoaddattr.\+f90.



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


\begin{DoxyCode}
487     \textcolor{comment}{!}
488                     
489     \textcolor{comment}{!}
490     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
491     \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}
492     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}
493     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
494     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
495     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
496     \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_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
497     \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}
498     \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}
499     \textcolor{keywordtype}{implicit none}
500     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
501     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
502     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: value
503                     
504     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
505                               \textcolor{comment}{! 例外処理用フラグ. }
506                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
507                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
508                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
509                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
510                               \textcolor{comment}{! *err* に .true. が代入されます. }
511                               \textcolor{comment}{!}
512                               \textcolor{comment}{! Exception handling flag. }
513                               \textcolor{comment}{! By default, when error occur in }
514                               \textcolor{comment}{! this procedure, the program aborts. }
515                               \textcolor{comment}{! If this *err* argument is given, }
516                               \textcolor{comment}{! .true. is substituted to *err* and }
517                               \textcolor{comment}{! the program does not abort. }
518 
519     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}), \textcolor{keywordtype}{pointer}:: attrs\_tmp(:)
520     \textcolor{keywordtype}{integer}:: attrs\_num, stat
521     \textcolor{keywordtype}{character(STRING)} :: name, cause\_c
522     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttrReal0"}
523   \textcolor{keywordflow}{continue}
524     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
525       & \textcolor{stringliteral}{'attrname=<%c>, value=<%c>'}, &
526       & c1=trim(attrname), c2=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
527     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
528     cause\_c = \textcolor{stringliteral}{''}
529 
530     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
531       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
532       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
533       \textcolor{keywordflow}{goto} 999
534 \textcolor{keywordflow}{    end if}
535 
536     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( varinfo, name )
537     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varinfo name=<%c>'}, c1=trim(name))
538 
539     \textcolor{comment}{! これまでの属性を保持しつつ配列を1つ増やす}
540     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}(varinfo % attrs) ) \textcolor{keywordflow}{then}
541       \textcolor{keyword}{allocate}( varinfo % attrs(1) )
542       attrs\_num = 1
543     \textcolor{keywordflow}{else}
544       attrs\_num = \textcolor{keyword}{size}( varinfo % attrs ) + 1
545       \textcolor{comment}{! 配列データの領域確保}
546       \textcolor{keyword}{allocate}( attrs\_tmp(attrs\_num - 1) )
547       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = varinfo % attrs(1:attrs\_num - 1), &
548         &                to = attrs\_tmp(1:attrs\_num - 1))
549       \textcolor{keyword}{deallocate}( varinfo % attrs )
550       \textcolor{keyword}{allocate}( varinfo % attrs(attrs\_num) )
551       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = attrs\_tmp(1:attrs\_num - 1), &
552         &                to = varinfo % attrs(1:attrs\_num - 1))
553       \textcolor{keyword}{deallocate}( attrs\_tmp )
554 \textcolor{keywordflow}{    endif}
555 
556     varinfo % attrs(attrs\_num) % attrname  = attrname
557     varinfo % attrs(attrs\_num) % attrtype  = \textcolor{stringliteral}{'Real'}
558                         varinfo % attrs(attrs\_num) % array     = .false.
559     varinfo % attrs(attrs\_num) % Realvalue = \textcolor{keywordtype}{value}
560                     
561 
562 999 \textcolor{keywordflow}{continue}
563     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
564     \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]{historyvarinfoaddattr_8f90_a97b955e733d86797c5ba52740531a1a1_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoaddattr_8f90_af8fe3b028091127a900a501a3758681e}\label{historyvarinfoaddattr_8f90_af8fe3b028091127a900a501a3758681e}} 
\index{historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}!historyvarinfoaddattrreal1@{historyvarinfoaddattrreal1}}
\index{historyvarinfoaddattrreal1@{historyvarinfoaddattrreal1}!historyvarinfoaddattr.\+f90@{historyvarinfoaddattr.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoaddattrreal1()}{historyvarinfoaddattrreal1()}}
{\footnotesize\ttfamily subroutine historyvarinfoaddattrreal1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{character($\ast$), intent(in)}]{attrname,  }\item[{real, dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 595 of file historyvarinfoaddattr.\+f90.



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


\begin{DoxyCode}
595     \textcolor{comment}{!}
596                     
597     \textcolor{comment}{!}
598     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
599     \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}
600     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}, 
      \hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}
601     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
602     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
603     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
604     \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_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
605     \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}
606     \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}
607     \textcolor{keywordtype}{implicit none}
608     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
609     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: attrname \textcolor{comment}{! 属性の名前}
610     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
611                     
612     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
613                               \textcolor{comment}{! 例外処理用フラグ. }
614                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
615                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
616                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
617                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
618                               \textcolor{comment}{! *err* に .true. が代入されます. }
619                               \textcolor{comment}{!}
620                               \textcolor{comment}{! Exception handling flag. }
621                               \textcolor{comment}{! By default, when error occur in }
622                               \textcolor{comment}{! this procedure, the program aborts. }
623                               \textcolor{comment}{! If this *err* argument is given, }
624                               \textcolor{comment}{! .true. is substituted to *err* and }
625                               \textcolor{comment}{! the program does not abort. }
626 
627     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__attr}{gt\_history\_attr}), \textcolor{keywordtype}{pointer}:: attrs\_tmp(:)
628     \textcolor{keywordtype}{integer}:: attrs\_num, stat
629     \textcolor{keywordtype}{character(STRING)} :: name, cause\_c
630     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoAddAttrReal1"}
631   \textcolor{keywordflow}{continue}
632     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, &
633       & \textcolor{stringliteral}{'attrname=<%c>, value=<%c>'}, &
634       & c1=trim(attrname), c2=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(\textcolor{keywordtype}{value})))
635     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
636     cause\_c = \textcolor{stringliteral}{''}
637 
638     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
639       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
640       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
641       \textcolor{keywordflow}{goto} 999
642 \textcolor{keywordflow}{    end if}
643 
644     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( varinfo, name )
645     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{'varinfo name=<%c>'}, c1=trim(name))
646 
647     \textcolor{comment}{! これまでの属性を保持しつつ配列を1つ増やす}
648     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}(varinfo % attrs) ) \textcolor{keywordflow}{then}
649       \textcolor{keyword}{allocate}( varinfo % attrs(1) )
650       attrs\_num = 1
651     \textcolor{keywordflow}{else}
652       attrs\_num = \textcolor{keyword}{size}( varinfo % attrs ) + 1
653       \textcolor{comment}{! 配列データの領域確保}
654       \textcolor{keyword}{allocate}( attrs\_tmp(attrs\_num - 1) )
655       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = varinfo % attrs(1:attrs\_num - 1), &
656         &                to = attrs\_tmp(1:attrs\_num - 1))
657       \textcolor{keyword}{deallocate}( varinfo % attrs )
658       \textcolor{keyword}{allocate}( varinfo % attrs(attrs\_num) )
659       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__internal_1_1copy__attrs}{copy\_attrs}( from = attrs\_tmp(1:attrs\_num - 1), &
660         &                to = varinfo % attrs(1:attrs\_num - 1))
661       \textcolor{keyword}{deallocate}( attrs\_tmp )
662 \textcolor{keywordflow}{    endif}
663 
664     varinfo % attrs(attrs\_num) % attrname  = attrname
665     varinfo % attrs(attrs\_num) % attrtype  = \textcolor{stringliteral}{'Real'}
666                         varinfo % attrs(attrs\_num) % array                = .true.
667     \textcolor{keyword}{allocate}(  varinfo % attrs(attrs\_num) % Realarray( \textcolor{keyword}{size}(\textcolor{keywordtype}{value}) )  )
668     varinfo % attrs(attrs\_num) % Realarray    = \textcolor{keywordtype}{value}
669                     
670 
671 999 \textcolor{keywordflow}{continue}
672     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
673     \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]{historyvarinfoaddattr_8f90_af8fe3b028091127a900a501a3758681e_cgraph}
\end{center}
\end{figure}
