\hypertarget{historyvarinfoinquire_8f90}{}\section{gtool/gtool\+\_\+history/historyvarinfoinquire.f90 File Reference}
\label{historyvarinfoinquire_8f90}\index{gtool/gtool\+\_\+history/historyvarinfoinquire.\+f90@{gtool/gtool\+\_\+history/historyvarinfoinquire.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyvarinfoinquire_8f90_a73b31ddced0929a9fa3657d085be75c3}{historyvarinfoinquire1} (varinfo, name, dims, longname, units, xtype, time\+\_\+average, average, err)
\item 
subroutine \hyperlink{historyvarinfoinquire_8f90_a269945283d407d04e0c55bae5c0b6f67}{historyvarinfoinquire2} (varinfo, name, dims, longname, units, xtype, time\+\_\+average, average, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyvarinfoinquire_8f90_a73b31ddced0929a9fa3657d085be75c3}\label{historyvarinfoinquire_8f90_a73b31ddced0929a9fa3657d085be75c3}} 
\index{historyvarinfoinquire.\+f90@{historyvarinfoinquire.\+f90}!historyvarinfoinquire1@{historyvarinfoinquire1}}
\index{historyvarinfoinquire1@{historyvarinfoinquire1}!historyvarinfoinquire.\+f90@{historyvarinfoinquire.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoinquire1()}{historyvarinfoinquire1()}}
{\footnotesize\ttfamily subroutine historyvarinfoinquire1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(in)}]{varinfo,  }\item[{character($\ast$), intent(out), optional}]{name,  }\item[{character($\ast$), dimension(\+:), optional, pointer}]{dims,  }\item[{character($\ast$), intent(out), optional}]{longname,  }\item[{character($\ast$), intent(out), optional}]{units,  }\item[{character($\ast$), intent(out), optional}]{xtype,  }\item[{logical, intent(out), optional}]{time\+\_\+average,  }\item[{logical, intent(out), optional}]{average,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 14 of file historyvarinfoinquire.\+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}
14     \textcolor{comment}{!}
15     \textcolor{comment}{!== GT\_HISTORY\_VARINFO 型変数への問い合わせ}
16     \textcolor{comment}{!}
17     \textcolor{comment}{! GT\_HISTORY\_VARINFO 型の変数内の各情報を参照します。}
18     \textcolor{comment}{!}
19     \textcolor{comment}{! dims はポインタ配列です。空状態にして与えてください。}
20     \textcolor{comment}{!}
21     \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}
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__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
24     \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}
25     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
26     \textcolor{keywordtype}{implicit none}
27     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(in)} :: varinfo
28     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: name     \textcolor{comment}{! 変数名}
29     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{pointer},     \textcolor{keywordtype}{optional}:: dims(:)  \textcolor{comment}{!(out) 依存する次元}
30     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: longname \textcolor{comment}{! 変数の記述的名称}
31     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: \hyperlink{structdc__units_1_1units}{units}    \textcolor{comment}{! 変数の単位}
32     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: xtype    \textcolor{comment}{! 変数の型}
33     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_average  \textcolor{comment}{! 時間平均}
34     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: average       \textcolor{comment}{! 時間平均 (後方互換用)}
35     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
36                               \textcolor{comment}{! 例外処理用フラグ. }
37                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
38                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
39                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
40                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
41                               \textcolor{comment}{! *err* に .true. が代入されます. }
42                               \textcolor{comment}{!}
43                               \textcolor{comment}{! Exception handling flag. }
44                               \textcolor{comment}{! By default, when error occur in }
45                               \textcolor{comment}{! this procedure, the program aborts. }
46                               \textcolor{comment}{! If this *err* argument is given, }
47                               \textcolor{comment}{! .true. is substituted to *err* and }
48                               \textcolor{comment}{! the program does not abort. }
49 
50     \textcolor{comment}{! Internal Work}
51     \textcolor{keywordtype}{integer}:: i, numdims, stat
52     \textcolor{keywordtype}{character(STRING)}:: cause\_c
53     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoInquire1"}
54   \textcolor{keywordflow}{continue}
55     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
56     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
57     cause\_c = \textcolor{stringliteral}{''}
58 
59     \textcolor{keywordflow}{if} ( .not. varinfo % initialized ) \textcolor{keywordflow}{then}
60       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
61       cause\_c = \textcolor{stringliteral}{'GT\_HISTORY\_VARINFO'}
62       \textcolor{keywordflow}{goto} 999
63 \textcolor{keywordflow}{    end if}
64     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(name)) name = varinfo % name
65     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(dims)) \textcolor{keywordflow}{then}
66       numdims = \textcolor{keyword}{size}(varinfo % dims)
67       \textcolor{keyword}{allocate}(dims(numdims))
68       \textcolor{keywordflow}{do} i = 1, numdims
69         dims(i) = varinfo % dims(i)
70 \textcolor{keywordflow}{      end do}
71 \textcolor{keywordflow}{    end if}
72     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(longname) ) longname = varinfo % longname
73     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(\hyperlink{structdc__units_1_1units}{units})    ) \hyperlink{structdc__units_1_1units}{units}    = varinfo % units
74     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(xtype)    ) xtype    = varinfo % xtype
75     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(time\_average)  ) time\_average  = varinfo % time\_average
76     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(average)  )           average  = varinfo % time\_average
77 
78 999 \textcolor{keywordflow}{continue}
79     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c=cause\_c)
80     \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]{historyvarinfoinquire_8f90_a73b31ddced0929a9fa3657d085be75c3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyvarinfoinquire_8f90_a269945283d407d04e0c55bae5c0b6f67}\label{historyvarinfoinquire_8f90_a269945283d407d04e0c55bae5c0b6f67}} 
\index{historyvarinfoinquire.\+f90@{historyvarinfoinquire.\+f90}!historyvarinfoinquire2@{historyvarinfoinquire2}}
\index{historyvarinfoinquire2@{historyvarinfoinquire2}!historyvarinfoinquire.\+f90@{historyvarinfoinquire.\+f90}}
\subsubsection{\texorpdfstring{historyvarinfoinquire2()}{historyvarinfoinquire2()}}
{\footnotesize\ttfamily subroutine historyvarinfoinquire2 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history\+\_\+varinfo), intent(in)}]{varinfo,  }\item[{character($\ast$), intent(out), optional}]{name,  }\item[{character($\ast$), dimension(\+:), optional, pointer}]{dims,  }\item[{character($\ast$), intent(out), optional}]{longname,  }\item[{character($\ast$), intent(out), optional}]{units,  }\item[{character($\ast$), intent(out), optional}]{xtype,  }\item[{logical, intent(out), optional}]{time\+\_\+average,  }\item[{logical, intent(out), optional}]{average,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 87 of file historyvarinfoinquire.\+f90.



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


\begin{DoxyCode}
87     \textcolor{comment}{!}
88     \textcolor{comment}{! 使用方法は HistoryVarinfoInquire と同様です. }
89     \textcolor{comment}{!}
90     \textcolor{comment}{! Usage is same as "HistoryVarinfoInquire".}
91     \textcolor{comment}{!}
92     \textcolor{comment}{!--}
93     \textcolor{comment}{! 総称名 Inquire として提供するためのサブルーチンです. }
94     \textcolor{comment}{! 機能は HistoryVarinfoInquire1 と同じです. }
95     \textcolor{comment}{!++}
96     \textcolor{comment}{!}
97     \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}
98     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}
99     \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}
100     \textcolor{keywordtype}{implicit none}
101     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history__varinfo}{gt\_history\_varinfo}),\textcolor{keywordtype}{intent(in)} :: varinfo
102     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: name     \textcolor{comment}{! 変数名}
103     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{pointer},     \textcolor{keywordtype}{optional}:: dims(:)  \textcolor{comment}{!(out) 依存する次元}
104     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: longname \textcolor{comment}{! 変数の記述的名称}
105     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: \hyperlink{structdc__units_1_1units}{units}    \textcolor{comment}{! 変数の単位}
106     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: xtype    \textcolor{comment}{! 変数の型}
107     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: time\_average  \textcolor{comment}{! 時間平均}
108     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: average       \textcolor{comment}{! 時間平均 (後方互換用)}
109     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
110     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryVarinfoInquire2"}
111   \textcolor{keywordflow}{continue}
112     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
113     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoinquire}{historyvarinfoinquire}( varinfo, &
114       & name, dims, longname, \hyperlink{structdc__units_1_1units}{units}, xtype, &
115       & time\_average, average, err )
116     \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]{historyvarinfoinquire_8f90_a269945283d407d04e0c55bae5c0b6f67_cgraph}
\end{center}
\end{figure}
