\hypertarget{gtvargetattr_8f90}{}\section{gtdata/gtvargetattr.f90 File Reference}
\label{gtvargetattr_8f90}\index{gtdata/gtvargetattr.\+f90@{gtdata/gtvargetattr.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvargetattr_8f90_ab50f3259967dd7454bbca496e3369c35}{gtvargetattri} (var, attrname, value, default)
\item 
subroutine \hyperlink{gtvargetattr_8f90_a745df9542eaf06fedabdda7736fc0436}{gtvargetattrr} (var, attrname, value, default)
\item 
subroutine \hyperlink{gtvargetattr_8f90_a18272f055384260f1b6e08b6473112b5}{gtvargetattrd} (var, attrname, value, default)
\item 
subroutine \hyperlink{gtvargetattr_8f90_a08cbc943214df5219c71375a4f1cd933}{gtvargetattrip} (var, name, value)
\item 
subroutine \hyperlink{gtvargetattr_8f90_a18926bfc70587fdf769db90c6422209b}{gtvargetattrrp} (var, name, value)
\item 
subroutine \hyperlink{gtvargetattr_8f90_a57cf6755baee0ccf620db47d0e474f1c}{gtvargetattrdp} (var, name, value)
\item 
subroutine \hyperlink{gtvargetattr_8f90_a196d9eee44621ab14e458163b5b0de86}{gtvargetattria} (var, name, value, default)
\item 
subroutine \hyperlink{gtvargetattr_8f90_a0373381bc73db66f549cc9aef7e517bb}{gtvargetattrra} (var, name, value, default)
\item 
subroutine \hyperlink{gtvargetattr_8f90_a1f75783d40d54b2e81c99d27612bc382}{gtvargetattrda} (var, name, value, default)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvargetattr_8f90_a18272f055384260f1b6e08b6473112b5}\label{gtvargetattr_8f90_a18272f055384260f1b6e08b6473112b5}} 
\index{gtvargetattr.\+f90@{gtvargetattr.\+f90}!gtvargetattrd@{gtvargetattrd}}
\index{gtvargetattrd@{gtvargetattrd}!gtvargetattr.\+f90@{gtvargetattr.\+f90}}
\subsubsection{\texorpdfstring{gtvargetattrd()}{gtvargetattrd()}}
{\footnotesize\ttfamily subroutine gtvargetattrd (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{attrname,  }\item[{real(dp), intent(out)}]{value,  }\item[{real(dp), intent(in), optional}]{default }\end{DoxyParamCaption})}



Definition at line 117 of file gtvargetattr.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+enotvar, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
117   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
118   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
119   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
120   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
121   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: stod
122   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
123   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
124   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_double
125   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
126   \textcolor{keywordtype}{implicit none}
127   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
128   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: attrname
129   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}:: value
130   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: default
131   \textcolor{keywordtype}{integer}:: stat
132   \textcolor{keywordtype}{real(DP)}:: buffer(1)
133   \textcolor{keywordtype}{character(STRING)}:: cbuffer
134   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
135   \textcolor{keywordtype}{logical}:: err
136 \textcolor{keywordflow}{continue}
137   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
138   \textcolor{keywordflow}{select case}(class)
139   \textcolor{keywordflow}{case} (vtb\_class\_netcdf)
140     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), attrname, \textcolor{keywordtype}{value}=buffer, &
141       & stat=stat, default=default)
142     \textcolor{keywordflow}{if} (stat >= 1) \textcolor{keywordflow}{then}
143       \textcolor{keywordtype}{value} = buffer(1)
144       \textcolor{keywordflow}{return}
145 \textcolor{keywordflow}{    end if}
146 \textcolor{keywordflow}{  case default}
147     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \textcolor{stringliteral}{"GTVarGetAttrR"})
148 \textcolor{keywordflow}{  end select}
149   \textcolor{keywordtype}{value} = nf90\_fill\_double
150   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(default)) \textcolor{keywordtype}{value} = default
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattr_8f90_a18272f055384260f1b6e08b6473112b5_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetattr_8f90_a1f75783d40d54b2e81c99d27612bc382}\label{gtvargetattr_8f90_a1f75783d40d54b2e81c99d27612bc382}} 
\index{gtvargetattr.\+f90@{gtvargetattr.\+f90}!gtvargetattrda@{gtvargetattrda}}
\index{gtvargetattrda@{gtvargetattrda}!gtvargetattr.\+f90@{gtvargetattr.\+f90}}
\subsubsection{\texorpdfstring{gtvargetattrda()}{gtvargetattrda()}}
{\footnotesize\ttfamily subroutine gtvargetattrda (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{real(dp), dimension(\+:), intent(out)}]{value,  }\item[{real(dp), intent(in)}]{default }\end{DoxyParamCaption})}



Definition at line 300 of file gtvargetattr.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+enotvar, dc\+\_\+error\+::storeerror(), and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
300   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
301   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{, only}: friend => \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
302   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
303   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
304   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
305   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
306   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
307   \textcolor{keywordtype}{implicit none}
308   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
309   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
310   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}:: \textcolor{keywordtype}{value}(:)
311   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: default
312   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer}:: ptr(:)
313   \textcolor{keywordtype}{integer}:: n, stat, \textcolor{keywordtype}{class}, cid
314 \textcolor{keywordflow}{continue}
315   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
316   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
317     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, stat, default)
318   \textcolor{keywordflow}{else}
319     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \textcolor{stringliteral}{"GTVarGetAttrRA"})
320 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattr_8f90_a1f75783d40d54b2e81c99d27612bc382_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetattr_8f90_a57cf6755baee0ccf620db47d0e474f1c}\label{gtvargetattr_8f90_a57cf6755baee0ccf620db47d0e474f1c}} 
\index{gtvargetattr.\+f90@{gtvargetattr.\+f90}!gtvargetattrdp@{gtvargetattrdp}}
\index{gtvargetattrdp@{gtvargetattrdp}!gtvargetattr.\+f90@{gtvargetattr.\+f90}}
\subsubsection{\texorpdfstring{gtvargetattrdp()}{gtvargetattrdp()}}
{\footnotesize\ttfamily subroutine gtvargetattrdp (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{real(dp), dimension(\+:), pointer}]{value }\end{DoxyParamCaption})}



Definition at line 219 of file gtvargetattr.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+enotvar, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
219   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
220   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
221   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
222   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
223   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
224   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
225   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: get\_array
226   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
227   \textcolor{keywordtype}{implicit none}
228   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
229   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
230   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer}:: \textcolor{keywordtype}{value}(:) \textcolor{comment}{!(out)}
231   \textcolor{keywordtype}{integer}:: stat, \textcolor{keywordtype}{class}, cid
232   \textcolor{keywordtype}{character(STRING)}:: cbuffer
233   \textcolor{keywordtype}{logical}:: err
234 \textcolor{keywordflow}{continue}
235   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
236   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
237     \textcolor{keyword}{allocate}(value(1))
238     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, value(1:0), stat)
239     \textcolor{keyword}{deallocate}(\textcolor{keywordtype}{value})
240     \textcolor{keywordflow}{if} (stat < 1) \textcolor{keywordflow}{return}
241     \textcolor{keyword}{allocate}(value(stat))
242     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, stat)
243     \textcolor{keywordflow}{if} (stat < 1) \textcolor{keyword}{deallocate}(\textcolor{keywordtype}{value})
244   \textcolor{keywordflow}{else}
245     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \textcolor{stringliteral}{"GTVarGetAttrRP"})
246 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattr_8f90_a57cf6755baee0ccf620db47d0e474f1c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetattr_8f90_ab50f3259967dd7454bbca496e3369c35}\label{gtvargetattr_8f90_ab50f3259967dd7454bbca496e3369c35}} 
\index{gtvargetattr.\+f90@{gtvargetattr.\+f90}!gtvargetattri@{gtvargetattri}}
\index{gtvargetattri@{gtvargetattri}!gtvargetattr.\+f90@{gtvargetattr.\+f90}}
\subsubsection{\texorpdfstring{gtvargetattri()}{gtvargetattri()}}
{\footnotesize\ttfamily subroutine gtvargetattri (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{attrname,  }\item[{integer, intent(out)}]{value,  }\item[{integer, intent(in), optional}]{default }\end{DoxyParamCaption})}



Definition at line 19 of file gtvargetattr.\+f90.



References dc\+\_\+error\+::gt\+\_\+enotvar, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
19   \textcolor{comment}{!}
20   \textcolor{comment}{!== 属性の入力}
21   \textcolor{comment}{!}
22   \textcolor{comment}{! 変数 *var* に付加されている属性 *name* の値を返します。}
23   \textcolor{comment}{! *Get\_Attr* は複数のサブルーチンの総称名なので、}
24   \textcolor{comment}{! *value* には様々な型の変数 (ポインタも可能)}
25   \textcolor{comment}{! を与えることが可能です。}
26   \textcolor{comment}{! 以下のサブルーチンを参照してください。}
27   \textcolor{comment}{!}
28   \textcolor{comment}{! 属性の値が正常に取得できず、且つ *default* が与えられて}
29   \textcolor{comment}{! いた場合、その値が返ります。}
30   \textcolor{comment}{! *default* が与えられない場合のデフォルトの値はそれぞれ以下の}
31   \textcolor{comment}{! 通りです。}
32   \textcolor{comment}{!}
33   \textcolor{comment}{! character :: "" (空文字)}
34   \textcolor{comment}{! real      :: netcdf\_f77#NF90\_FILL\_REAL}
35   \textcolor{comment}{! real(DP)  :: netcdf\_f77#NF90\_FILL\_DOUBLE}
36   \textcolor{comment}{! integer   :: netcdf\_f77#NF90\_FILL\_INT}
37   \textcolor{comment}{!}
38   \textcolor{comment}{! *value* がポインタの場合は、型に依らず空状態が返ります。}
39   \textcolor{comment}{!}
40   \textcolor{comment}{! *value* にポインタを与えた場合、属性の値に応じて自動的に}
41   \textcolor{comment}{! 割り付けが行われます。そのため、必ず空状態にしてから与えてください。}
42   \textcolor{comment}{!}
43   \textcolor{comment}{! *value* に固定長配列を用意する場合 *default* が必須になりますが、}
44   \textcolor{comment}{! これは Fortran の言語仕様上ポインタ方式と引用仕様が同じであっては}
45   \textcolor{comment}{! ならないからです。}
46   \textcolor{comment}{!}
47   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
48   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
49   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
50   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
51   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_int
52   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: stoi
53   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
54   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
55   \textcolor{keywordtype}{implicit none}
56   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
57   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: attrname
58   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: value
59   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: default
60   \textcolor{keywordtype}{integer}:: stat, buffer(1), \textcolor{keywordtype}{class}, cid
61   \textcolor{keywordtype}{character(STRING)}:: cbuffer
62   \textcolor{keywordtype}{logical}:: err
63 \textcolor{keywordflow}{continue}
64   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
65   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
66     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), attrname, buffer, stat, default)
67     \textcolor{keywordflow}{if} (stat >= 1) \textcolor{keywordflow}{then}
68       \textcolor{keywordtype}{value} = buffer(1)
69       \textcolor{keywordflow}{return}
70 \textcolor{keywordflow}{    end if}
71   \textcolor{keywordflow}{else}
72     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \textcolor{stringliteral}{"GTVarGetAttrI"})
73 \textcolor{keywordflow}{  endif}
74   \textcolor{keywordtype}{value} = nf90\_fill\_int
75   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(default)) \textcolor{keywordtype}{value} = default
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattr_8f90_ab50f3259967dd7454bbca496e3369c35_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetattr_8f90_a196d9eee44621ab14e458163b5b0de86}\label{gtvargetattr_8f90_a196d9eee44621ab14e458163b5b0de86}} 
\index{gtvargetattr.\+f90@{gtvargetattr.\+f90}!gtvargetattria@{gtvargetattria}}
\index{gtvargetattria@{gtvargetattria}!gtvargetattr.\+f90@{gtvargetattr.\+f90}}
\subsubsection{\texorpdfstring{gtvargetattria()}{gtvargetattria()}}
{\footnotesize\ttfamily subroutine gtvargetattria (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{integer, dimension(\+:), intent(out)}]{value,  }\item[{integer, intent(in)}]{default }\end{DoxyParamCaption})}



Definition at line 254 of file gtvargetattr.\+f90.



References dc\+\_\+error\+::gt\+\_\+enotvar, dc\+\_\+error\+::storeerror(), and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
254   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
255   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{, only}: friend => \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
256   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
257   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
258   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
259   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
260   \textcolor{keywordtype}{implicit none}
261   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
262   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
263   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: \textcolor{keywordtype}{value}(:)
264   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: default
265   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}:: ptr(:)
266   \textcolor{keywordtype}{integer}:: n, stat, \textcolor{keywordtype}{class}, cid
267 \textcolor{keywordflow}{continue}
268   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
269   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
270     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, stat, default)
271   \textcolor{keywordflow}{else}
272     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \textcolor{stringliteral}{"GTVarGetAttrIA"})
273 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattr_8f90_a196d9eee44621ab14e458163b5b0de86_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetattr_8f90_a08cbc943214df5219c71375a4f1cd933}\label{gtvargetattr_8f90_a08cbc943214df5219c71375a4f1cd933}} 
\index{gtvargetattr.\+f90@{gtvargetattr.\+f90}!gtvargetattrip@{gtvargetattrip}}
\index{gtvargetattrip@{gtvargetattrip}!gtvargetattr.\+f90@{gtvargetattr.\+f90}}
\subsubsection{\texorpdfstring{gtvargetattrip()}{gtvargetattrip()}}
{\footnotesize\ttfamily subroutine gtvargetattrip (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{integer, dimension(\+:), pointer}]{value }\end{DoxyParamCaption})}



Definition at line 158 of file gtvargetattr.\+f90.



References dc\+\_\+error\+::gt\+\_\+enotvar, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
158   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
159   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
160   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
161   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
162   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
163   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: get\_array
164   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
165   \textcolor{keywordtype}{implicit none}
166   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
167   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
168   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}:: \textcolor{keywordtype}{value}(:) \textcolor{comment}{!(out)}
169   \textcolor{keywordtype}{integer}:: stat, \textcolor{keywordtype}{class}, cid
170   \textcolor{keywordtype}{character(STRING)}:: cbuffer
171   \textcolor{keywordtype}{logical}:: err
172 \textcolor{keywordflow}{continue}
173   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
174   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
175     \textcolor{keyword}{allocate}(value(1))
176     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, value(1:0), stat)
177     \textcolor{keyword}{deallocate}(\textcolor{keywordtype}{value})
178     \textcolor{keywordflow}{if} (stat < 1) \textcolor{keywordflow}{return}
179     \textcolor{keyword}{allocate}(value(stat))
180     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, stat)
181     \textcolor{keywordflow}{if} (stat < 1) \textcolor{keyword}{deallocate}(\textcolor{keywordtype}{value})
182   \textcolor{keywordflow}{else}
183     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \textcolor{stringliteral}{"GTVarGetAttrIP"})
184 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattr_8f90_a08cbc943214df5219c71375a4f1cd933_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetattr_8f90_a745df9542eaf06fedabdda7736fc0436}\label{gtvargetattr_8f90_a745df9542eaf06fedabdda7736fc0436}} 
\index{gtvargetattr.\+f90@{gtvargetattr.\+f90}!gtvargetattrr@{gtvargetattrr}}
\index{gtvargetattrr@{gtvargetattrr}!gtvargetattr.\+f90@{gtvargetattr.\+f90}}
\subsubsection{\texorpdfstring{gtvargetattrr()}{gtvargetattrr()}}
{\footnotesize\ttfamily subroutine gtvargetattrr (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{attrname,  }\item[{real, intent(out)}]{value,  }\item[{real, intent(in), optional}]{default }\end{DoxyParamCaption})}



Definition at line 79 of file gtvargetattr.\+f90.



References dc\+\_\+error\+::gt\+\_\+ebadvar, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
79   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
80   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
81   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
82   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
83   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a034d52028a635fe01d2ec4a960c5441c}{gt\_ebadvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
84   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: stod
85   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_fill\_float
86   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
87   \textcolor{keywordtype}{implicit none}
88   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
89   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: attrname
90   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(out)}:: value
91   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: default
92   \textcolor{keywordtype}{integer}:: stat
93   \textcolor{keywordtype}{real}:: buffer(1)
94   \textcolor{keywordtype}{character(STRING)}:: cbuffer
95   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
96   \textcolor{keywordtype}{logical}:: err
97 \textcolor{keywordflow}{continue}
98   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
99   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
100     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), attrname, \textcolor{keywordtype}{value}=buffer, &
101       & stat=stat, default=default)
102     \textcolor{keywordflow}{if} (stat >= 1) \textcolor{keywordflow}{then}
103       \textcolor{keywordtype}{value} = buffer(1)
104       \textcolor{keywordflow}{return}
105 \textcolor{keywordflow}{    endif}
106   \textcolor{keywordflow}{else}
107     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_a034d52028a635fe01d2ec4a960c5441c}{gt\_ebadvar}, \textcolor{stringliteral}{"GTVarGetAttrR"})
108 \textcolor{keywordflow}{  endif}
109   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(default)) \textcolor{keywordflow}{then}
110     \textcolor{keywordtype}{value} = default
111   \textcolor{keywordflow}{else}
112     \textcolor{keywordtype}{value} = nf90\_fill\_float
113 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattr_8f90_a745df9542eaf06fedabdda7736fc0436_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetattr_8f90_a0373381bc73db66f549cc9aef7e517bb}\label{gtvargetattr_8f90_a0373381bc73db66f549cc9aef7e517bb}} 
\index{gtvargetattr.\+f90@{gtvargetattr.\+f90}!gtvargetattrra@{gtvargetattrra}}
\index{gtvargetattrra@{gtvargetattrra}!gtvargetattr.\+f90@{gtvargetattr.\+f90}}
\subsubsection{\texorpdfstring{gtvargetattrra()}{gtvargetattrra()}}
{\footnotesize\ttfamily subroutine gtvargetattrra (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{real, dimension(\+:), intent(out)}]{value,  }\item[{real, intent(in)}]{default }\end{DoxyParamCaption})}



Definition at line 277 of file gtvargetattr.\+f90.



References dc\+\_\+error\+::gt\+\_\+enotvar, dc\+\_\+error\+::storeerror(), and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
277   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
278   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{, only}: friend => \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
279   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
280   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
281   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
282   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
283   \textcolor{keywordtype}{implicit none}
284   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
285   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
286   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(out)}:: \textcolor{keywordtype}{value}(:)
287   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: default
288   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{pointer}:: ptr(:)
289   \textcolor{keywordtype}{integer}:: n, \textcolor{keywordtype}{class}, cid, stat
290 \textcolor{keywordflow}{continue}
291   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
292   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
293     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, stat, default)
294   \textcolor{keywordflow}{else}
295     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \textcolor{stringliteral}{"GTVarGetAttrRA"})
296 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattr_8f90_a0373381bc73db66f549cc9aef7e517bb_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetattr_8f90_a18926bfc70587fdf769db90c6422209b}\label{gtvargetattr_8f90_a18926bfc70587fdf769db90c6422209b}} 
\index{gtvargetattr.\+f90@{gtvargetattr.\+f90}!gtvargetattrrp@{gtvargetattrrp}}
\index{gtvargetattrrp@{gtvargetattrrp}!gtvargetattr.\+f90@{gtvargetattr.\+f90}}
\subsubsection{\texorpdfstring{gtvargetattrrp()}{gtvargetattrrp()}}
{\footnotesize\ttfamily subroutine gtvargetattrrp (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{real, dimension(\+:), pointer}]{value }\end{DoxyParamCaption})}



Definition at line 188 of file gtvargetattr.\+f90.



References dc\+\_\+error\+::gt\+\_\+enotvar, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
188   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
189   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
190   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
191   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
192   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: get\_array
193   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
194   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
195   \textcolor{keywordtype}{implicit none}
196   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
197   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
198   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{pointer}:: \textcolor{keywordtype}{value}(:) \textcolor{comment}{!(out)}
199   \textcolor{keywordtype}{integer}:: stat, \textcolor{keywordtype}{class}, cid
200   \textcolor{keywordtype}{character(STRING)}:: cbuffer
201   \textcolor{keywordtype}{logical}:: err
202 \textcolor{keywordflow}{continue}
203   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
204   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
205     \textcolor{keyword}{allocate}(value(1))
206     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, value(1:0), stat)
207     \textcolor{keyword}{deallocate}(\textcolor{keywordtype}{value})
208     \textcolor{keywordflow}{if} (stat < 1) \textcolor{keywordflow}{return}
209     \textcolor{keyword}{allocate}(value(stat))
210     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, stat)
211     \textcolor{keywordflow}{if} (stat < 1) \textcolor{keyword}{deallocate}(\textcolor{keywordtype}{value})
212   \textcolor{keywordflow}{else}
213     \textcolor{keyword}{nullify}(\textcolor{keywordtype}{value})
214     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \textcolor{stringliteral}{"GTVarGetAttrRP"})
215 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattr_8f90_a18926bfc70587fdf769db90c6422209b_cgraph}
\end{center}
\end{figure}
