\hypertarget{gtvarputattrchar_8f90}{}\section{gtdata/gtvarputattrchar.f90 File Reference}
\label{gtvarputattrchar_8f90}\index{gtdata/gtvarputattrchar.\+f90@{gtdata/gtvarputattrchar.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvarputattrchar_8f90_a8563adbc63fe5b4a4e462a0e319e683a}{gtvarputattrlogical} (var, name, value, err)
\item 
subroutine \hyperlink{gtvarputattrchar_8f90_a55270703128db36b273d1d7eeba8d16e}{gtvarputattrint} (var, name, value, err)
\item 
subroutine \hyperlink{gtvarputattrchar_8f90_aea663c01a8802db0d70b032833ac211d}{gtvarputattrreal} (var, name, value, err)
\item 
subroutine \hyperlink{gtvarputattrchar_8f90_a0d8dff3feff0d6b73579317eba4f11aa}{gtvarputattrdouble} (var, name, value, err)
\item 
subroutine \hyperlink{gtvarputattrchar_8f90_a987f35732a439b1fd6baa62e12b4652b}{gtvarputattrchar} (var, name, value, xtype, err)
\end{DoxyCompactItemize}


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



Definition at line 148 of file gtvarputattrchar.\+f90.



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


\begin{DoxyCode}
148   \textcolor{comment}{!}
149   \textcolor{comment}{! まずは上記の Put\_Attr}
150   \textcolor{comment}{! (または GTVarPutAttrChar)}
151   \textcolor{comment}{! を参照してください。}
152   \textcolor{comment}{!}
153   \textcolor{comment}{! *xtype* に型を指定することで、引数 *value* には文字型を与えても、}
154   \textcolor{comment}{! 整数型、実数型 (単精度、倍精度) の値を付加することが可能です。}
155   \textcolor{comment}{!}
156   \textcolor{comment}{! *xtype* には与える文字列として、以下のものが有効です。}
157   \textcolor{comment}{! これら以外の場合は文字型の値が与えられます。}
158   \textcolor{comment}{!}
159   \textcolor{comment}{! 整数型          :: "INTEGER", "integer", "int"}
160   \textcolor{comment}{! 実数型 (単精度) :: "REAL", "real", "float"}
161   \textcolor{comment}{! 実数型 (倍精度) :: "DOUBLEPRECISION", "DOUBLE", "double"}
162   \textcolor{comment}{!--}
163   \textcolor{comment}{! gtdata/gtdata\_netcdf/gdncputattrchar.f90#GDNcVarPutAttrChar 参照}
164   \textcolor{comment}{!++}
165   \textcolor{comment}{!}
166   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
167   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
168   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}
169   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
170   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub
171   \textcolor{keywordtype}{implicit none}
172   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(inout)}:: var
173   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
174   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: value
175   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: xtype
176   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
177   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
178   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subnam = \textcolor{stringliteral}{"gtvarputattrchar"}
179 \textcolor{keywordflow}{continue}
180   \textcolor{keyword}{call }beginsub(subnam, \textcolor{stringliteral}{"%d:%c = %c"}, i=(/var%mapid/), c1=trim(name), c2=trim(\textcolor{keywordtype}{value}))
181   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
182   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
183     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, xtype, err)
184 \textcolor{keywordflow}{  endif}
185   \textcolor{keyword}{call }endsub(subnam)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarputattrchar_8f90_a987f35732a439b1fd6baa62e12b4652b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvarputattrchar_8f90_a0d8dff3feff0d6b73579317eba4f11aa}\label{gtvarputattrchar_8f90_a0d8dff3feff0d6b73579317eba4f11aa}} 
\index{gtvarputattrchar.\+f90@{gtvarputattrchar.\+f90}!gtvarputattrdouble@{gtvarputattrdouble}}
\index{gtvarputattrdouble@{gtvarputattrdouble}!gtvarputattrchar.\+f90@{gtvarputattrchar.\+f90}}
\subsubsection{\texorpdfstring{gtvarputattrdouble()}{gtvarputattrdouble()}}
{\footnotesize\ttfamily subroutine gtvarputattrdouble (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(inout)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{real(dp), dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 123 of file gtvarputattrchar.\+f90.



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


\begin{DoxyCode}
123   \textcolor{comment}{!}
124   \textcolor{comment}{! まずは上記の Put\_Attr}
125   \textcolor{comment}{! (または GTVarPutAttrChar および GTVarPutAttrReal)}
126   \textcolor{comment}{! を参照してください。}
127   \textcolor{comment}{!}
128   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
129   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
130   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}
131   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
132   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
133   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
134   \textcolor{keywordtype}{implicit none}
135   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(inout)}:: var
136   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
137   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
138   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
139   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
140 \textcolor{keywordflow}{continue}
141   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
142   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
143     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, err)
144 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarputattrchar_8f90_a0d8dff3feff0d6b73579317eba4f11aa_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvarputattrchar_8f90_a55270703128db36b273d1d7eeba8d16e}\label{gtvarputattrchar_8f90_a55270703128db36b273d1d7eeba8d16e}} 
\index{gtvarputattrchar.\+f90@{gtvarputattrchar.\+f90}!gtvarputattrint@{gtvarputattrint}}
\index{gtvarputattrint@{gtvarputattrint}!gtvarputattrchar.\+f90@{gtvarputattrchar.\+f90}}
\subsubsection{\texorpdfstring{gtvarputattrint()}{gtvarputattrint()}}
{\footnotesize\ttfamily subroutine gtvarputattrint (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(inout)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{integer, dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 71 of file gtvarputattrchar.\+f90.



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


\begin{DoxyCode}
71   \textcolor{comment}{!}
72   \textcolor{comment}{! まずは上記の Put\_Attr}
73   \textcolor{comment}{! (または GTVarPutAttrChar および GTVarPutAttrReal)}
74   \textcolor{comment}{! を参照してください。}
75   \textcolor{comment}{!}
76   \textcolor{comment}{! *value* は配列を受け取るので、スカラーを書き出すには}
77   \textcolor{comment}{! Fortran の配列構成子 <tt>(/ ... /)</tt> を使ってください。}
78   \textcolor{comment}{! たとえば、スカラー a から長さ 1 の配列 <tt>(/a/)</tt>}
79   \textcolor{comment}{! を作ることができます。}
80   \textcolor{comment}{!}
81   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_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{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}
84   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
85   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
86   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(inout)}:: var
87   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
88   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
89   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
90   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
91 \textcolor{keywordflow}{continue}
92   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
93   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
94     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, err)
95 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarputattrchar_8f90_a55270703128db36b273d1d7eeba8d16e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvarputattrchar_8f90_a8563adbc63fe5b4a4e462a0e319e683a}\label{gtvarputattrchar_8f90_a8563adbc63fe5b4a4e462a0e319e683a}} 
\index{gtvarputattrchar.\+f90@{gtvarputattrchar.\+f90}!gtvarputattrlogical@{gtvarputattrlogical}}
\index{gtvarputattrlogical@{gtvarputattrlogical}!gtvarputattrchar.\+f90@{gtvarputattrchar.\+f90}}
\subsubsection{\texorpdfstring{gtvarputattrlogical()}{gtvarputattrlogical()}}
{\footnotesize\ttfamily subroutine gtvarputattrlogical (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(inout)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{logical, intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



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



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


\begin{DoxyCode}
14   \textcolor{comment}{!}
15   \textcolor{comment}{!== 属性の付加}
16   \textcolor{comment}{!}
17   \textcolor{comment}{! 変数 *var* に, 属性名 *name* とその値 *value* を付加します。}
18   \textcolor{comment}{!}
19   \textcolor{comment}{! *Put\_Attr* は複数のサブルーチンの総称名なので、}
20   \textcolor{comment}{! *value* には様々な型の変数を与えることが可能です。}
21   \textcolor{comment}{! 以下のサブルーチンを参照してください。}
22   \textcolor{comment}{!}
23   \textcolor{comment}{! 引数に *xtype* を持つものは、その引数に型を指定することで、}
24   \textcolor{comment}{! 引数 *value* には文字型を与えても、}
25   \textcolor{comment}{! 整数型、実数型 (単精度、倍精度) の値を付加することが可能です。}
26   \textcolor{comment}{! 下記のサブルーチンを参照ください。}
27   \textcolor{comment}{!}
28   \textcolor{comment}{! エラーが発生した場合、引数 *err* が与えられる場合は *err* が}
29   \textcolor{comment}{! <tt>.true.</tt> となって返ります。}
30   \textcolor{comment}{! 引数 *err* を与えなければプログラムは停止します。}
31   \textcolor{comment}{!}
32   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
33   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
34   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}
35   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
36   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
37   \textcolor{keywordtype}{implicit none}
38   \textcolor{keywordtype}{type}(gt\_variable),  \textcolor{keywordtype}{intent(inout)}        :: var
39   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}           :: name
40   \textcolor{keywordtype}{logical},            \textcolor{keywordtype}{intent(in)}           :: value
41   \textcolor{keywordtype}{logical},            \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
42   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
43 \textcolor{keywordflow}{continue}
44   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
45   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
46     \textcolor{keywordflow}{if} (\textcolor{keywordtype}{value}) \textcolor{keywordflow}{then}
47       \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{stringliteral}{"true"}, err=err)
48     \textcolor{keywordflow}{else}
49       \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{stringliteral}{"false"}, err=err)
50 \textcolor{keywordflow}{    endif}
51 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarputattrchar_8f90_a8563adbc63fe5b4a4e462a0e319e683a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvarputattrchar_8f90_aea663c01a8802db0d70b032833ac211d}\label{gtvarputattrchar_8f90_aea663c01a8802db0d70b032833ac211d}} 
\index{gtvarputattrchar.\+f90@{gtvarputattrchar.\+f90}!gtvarputattrreal@{gtvarputattrreal}}
\index{gtvarputattrreal@{gtvarputattrreal}!gtvarputattrchar.\+f90@{gtvarputattrchar.\+f90}}
\subsubsection{\texorpdfstring{gtvarputattrreal()}{gtvarputattrreal()}}
{\footnotesize\ttfamily subroutine gtvarputattrreal (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(inout)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{real, dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 99 of file gtvarputattrchar.\+f90.



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


\begin{DoxyCode}
99   \textcolor{comment}{!}
100   \textcolor{comment}{! まずは上記の Put\_Attr}
101   \textcolor{comment}{! (または GTVarPutAttrChar および GTVarPutAttrReal)}
102   \textcolor{comment}{! を参照してください。}
103   \textcolor{comment}{!}
104   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
105   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, vtb\_class\_netcdf
106   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}
107   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
108   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
109   \textcolor{keywordtype}{implicit none}
110   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(inout)}:: var
111   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
112   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
113   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
114   \textcolor{keywordtype}{integer}:: \textcolor{keywordtype}{class}, cid
115 \textcolor{keywordflow}{continue}
116   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
117   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
118     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1put__attr}{put\_attr}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), name, \textcolor{keywordtype}{value}, err)
119 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvarputattrchar_8f90_aea663c01a8802db0d70b032833ac211d_cgraph}
\end{center}
\end{figure}
