\hypertarget{gtvarattrsearch_8f90}{}\section{gtdata/gtvarattrsearch.f90 File Reference}
\label{gtvarattrsearch_8f90}\index{gtdata/gtvarattrsearch.\+f90@{gtdata/gtvarattrsearch.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvarattrsearch_8f90_a470845ca609ca2127e3028a5ba6f99a2}{gtvarattrrewind} (var)
\item 
subroutine \hyperlink{gtvarattrsearch_8f90_ae4d505f8966fa46afd954d1963623dee}{gtvarattrnext} (var, name, end)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvarattrsearch_8f90_ae4d505f8966fa46afd954d1963623dee}\label{gtvarattrsearch_8f90_ae4d505f8966fa46afd954d1963623dee}} 
\index{gtvarattrsearch.\+f90@{gtvarattrsearch.\+f90}!gtvarattrnext@{gtvarattrnext}}
\index{gtvarattrnext@{gtvarattrnext}!gtvarattrsearch.\+f90@{gtvarattrsearch.\+f90}}
\subsubsection{\texorpdfstring{gtvarattrnext()}{gtvarattrnext()}}
{\footnotesize\ttfamily subroutine gtvarattrnext (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(inout), target}]{var,  }\item[{character(len = $\ast$), intent(out)}]{name,  }\item[{logical, intent(out), optional}]{end }\end{DoxyParamCaption})}



Definition at line 58 of file gtvarattrsearch.\+f90.



References gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
58   \textcolor{comment}{!}
59   \textcolor{comment}{!== 変数からの属性リスト取得}
60   \textcolor{comment}{!}
61   \textcolor{comment}{! Attr\_Rewind を参照してください。}
62   \textcolor{comment}{!}
63   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
64   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
65   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1attr__next}{attr\_next}
66   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
67   \textcolor{keywordtype}{implicit none}
68   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}:: var
69   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(out)}:: name
70   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: end
71   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
72 \textcolor{keywordflow}{continue}
73   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
74   \textcolor{keywordflow}{select case}(class)
75   \textcolor{keywordflow}{case}(vtb\_class\_netcdf)
76     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1attr__next}{attr\_next}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, end)
77 \textcolor{keywordflow}{  end select}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarattrsearch_8f90_ae4d505f8966fa46afd954d1963623dee_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvarattrsearch_8f90_a470845ca609ca2127e3028a5ba6f99a2}\label{gtvarattrsearch_8f90_a470845ca609ca2127e3028a5ba6f99a2}} 
\index{gtvarattrsearch.\+f90@{gtvarattrsearch.\+f90}!gtvarattrrewind@{gtvarattrrewind}}
\index{gtvarattrrewind@{gtvarattrrewind}!gtvarattrsearch.\+f90@{gtvarattrsearch.\+f90}}
\subsubsection{\texorpdfstring{gtvarattrrewind()}{gtvarattrrewind()}}
{\footnotesize\ttfamily subroutine gtvarattrrewind (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(inout), target}]{var }\end{DoxyParamCaption})}



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



References gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
15   \textcolor{comment}{!}
16   \textcolor{comment}{!== 変数からの属性リスト取得 (初期化用)}
17   \textcolor{comment}{!}
18   \textcolor{comment}{! *var* から属性名のリストを取得するために利用するサブルーチンです。}
19   \textcolor{comment}{! このサブルーチンと Attr\_Next によって属性リスト一覧を取得できます。}
20   \textcolor{comment}{!}
21   \textcolor{comment}{! ある変数 *var* について全ての属性を列挙するためには、まず}
22   \textcolor{comment}{! Attr\_Rewind を呼んだ後、Attr\_Next を呼びます。最初の呼び出しで}
23   \textcolor{comment}{! 最初の属性が、次の呼び出しで次の属性の名前が得られます。最後の}
24   \textcolor{comment}{! 属性のあとでは end == .true. となります。}
25   \textcolor{comment}{!}
26   \textcolor{comment}{! 以下のサンプルソースコードを参照ください。}
27   \textcolor{comment}{!}
28   \textcolor{comment}{!}
29   \textcolor{comment}{!      ! 属性一覧の取得}
30   \textcolor{comment}{!      use gtool5}
31   \textcolor{comment}{!      type(GT\_VARIABLE):: var}
32   \textcolor{comment}{!      character(len = STRING):: attrname}
33   \textcolor{comment}{!      logical:: end}
34   \textcolor{comment}{!}
35   \textcolor{comment}{!      call Attr\_Rewind(var)}
36   \textcolor{comment}{!      do}
37   \textcolor{comment}{!          call Attr\_Next(var, attrname, end)}
38   \textcolor{comment}{!          if (end) exit}
39   \textcolor{comment}{!          write(*,*) trim(attrname)}
40   \textcolor{comment}{!      enddo}
41   \textcolor{comment}{!}
42   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
43   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
44   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1attr__rewind}{attr\_rewind}
45   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
46   \textcolor{keywordtype}{implicit none}
47   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(inout)}, \textcolor{keywordtype}{target}:: var
48   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
49 \textcolor{keywordflow}{continue}
50   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
51   \textcolor{keywordflow}{select case}(class)
52   \textcolor{keywordflow}{case}(vtb\_class\_netcdf)
53     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1attr__rewind}{attr\_rewind}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid))
54 \textcolor{keywordflow}{  end select}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarattrsearch_8f90_a470845ca609ca2127e3028a5ba6f99a2_cgraph}
\end{center}
\end{figure}
