\hypertarget{historyvarinfoclear_8f90}{}\section{gtool/gtool\+\_\+history/historyvarinfoclear.f90 File Reference}
\label{historyvarinfoclear_8f90}\index{gtool/gtool\+\_\+history/historyvarinfoclear.\+f90@{gtool/gtool\+\_\+history/historyvarinfoclear.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyvarinfoclear_8f90_a39dfee5d785a719e491108ea5eb1f893}{historyvarinfoclear0} (varinfo, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyvarinfoclear_8f90_a39dfee5d785a719e491108ea5eb1f893}\label{historyvarinfoclear_8f90_a39dfee5d785a719e491108ea5eb1f893}} 
\index{historyvarinfoclear.\+f90@{historyvarinfoclear.\+f90}!historyvarinfoclear0@{historyvarinfoclear0}}
\index{historyvarinfoclear0@{historyvarinfoclear0}!historyvarinfoclear.\+f90@{historyvarinfoclear.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoclear0()}{historyvarinfoclear0()}}
{\footnotesize\ttfamily subroutine historyvarinfoclear0 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(inout)}]{varinfo,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11 of file historyvarinfoclear.\+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\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
11     \textcolor{comment}{!}
12     \textcolor{comment}{!== GT\_HISTORY\_VARINFO 型変数初期化}
13     \textcolor{comment}{!}
14     \textcolor{comment}{! *varinfo* で与えられた変数を HistoryVarinfoCreate による初期設定よりも}
15     \textcolor{comment}{! さらに前の状態に初期化します。}
16     \textcolor{comment}{!}
17     \textcolor{comment}{! Destructor of GT\_HISTORY\_VARINFO}
18     \textcolor{comment}{!}
19     \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}
20     \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}
21     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
22     \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}
23     \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}
24     \textcolor{keywordtype}{implicit none}
25     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(inout)} :: varinfo
26     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
27                               \textcolor{comment}{! 例外処理用フラグ. }
28                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
29                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
30                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
31                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
32                               \textcolor{comment}{! *err* に .true. が代入されます. }
33                               \textcolor{comment}{!}
34                               \textcolor{comment}{! Exception handling flag. }
35                               \textcolor{comment}{! By default, when error occur in }
36                               \textcolor{comment}{! this procedure, the program aborts. }
37                               \textcolor{comment}{! If this *err* argument is given, }
38                               \textcolor{comment}{! .true. is substituted to *err* and }
39                               \textcolor{comment}{! the program does not abort. }
40 
41     \textcolor{keywordtype}{integer}:: stat
42     \textcolor{keywordtype}{character(STRING)}:: cause\_c
43     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoClear1"}
44   \textcolor{keywordflow}{continue}
45     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
46     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
47     cause\_c = \textcolor{stringliteral}{''}
48 
49     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
50       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
51       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
52       \textcolor{keywordflow}{goto} 999
53 \textcolor{keywordflow}{    end if}
54 
55     varinfo % name     = \textcolor{stringliteral}{""}
56     varinfo % longname = \textcolor{stringliteral}{""}
57     varinfo % units    = \textcolor{stringliteral}{""}
58     varinfo % xtype    = \textcolor{stringliteral}{""}
59     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(varinfo % attrs)) \textcolor{keywordflow}{then}
60       \textcolor{keyword}{deallocate}(varinfo % attrs)
61 \textcolor{keywordflow}{    end if}
62 
63     varinfo % initialized = .false.
64 999 \textcolor{keywordflow}{continue}
65     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
66     \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]{historyvarinfoclear_8f90_a39dfee5d785a719e491108ea5eb1f893_cgraph}
\end{center}
\end{figure}
