\hypertarget{gtvarsearch_8f90}{}\section{gtdata/gtvarsearch.f90 File Reference}
\label{gtvarsearch_8f90}\index{gtdata/gtvarsearch.\+f90@{gtdata/gtvarsearch.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvarsearch_8f90_a9a48bcfa2a8f1723965b1f8efa8f2417}{gtvarsearchnext} (url, end)
\item 
subroutine \hyperlink{gtvarsearch_8f90_a31ef7f45211ce26a8124ac773e07de2b}{gtvarsearchinit} (url\+Base)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvarsearch_8f90_a31ef7f45211ce26a8124ac773e07de2b}\label{gtvarsearch_8f90_a31ef7f45211ce26a8124ac773e07de2b}} 
\index{gtvarsearch.\+f90@{gtvarsearch.\+f90}!gtvarsearchinit@{gtvarsearchinit}}
\index{gtvarsearchinit@{gtvarsearchinit}!gtvarsearch.\+f90@{gtvarsearch.\+f90}}
\subsubsection{\texorpdfstring{gtvarsearchinit()}{gtvarsearchinit()}}
{\footnotesize\ttfamily subroutine gtvarsearchinit (\begin{DoxyParamCaption}\item[{character(len = $\ast$), intent(in)}]{url\+Base }\end{DoxyParamCaption})}



Definition at line 54 of file gtvarsearch.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::endsub(), and gtdata\+\_\+internal\+\_\+vartable\+::gdnc\+\_\+search.


\begin{DoxyCode}
54   \textcolor{comment}{!}
55   \textcolor{comment}{!== 変数探査初期化サブルーチン}
56   \textcolor{comment}{!}
57   \textcolor{comment}{! 上記の GTVarSearch を参照してください。}
58   \textcolor{comment}{!}
59   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1var__search}{var\_search}
60   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__vartable}{gtdata\_internal\_vartable}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__vartable_aaa4c37aba75313a971d0996e831aeda3}{gdnc\_search}
61   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
62   \textcolor{keywordtype}{implicit none}
63   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: urlbase
64 \textcolor{keywordflow}{continue}
65   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(\textcolor{stringliteral}{'gtvarsearchinit'}, \textcolor{stringliteral}{'urlbase=<%c>'}, c1=trim(urlbase))
66   \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1var__search}{var\_search}(\hyperlink{namespacegtdata__internal__vartable_aaa4c37aba75313a971d0996e831aeda3}{gdnc\_search}, &      \textcolor{comment}{! (out)}
67     &             urlbase = urlbase ) \textcolor{comment}{! (in)}
68   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(\textcolor{stringliteral}{'gtvarsearchinit'})
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarsearch_8f90_a31ef7f45211ce26a8124ac773e07de2b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvarsearch_8f90_a9a48bcfa2a8f1723965b1f8efa8f2417}\label{gtvarsearch_8f90_a9a48bcfa2a8f1723965b1f8efa8f2417}} 
\index{gtvarsearch.\+f90@{gtvarsearch.\+f90}!gtvarsearchnext@{gtvarsearchnext}}
\index{gtvarsearchnext@{gtvarsearchnext}!gtvarsearch.\+f90@{gtvarsearch.\+f90}}
\subsubsection{\texorpdfstring{gtvarsearchnext()}{gtvarsearchnext()}}
{\footnotesize\ttfamily subroutine gtvarsearchnext (\begin{DoxyParamCaption}\item[{character(len = $\ast$), intent(out)}]{url,  }\item[{logical, intent(out)}]{end }\end{DoxyParamCaption})}



Definition at line 15 of file gtvarsearch.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+trace\+::endsub(), and gtdata\+\_\+internal\+\_\+vartable\+::gdnc\+\_\+search.


\begin{DoxyCode}
15   \textcolor{comment}{!}
16   \textcolor{comment}{!== 変数探査サブルーチン}
17   \textcolor{comment}{!}
18   \textcolor{comment}{! あるファイル名 urlBase に依存する変数すべてを取得するには、}
19   \textcolor{comment}{! まず GTVarSearch(urlBase) (下記のサブルーチン) を呼び出し、}
20   \textcolor{comment}{! その後無限ループの中で GTVarSearch(url, end) を呼び出します。}
21   \textcolor{comment}{! そうすることで url に1つ1つの変数名が返ります。}
22   \textcolor{comment}{! *end* が真になったとき、すべての変数名を探索し終えたことになります。}
23   \textcolor{comment}{!}
24   \textcolor{comment}{!=== 例}
25   \textcolor{comment}{!}
26   \textcolor{comment}{!    use gtool5}
27   \textcolor{comment}{!    character(len = STRING) :: filename, varname}
28   \textcolor{comment}{!    logical                 :: end}
29   \textcolor{comment}{!}
30   \textcolor{comment}{!    write(*,*) "Enter file name: "}
31   \textcolor{comment}{!    read(*,*) filename}
32   \textcolor{comment}{!}
33   \textcolor{comment}{!    call GTVarSearch(filename)}
34   \textcolor{comment}{!    do}
35   \textcolor{comment}{!      call GTVarSearch(varname, end)}
36   \textcolor{comment}{!      if (end) exit}
37   \textcolor{comment}{!      write(*, *) trim(varname)}
38   \textcolor{comment}{!    enddo}
39   \textcolor{comment}{!}
40   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1var__search}{var\_search}
41   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__vartable}{gtdata\_internal\_vartable}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__vartable_aaa4c37aba75313a971d0996e831aeda3}{gdnc\_search}
42   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
43   \textcolor{keywordtype}{implicit none}
44   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(out)}:: url
45   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}:: end
46 \textcolor{keywordflow}{continue}
47   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(\textcolor{stringliteral}{'gtvarsearchnext'})
48   \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1var__search}{var\_search}(\hyperlink{namespacegtdata__internal__vartable_aaa4c37aba75313a971d0996e831aeda3}{gdnc\_search}, &    \textcolor{comment}{! (inout)}
49     &             url=url, end=end) \textcolor{comment}{! (out)}
50   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(\textcolor{stringliteral}{'gtvarsearchnext'}, \textcolor{stringliteral}{'url=%c end=%y'}, c1=trim(url), l=(/end/))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarsearch_8f90_a9a48bcfa2a8f1723965b1f8efa8f2417_cgraph}
\end{center}
\end{figure}
