<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">\hypertarget{gtvarattrtrue_8f90}{}\section{gtdata/gtvarattrtrue.f90 File Reference}
\label{gtvarattrtrue_8f90}\index{gtdata/gtvarattrtrue.\+f90@{gtdata/gtvarattrtrue.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
logical function \hyperlink{gtvarattrtrue_8f90_ae8542123b85a2419f0dfa043845977f2}{gtvarattrtrue} (var, name, default)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvarattrtrue_8f90_ae8542123b85a2419f0dfa043845977f2}\label{gtvarattrtrue_8f90_ae8542123b85a2419f0dfa043845977f2}} 
\index{gtvarattrtrue.\+f90@{gtvarattrtrue.\+f90}!gtvarattrtrue@{gtvarattrtrue}}
\index{gtvarattrtrue@{gtvarattrtrue}!gtvarattrtrue.\+f90@{gtvarattrtrue.\+f90}}
\subsubsection{\texorpdfstring{gtvarattrtrue()}{gtvarattrtrue()}}
{\footnotesize\ttfamily logical function gtvarattrtrue (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{logical, intent(in), optional}]{default }\end{DoxyParamCaption})}



Definition at line 14 of file gtvarattrtrue.\+f90.



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


\begin{DoxyCode}
14   \textcolor{comment}{!}
15   \textcolor{comment}{!== 隲也炊蝙句ｱ樊ｧ縺ｮ蜈･蜉孺
16   \textcolor{comment}{!}
17   \textcolor{comment}{! 螟画焚 *var* 縺ｫ莉伜刈縺輔ｌ縺ｦ縺�ｋ螻樊ｧ *name* 縺ｮ蛟､繧定ｿ斐＠縺ｾ縺吶�}
18   \textcolor{comment}{! 螻樊ｧ蛟､縺瑚ｫ也炊蝙句ｱ樊ｧ縺ｮ蝣ｴ蜷医�縺ｿ逕ｨ縺�ｋ縺薙→縺悟�譚･縺ｾ縺吶�}
19   \textcolor{comment}{!}
20   \textcolor{comment}{! 莉･荳九�蝣ｴ蜷医↓縺ｯ .false. 縺瑚ｿ斐ｊ縺ｾ縺吶�}
21   \textcolor{comment}{!}
22   \textcolor{comment}{! * 螻樊ｧ縺ｮ蛟､縺梧枚蟄怜梛縺ｧ "", "0", "0.0", "0.", ".0", "FALSE",}
23   \textcolor{comment}{!   "false", ".FALSE.",  ".false.", "F", "f", "0.0D0", "0.0d0"}
24   \textcolor{comment}{!   縺ｮ縺�▼繧後°縺ｧ縺ゅ▲縺溷�ｴ蜷�}
25   \textcolor{comment}{! * 螻樊ｧ縺ｮ蛟､縺瑚ｲ�縺ｮ螳滓焚縺ｧ縺ゅ▲縺溷�ｴ蜷�}
26   \textcolor{comment}{!}
27   \textcolor{comment}{! 螻樊ｧ縺ｮ蛟､縺梧ｭ｣蟶ｸ縺ｫ蜿門ｾ励〒縺阪★縲∽ｸ斐▽ *default* 縺御ｸ弱∴繧峨ｌ縺ｦ}
28   \textcolor{comment}{! 縺�◆蝣ｴ蜷医√◎縺ｮ蛟､縺瑚ｿ斐ｊ縺ｾ縺吶�*default* 縺御ｸ弱∴繧峨ｌ縺ｦ縺�↑縺九▲縺毳
29   \textcolor{comment}{! 蝣ｴ蜷医↓縺ｯ .false. 縺瑚ｿ斐ｊ縺ｾ縺吶�}
30   \textcolor{comment}{!}
31   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
32   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
33   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
34   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
35   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}
36   \textcolor{keywordtype}{implicit none}
37   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
38   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
39   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: default
40   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
41 \textcolor{keywordflow}{continue}
42   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
43   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
44     \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, result, default)
45   \textcolor{keywordflow}{else}
46     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_abf5d06cefc18fb371ac66ef70aadb05f}{gt\_enotvar}, \textcolor{stringliteral}{"GTVarAttrTrue(NO VARIABLE)"})
47     result = .false.
48 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarattrtrue_8f90_ae8542123b85a2419f0dfa043845977f2_cgraph}
\end{center}
\end{figure}
</pre></body></html>