\hypertarget{gtvargetattrsc_8f90}{}\section{gtdata/gtvargetattrsc.f90 File Reference}
\label{gtvargetattrsc_8f90}\index{gtdata/gtvargetattrsc.\+f90@{gtdata/gtvargetattrsc.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvargetattrsc_8f90_a96b13964e485d917b93b4dc6e55e4a33}{gtvargetattrcc} (var, name, value, default)
\end{DoxyCompactItemize}


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



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



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


\begin{DoxyCode}
14   \textcolor{comment}{!--}
15   \textcolor{comment}{! character 型で受け取る場合は通常の文字型代入と同様、}
16   \textcolor{comment}{! 受け側変数の長さに合わせて切り捨て・空白埋めを行う。}
17   \textcolor{comment}{! 属性が存在しない場合 default 値を使う。}
18   \textcolor{comment}{!++}
19 
20   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
21   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
22   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get__attr}{get\_attr}
23   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
24   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub
25   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
26   \textcolor{keywordtype}{implicit none}
27   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
28   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
29   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(out)}:: value
30   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: default
31   \textcolor{keywordtype}{logical}:: err
32   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid, stat
33   \textcolor{keywordtype}{character(len = string)}:: p\_default
34   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subnam = \textcolor{stringliteral}{"gtvargetattrcc"}
35 \textcolor{keywordflow}{continue}
36   \textcolor{keyword}{call }beginsub(subnam)
37   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
38   p\_default = \textcolor{stringliteral}{""}
39   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(default)) p\_default = default
40   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
41     \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}, p\_default, stat)
42 \textcolor{keywordflow}{  endif}
43   \textcolor{keyword}{call }endsub(subnam, \textcolor{stringliteral}{"%d:%d:%c = %c"}, i=(/\textcolor{keywordtype}{class}, cid/), &
44     & c1=trim(name), c2=trim(value))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetattrsc_8f90_a96b13964e485d917b93b4dc6e55e4a33_cgraph}
\end{center}
\end{figure}
