\hypertarget{historyaxisinquire_8f90}{}\section{gtool/gtool\+\_\+history/historyaxisinquire.f90 File Reference}
\label{historyaxisinquire_8f90}\index{gtool/gtool\+\_\+history/historyaxisinquire.\+f90@{gtool/gtool\+\_\+history/historyaxisinquire.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyaxisinquire_8f90_ab195bc96450438860902031d27e7e3f3}{historyaxisinquire1} (axis, name, size, longname, units, xtype)
\item 
subroutine \hyperlink{historyaxisinquire_8f90_a51016241b5924f8f09e5b620201f60ab}{historyaxisinquire2} (axis, name, size, longname, units, xtype)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyaxisinquire_8f90_ab195bc96450438860902031d27e7e3f3}\label{historyaxisinquire_8f90_ab195bc96450438860902031d27e7e3f3}} 
\index{historyaxisinquire.\+f90@{historyaxisinquire.\+f90}!historyaxisinquire1@{historyaxisinquire1}}
\index{historyaxisinquire1@{historyaxisinquire1}!historyaxisinquire.\+f90@{historyaxisinquire.\+f90}}
\subsubsection{\texorpdfstring{historyaxisinquire1()}{historyaxisinquire1()}}
{\footnotesize\ttfamily subroutine historyaxisinquire1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+axis), intent(in)}]{axis,  }\item[{character($\ast$), intent(out), optional}]{name,  }\item[{integer, intent(out), optional}]{size,  }\item[{character($\ast$), intent(out), optional}]{longname,  }\item[{character($\ast$), intent(out), optional}]{units,  }\item[{character($\ast$), intent(out), optional}]{xtype }\end{DoxyParamCaption})}



Definition at line 12 of file historyaxisinquire.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::dbgmessage(), gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
12     \textcolor{comment}{!}
13     \textcolor{comment}{!== GT\_HISTORY\_AXIS 型変数への問い合わせ}
14     \textcolor{comment}{!}
15     \textcolor{comment}{! GT\_HISTORY\_AXIS 型の変数内の各情報を参照します。}
16     \textcolor{comment}{!}
17     \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}
18     \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}
19     \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}
20     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
21     \textcolor{keywordtype}{implicit none}
22     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}),\textcolor{keywordtype}{intent(in)} :: axis
23     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: name     \textcolor{comment}{! 次元変数名}
24     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: size     \textcolor{comment}{! 次元長 (配列サイズ)}
25     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: longname \textcolor{comment}{! 次元変数の記述的名称}
26     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: \hyperlink{structdc__units_1_1units}{units}    \textcolor{comment}{! 次元変数の単位}
27     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: xtype    \textcolor{comment}{! 次元変数の型}
28     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAxisInquire1"}
29   \textcolor{keywordflow}{continue}
30     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
31     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(name)) \textcolor{keywordflow}{then}
32       name     = axis % name
33 \textcolor{keywordflow}{    end if}
34     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(size)) \textcolor{keywordflow}{then}
35       \textcolor{keyword}{size}     = axis % length
36 \textcolor{keywordflow}{    end if}
37     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(longname)) \textcolor{keywordflow}{then}
38       longname = axis % longname
39 \textcolor{keywordflow}{    end if}
40     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(\hyperlink{structdc__units_1_1units}{units})) \textcolor{keywordflow}{then}
41       \hyperlink{structdc__units_1_1units}{units}    = axis % units
42 \textcolor{keywordflow}{    end if}
43     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(xtype)) \textcolor{keywordflow}{then}
44       xtype    = axis % xtype
45 \textcolor{keywordflow}{    end if}
46     \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]{historyaxisinquire_8f90_ab195bc96450438860902031d27e7e3f3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyaxisinquire_8f90_a51016241b5924f8f09e5b620201f60ab}\label{historyaxisinquire_8f90_a51016241b5924f8f09e5b620201f60ab}} 
\index{historyaxisinquire.\+f90@{historyaxisinquire.\+f90}!historyaxisinquire2@{historyaxisinquire2}}
\index{historyaxisinquire2@{historyaxisinquire2}!historyaxisinquire.\+f90@{historyaxisinquire.\+f90}}
\subsubsection{\texorpdfstring{historyaxisinquire2()}{historyaxisinquire2()}}
{\footnotesize\ttfamily subroutine historyaxisinquire2 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+axis), intent(in)}]{axis,  }\item[{character($\ast$), intent(out), optional}]{name,  }\item[{integer, intent(out), optional}]{size,  }\item[{character($\ast$), intent(out), optional}]{longname,  }\item[{character($\ast$), intent(out), optional}]{units,  }\item[{character($\ast$), intent(out), optional}]{xtype }\end{DoxyParamCaption})}



Definition at line 53 of file historyaxisinquire.\+f90.



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


\begin{DoxyCode}
53     \textcolor{comment}{!}
54     \textcolor{comment}{! 使用方法は HistoryAxisInquire と同様です. }
55     \textcolor{comment}{!}
56     \textcolor{comment}{! Usage is same as "HistoryAxisInquire".}
57     \textcolor{comment}{!}
58     \textcolor{comment}{!--}
59     \textcolor{comment}{! 総称名 Inquire として提供するためのサブルーチンです. }
60     \textcolor{comment}{! 機能は HistoryAxisInquire1 と同じです. }
61     \textcolor{comment}{!++}
62     \textcolor{comment}{!}
63     \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}
64     \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}
65     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
66     \textcolor{keywordtype}{implicit none}
67     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__axis}{gt\_history\_axis}),\textcolor{keywordtype}{intent(in)} :: axis
68     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: name     \textcolor{comment}{! 次元変数名}
69     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: size     \textcolor{comment}{! 次元長 (配列サイズ)}
70     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: longname \textcolor{comment}{! 次元変数の記述的名称}
71     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: \hyperlink{structdc__units_1_1units}{units}    \textcolor{comment}{! 次元変数の単位}
72     \textcolor{keywordtype}{character(*)} , \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: xtype    \textcolor{comment}{! 次元変数の型}
73     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAxisInquire2"}
74   \textcolor{keywordflow}{continue}
75     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
76     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( axis, &
77       & name, \textcolor{keyword}{size}, longname, \hyperlink{structdc__units_1_1units}{units}, xtype)
78     \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]{historyaxisinquire_8f90_a51016241b5924f8f09e5b620201f60ab_cgraph}
\end{center}
\end{figure}
