\hypertarget{gtvargetnum_8f90}{}\section{gtdata/gtvargetnum.f90 File Reference}
\label{gtvargetnum_8f90}\index{gtdata/gtvargetnum.\+f90@{gtdata/gtvargetnum.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble} (var, value, nvalue, err)
\item 
subroutine \hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal} (var, value, nvalue, err)
\item 
subroutine \hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint} (var, value, nvalue, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}\label{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}} 
\index{gtvargetnum.\+f90@{gtvargetnum.\+f90}!gtvargetdouble@{gtvargetdouble}}
\index{gtvargetdouble@{gtvargetdouble}!gtvargetnum.\+f90@{gtvargetnum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetdouble()}{gtvargetdouble()}}
{\footnotesize\ttfamily subroutine gtvargetdouble (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(dp), dimension($\ast$), intent(out)}]{value,  }\item[{integer, intent(in)}]{nvalue,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 42 of file gtvargetnum.\+f90.



References dc\+\_\+error\+::dc\+\_\+enegative, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+efake, gtdata\+\_\+internal\+\_\+map\+::gtvar\+\_\+dump(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+to\+\_\+internal\+\_\+specs(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
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}: &
44     & \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, &
45     & vtb\_class\_netcdf, &
46     & \hyperlink{namespacegtdata__internal__map_a392037efec5853031c3f9fac8f52c507}{map\_to\_internal\_specs}, &
47     & \hyperlink{namespacegtdata__internal__map_acbda65a71acbd7d3ba6175c6f4fceff0}{gtvar\_dump}
48   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
49   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
50   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,   only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
51   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,   only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a64f090fc161836514c614059f74c23e6}{dc\_enegative}, \hyperlink{namespacedc__error_a3c706700d7fb6c0ff705558066f8e583}{gt\_efake}
52   \textcolor{keywordtype}{implicit none}
53   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}            :: var
54   \textcolor{keywordtype}{real(DP)},          \textcolor{keywordtype}{intent(out)}           :: \textcolor{keywordtype}{value}(*)
55   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}            :: nvalue
56   \textcolor{keywordtype}{logical},           \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err
57   \textcolor{keywordtype}{integer}                                  :: \textcolor{keywordtype}{class}, cid, stat
58   \textcolor{keywordtype}{integer}                  , \textcolor{keywordtype}{pointer}       :: specs(:, :)
59   \textcolor{keywordtype}{character(STRING)}:: cause\_c
60   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'GTVarGetDouble'}
61   \textcolor{keywordflow}{continue}
62   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
63   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
64   cause\_c = \textcolor{stringliteral}{''}
65   \textcolor{keywordflow}{if} (nvalue < 1) \textcolor{keywordflow}{then}
66     stat = \hyperlink{namespacedc__error_a64f090fc161836514c614059f74c23e6}{dc\_enegative}
67     cause\_c = \textcolor{stringliteral}{'nvalue'}
68     \textcolor{keywordflow}{goto} 999
69 \textcolor{keywordflow}{  end if}
70   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_acbda65a71acbd7d3ba6175c6f4fceff0}{gtvar\_dump}(var)
71   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a392037efec5853031c3f9fac8f52c507}{map\_to\_internal\_specs}(var, specs)
72   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
73     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), start=specs(:, 1), count=specs(:, 2), &
74       & stride=specs(:, 3), imap=specs(:, 4), siz=nvalue, \textcolor{keywordtype}{value}=\textcolor{keywordtype}{value}, &
75       & iostat=stat)
76   \textcolor{keywordflow}{else}
77     stat = \hyperlink{namespacedc__error_a3c706700d7fb6c0ff705558066f8e583}{gt\_efake}
78 \textcolor{keywordflow}{  endif}
79   \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(specs)) \textcolor{keyword}{deallocate}(specs)
80 999 \textcolor{keywordflow}{continue}
81   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c, err = err)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}\label{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}} 
\index{gtvargetnum.\+f90@{gtvargetnum.\+f90}!gtvargetint@{gtvargetint}}
\index{gtvargetint@{gtvargetint}!gtvargetnum.\+f90@{gtvargetnum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetint()}{gtvargetint()}}
{\footnotesize\ttfamily subroutine gtvargetint (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension($\ast$), intent(out)}]{value,  }\item[{integer, intent(in)}]{nvalue,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 128 of file gtvargetnum.\+f90.



References dc\+\_\+error\+::dc\+\_\+enegative, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+efake, gtdata\+\_\+internal\+\_\+map\+::gtvar\+\_\+dump(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+to\+\_\+internal\+\_\+specs(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
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}: &
130     & \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, &
131     & vtb\_class\_netcdf, &
132     & \hyperlink{namespacegtdata__internal__map_a392037efec5853031c3f9fac8f52c507}{map\_to\_internal\_specs}, &
133     & \hyperlink{namespacegtdata__internal__map_acbda65a71acbd7d3ba6175c6f4fceff0}{gtvar\_dump}
134   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
135   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
136   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,   only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
137   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,   only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a64f090fc161836514c614059f74c23e6}{dc\_enegative}, \hyperlink{namespacedc__error_a3c706700d7fb6c0ff705558066f8e583}{gt\_efake}
138   \textcolor{keywordtype}{implicit none}
139   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}            :: var
140   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(out)}           :: \textcolor{keywordtype}{value}(*)
141   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}            :: nvalue
142   \textcolor{keywordtype}{logical},           \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err
143   \textcolor{keywordtype}{integer}                                  :: \textcolor{keywordtype}{class}, cid, stat
144   \textcolor{keywordtype}{integer}                  , \textcolor{keywordtype}{pointer}       :: specs(:, :)
145   \textcolor{keywordtype}{character(STRING)}:: cause\_c
146   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'GTVarGetDouble'}
147   \textcolor{keywordflow}{continue}
148   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
149   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
150   cause\_c = \textcolor{stringliteral}{''}
151   \textcolor{keywordflow}{if} (nvalue < 1) \textcolor{keywordflow}{then}
152     stat = \hyperlink{namespacedc__error_a64f090fc161836514c614059f74c23e6}{dc\_enegative}
153     cause\_c = \textcolor{stringliteral}{'nvalue'}
154     \textcolor{keywordflow}{goto} 999
155 \textcolor{keywordflow}{  end if}
156   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_acbda65a71acbd7d3ba6175c6f4fceff0}{gtvar\_dump}(var)
157   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a392037efec5853031c3f9fac8f52c507}{map\_to\_internal\_specs}(var, specs)
158   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
159     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), start=specs(:, 1), count=specs(:, 2), &
160       & stride=specs(:, 3), imap=specs(:, 4), siz=nvalue, \textcolor{keywordtype}{value}=\textcolor{keywordtype}{value}, &
161       & iostat=stat)
162   \textcolor{keywordflow}{else}
163     stat = \hyperlink{namespacedc__error_a3c706700d7fb6c0ff705558066f8e583}{gt\_efake}
164 \textcolor{keywordflow}{  endif}
165   \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(specs)) \textcolor{keyword}{deallocate}(specs)
166 999 \textcolor{keywordflow}{continue}
167   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c, err = err)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}\label{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}} 
\index{gtvargetnum.\+f90@{gtvargetnum.\+f90}!gtvargetreal@{gtvargetreal}}
\index{gtvargetreal@{gtvargetreal}!gtvargetnum.\+f90@{gtvargetnum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetreal()}{gtvargetreal()}}
{\footnotesize\ttfamily subroutine gtvargetreal (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(sp), dimension($\ast$), intent(out)}]{value,  }\item[{integer, intent(in)}]{nvalue,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 85 of file gtvargetnum.\+f90.



References dc\+\_\+error\+::dc\+\_\+enegative, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+efake, gtdata\+\_\+internal\+\_\+map\+::gtvar\+\_\+dump(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+to\+\_\+internal\+\_\+specs(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and gtdata\+\_\+internal\+\_\+map\+::var\+\_\+class().


\begin{DoxyCode}
85   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: gt\_variable
86   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{, only}: &
87     & \hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}, &
88     & vtb\_class\_netcdf, &
89     & \hyperlink{namespacegtdata__internal__map_a392037efec5853031c3f9fac8f52c507}{map\_to\_internal\_specs}, &
90     & \hyperlink{namespacegtdata__internal__map_acbda65a71acbd7d3ba6175c6f4fceff0}{gtvar\_dump}
91   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
92   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
93   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,   only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string} ,\hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
94   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,   only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a64f090fc161836514c614059f74c23e6}{dc\_enegative}, \hyperlink{namespacedc__error_a3c706700d7fb6c0ff705558066f8e583}{gt\_efake}
95   \textcolor{keywordtype}{implicit none}
96   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}            :: var
97   \textcolor{keywordtype}{real(SP)},          \textcolor{keywordtype}{intent(out)}           :: \textcolor{keywordtype}{value}(*)
98   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}            :: nvalue
99   \textcolor{keywordtype}{logical},           \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err
100   \textcolor{keywordtype}{integer}                                  :: \textcolor{keywordtype}{class}, cid, stat
101   \textcolor{keywordtype}{integer}                  , \textcolor{keywordtype}{pointer}       :: specs(:, :)
102   \textcolor{keywordtype}{character(STRING)}:: cause\_c
103   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'GTVarGetDouble'}
104   \textcolor{keywordflow}{continue}
105   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a86b920031832bea17e70a6bf4623c3d9}{var\_class}(var, \textcolor{keywordtype}{class}, cid)
106   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
107   cause\_c = \textcolor{stringliteral}{''}
108   \textcolor{keywordflow}{if} (nvalue < 1) \textcolor{keywordflow}{then}
109     stat = \hyperlink{namespacedc__error_a64f090fc161836514c614059f74c23e6}{dc\_enegative}
110     cause\_c = \textcolor{stringliteral}{'nvalue'}
111     \textcolor{keywordflow}{goto} 999
112 \textcolor{keywordflow}{  end if}
113   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_acbda65a71acbd7d3ba6175c6f4fceff0}{gtvar\_dump}(var)
114   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_a392037efec5853031c3f9fac8f52c507}{map\_to\_internal\_specs}(var, specs)
115   \textcolor{keywordflow}{if} (\textcolor{keywordtype}{class} == vtb\_class\_netcdf) \textcolor{keywordflow}{then}
116     \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}(cid), start=specs(:, 1), count=specs(:, 2), &
117       & stride=specs(:, 3), imap=specs(:, 4), siz=nvalue, \textcolor{keywordtype}{value}=\textcolor{keywordtype}{value}, &
118       & iostat=stat)
119   \textcolor{keywordflow}{else}
120     stat = \hyperlink{namespacedc__error_a3c706700d7fb6c0ff705558066f8e583}{gt\_efake}
121 \textcolor{keywordflow}{  endif}
122   \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(specs)) \textcolor{keyword}{deallocate}(specs)
123 999 \textcolor{keywordflow}{continue}
124   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c, err = err)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1_cgraph}
\end{center}
\end{figure}
