\hypertarget{historyaxisclear_8f90}{}\section{gtool/gtool\+\_\+history/historyaxisclear.f90 File Reference}
\label{historyaxisclear_8f90}\index{gtool/gtool\+\_\+history/historyaxisclear.\+f90@{gtool/gtool\+\_\+history/historyaxisclear.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyaxisclear_8f90_a55e33714180a8d559f973c49cddb9f4a}{historyaxisclear} (axis)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyaxisclear_8f90_a55e33714180a8d559f973c49cddb9f4a}\label{historyaxisclear_8f90_a55e33714180a8d559f973c49cddb9f4a}} 
\index{historyaxisclear.\+f90@{historyaxisclear.\+f90}!historyaxisclear@{historyaxisclear}}
\index{historyaxisclear@{historyaxisclear}!historyaxisclear.\+f90@{historyaxisclear.\+f90}}
\subsubsection{\texorpdfstring{historyaxisclear()}{historyaxisclear()}}
{\footnotesize\ttfamily subroutine historyaxisclear (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+axis), intent(inout)}]{axis }\end{DoxyParamCaption})}



Definition at line 11 of file historyaxisclear.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
11     \textcolor{comment}{!}
12     \textcolor{comment}{!== GT\_HISTORY\_AXIS 型変数初期化}
13     \textcolor{comment}{!}
14     \textcolor{comment}{! *axis* で与えられた変数を HistoryAxisCreate による初期設定よりも}
15     \textcolor{comment}{! さらに前の状態に初期化します。}
16     \textcolor{comment}{!}
17     \textcolor{comment}{! Destructor of GT\_HISTORY\_AXIS}
18     \textcolor{comment}{!}
19     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: gt\_history, gt\_history\_axis, gt\_history\_varinfo, 
      gt\_history\_attr
20     \textcolor{keywordtype}{use }gtool\_history\_internal\textcolor{keywordtype}{, only}: default
21     \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub, dbgmessage
22     \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}
23     \textcolor{keywordtype}{implicit none}
24     \textcolor{keywordtype}{type}(gt\_history\_axis),\textcolor{keywordtype}{intent(inout)} :: axis
25     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAxisClear1"}
26     \textcolor{keyword}{call }beginsub(subname)
27     axis % name     = \textcolor{stringliteral}{""}
28     axis % length   = 0
29     axis % longname = \textcolor{stringliteral}{""}
30     axis % units    = \textcolor{stringliteral}{""}
31     axis % xtype    = \textcolor{stringliteral}{""}
32     \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(axis % attrs)) \textcolor{keywordflow}{then}
33       \textcolor{keyword}{deallocate}(axis % attrs)
34 \textcolor{keywordflow}{    end if}
35     \textcolor{keyword}{call }endsub(subname)
\end{DoxyCode}
