\hypertarget{gdncvarputnum_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gdncvarputnum.f90 File Reference}
\label{gdncvarputnum_8f90}\index{gtdata/gtdata\+\_\+netcdf/gdncvarputnum.\+f90@{gtdata/gtdata\+\_\+netcdf/gdncvarputnum.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdncvarputnum_8f90_ac237f13b4ac4a6710e0e200a53982ebd}{gdncvarputreal} (var, start, count, stride, imap, siz, value, iostat)
\item 
subroutine \hyperlink{gdncvarputnum_8f90_af0924434bd45b8a43367e63e8c41cd15}{gdncvarputdouble} (var, start, count, stride, imap, siz, value, iostat)
\item 
subroutine \hyperlink{gdncvarputnum_8f90_ab7a042c04a6d7162031b0da0e1016cca}{gdncvarputint} (var, start, count, stride, imap, siz, value, iostat)
\item 
subroutine \hyperlink{gdncvarputnum_8f90_a7595f3d375fef588a0d3d17ef6071297}{gdncvarputchar} (var, start, count, stride, imap, siz, value, iostat)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdncvarputnum_8f90_a7595f3d375fef588a0d3d17ef6071297}\label{gdncvarputnum_8f90_a7595f3d375fef588a0d3d17ef6071297}} 
\index{gdncvarputnum.\+f90@{gdncvarputnum.\+f90}!gdncvarputchar@{gdncvarputchar}}
\index{gdncvarputchar@{gdncvarputchar}!gdncvarputnum.\+f90@{gdncvarputnum.\+f90}}
\subsubsection{\texorpdfstring{gdncvarputchar()}{gdncvarputchar()}}
{\footnotesize\ttfamily subroutine gdncvarputchar (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:), intent(in)}]{start,  }\item[{integer, dimension(\+:), intent(in)}]{count,  }\item[{integer, dimension(\+:), intent(in)}]{stride,  }\item[{integer, dimension(\+:), intent(in)}]{imap,  }\item[{integer, intent(in)}]{siz,  }\item[{character($\ast$), dimension(siz), intent(in)}]{value,  }\item[{integer, intent(out)}]{iostat }\end{DoxyParamCaption})}



Definition at line 136 of file gdncvarputnum.\+f90.



References dc\+\_\+trace\+::dbgmessage(), gdncfiledatamode(), and gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+lookup().


\begin{DoxyCode}
136   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
137   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__internal}{gtdata\_netcdf\_internal}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}, 
      \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}
138   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_noerr, nf90\_einval, nf90\_put\_var
139   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__generic}{gtdata\_netcdf\_file\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{gdncfiledatamode_8f90_a62939a5bbb992ef5dd1093b1f854cfce}{gdncfiledatamode}
140   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
141   \textcolor{keywordtype}{implicit none}
142   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
143   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: start(:)
144   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: count(:)
145   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: stride(:)
146   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: imap(:)
147   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: siz
148   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(siz)
149   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: iostat
150   \textcolor{keywordtype}{integer}:: ndims
151   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: ent
152   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"GDNcVarPutChar"}
153   \textcolor{keywordflow}{continue}
154   iostat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(var, ent)
155   \textcolor{keywordflow}{if} (iostat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
156   ndims = 0
157   \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(ent%dimids)) ndims = \textcolor{keyword}{size}(ent%dimids)
158   \textcolor{keywordflow}{if} (\hyperlink{interfacedc__date__generic_1_1min}{min}(\textcolor{keyword}{size}(start), \textcolor{keyword}{size}(count), \textcolor{keyword}{size}(stride), \textcolor{keyword}{size}(imap)) < ndims) \textcolor{keywordflow}{then}
159     iostat = nf90\_einval
160     \textcolor{keywordflow}{goto} 999
161 \textcolor{keywordflow}{  endif}
162   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{"f=%d v=%d sta=%*d c=%*d str=%*d imap=%*d"}, &
163     & i=(/ent%fileid, ent%varid, start, count, stride, imap/), &
164     & n=(/ndims, ndims, ndims, ndims/))
165   iostat = \hyperlink{gdncfiledatamode_8f90_a62939a5bbb992ef5dd1093b1f854cfce}{gdncfiledatamode}(ent%fileid)
166   \textcolor{keywordflow}{if} (iostat /= nf90\_noerr) \textcolor{keywordflow}{return}
167   iostat = nf90\_put\_var(ent%fileid, ent%varid, \textcolor{keywordtype}{value}, &
168     & start, count, stride, imap)
169 999 \textcolor{keywordflow}{continue}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncvarputnum_8f90_a7595f3d375fef588a0d3d17ef6071297_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gdncvarputnum_8f90_af0924434bd45b8a43367e63e8c41cd15}\label{gdncvarputnum_8f90_af0924434bd45b8a43367e63e8c41cd15}} 
\index{gdncvarputnum.\+f90@{gdncvarputnum.\+f90}!gdncvarputdouble@{gdncvarputdouble}}
\index{gdncvarputdouble@{gdncvarputdouble}!gdncvarputnum.\+f90@{gdncvarputnum.\+f90}}
\subsubsection{\texorpdfstring{gdncvarputdouble()}{gdncvarputdouble()}}
{\footnotesize\ttfamily subroutine gdncvarputdouble (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:), intent(in)}]{start,  }\item[{integer, dimension(\+:), intent(in)}]{count,  }\item[{integer, dimension(\+:), intent(in)}]{stride,  }\item[{integer, dimension(\+:), intent(in)}]{imap,  }\item[{integer, intent(in)}]{siz,  }\item[{real(dp), dimension(siz), intent(in)}]{value,  }\item[{integer, intent(out)}]{iostat }\end{DoxyParamCaption})}



Definition at line 61 of file gdncvarputnum.\+f90.



References dc\+\_\+trace\+::dbgmessage(), dc\+\_\+types\+::dp, gdncfiledatamode(), and gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+lookup().


\begin{DoxyCode}
61   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
62   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
63   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__internal}{gtdata\_netcdf\_internal}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}, 
      \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}
64   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_noerr, nf90\_einval, nf90\_put\_var
65   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__generic}{gtdata\_netcdf\_file\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{gdncfiledatamode_8f90_a62939a5bbb992ef5dd1093b1f854cfce}{gdncfiledatamode}
66   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
67   \textcolor{keywordtype}{implicit none}
68   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
69   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: start(:)
70   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: count(:)
71   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: stride(:)
72   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: imap(:)
73   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: siz
74   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(siz)
75   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: iostat
76   \textcolor{keywordtype}{integer}:: ndims
77   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: ent
78   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"GDNcVarPutDouble"}
79   \textcolor{keywordflow}{continue}
80   iostat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(var, ent)
81   \textcolor{keywordflow}{if} (iostat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
82   ndims = 0
83   \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(ent%dimids)) ndims = \textcolor{keyword}{size}(ent%dimids)
84   \textcolor{keywordflow}{if} (\hyperlink{interfacedc__date__generic_1_1min}{min}(\textcolor{keyword}{size}(start), \textcolor{keyword}{size}(count), \textcolor{keyword}{size}(stride), \textcolor{keyword}{size}(imap)) < ndims) \textcolor{keywordflow}{then}
85     iostat = nf90\_einval
86     \textcolor{keywordflow}{goto} 999
87 \textcolor{keywordflow}{  endif}
88   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{"f=%d v=%d sta=%*d c=%*d str=%*d imap=%*d"}, &
89     & i=(/ent%fileid, ent%varid, start, count, stride, imap/), &
90     & n=(/ndims, ndims, ndims, ndims/))
91   iostat = \hyperlink{gdncfiledatamode_8f90_a62939a5bbb992ef5dd1093b1f854cfce}{gdncfiledatamode}(ent%fileid)
92   \textcolor{keywordflow}{if} (iostat /= nf90\_noerr) \textcolor{keywordflow}{return}
93   iostat = nf90\_put\_var(ent%fileid, ent%varid, \textcolor{keywordtype}{value}, &
94     & start, count, stride, imap)
95 999 \textcolor{keywordflow}{continue}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncvarputnum_8f90_af0924434bd45b8a43367e63e8c41cd15_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gdncvarputnum_8f90_ab7a042c04a6d7162031b0da0e1016cca}\label{gdncvarputnum_8f90_ab7a042c04a6d7162031b0da0e1016cca}} 
\index{gdncvarputnum.\+f90@{gdncvarputnum.\+f90}!gdncvarputint@{gdncvarputint}}
\index{gdncvarputint@{gdncvarputint}!gdncvarputnum.\+f90@{gdncvarputnum.\+f90}}
\subsubsection{\texorpdfstring{gdncvarputint()}{gdncvarputint()}}
{\footnotesize\ttfamily subroutine gdncvarputint (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:), intent(in)}]{start,  }\item[{integer, dimension(\+:), intent(in)}]{count,  }\item[{integer, dimension(\+:), intent(in)}]{stride,  }\item[{integer, dimension(\+:), intent(in)}]{imap,  }\item[{integer, intent(in)}]{siz,  }\item[{integer, dimension(siz), intent(in)}]{value,  }\item[{integer, intent(out)}]{iostat }\end{DoxyParamCaption})}



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



References dc\+\_\+trace\+::dbgmessage(), gdncfiledatamode(), and gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+lookup().


\begin{DoxyCode}
99   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
100   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__internal}{gtdata\_netcdf\_internal}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}, 
      \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}
101   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_noerr, nf90\_einval, nf90\_put\_var
102   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__generic}{gtdata\_netcdf\_file\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{gdncfiledatamode_8f90_a62939a5bbb992ef5dd1093b1f854cfce}{gdncfiledatamode}
103   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
104   \textcolor{keywordtype}{implicit none}
105   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
106   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: start(:)
107   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: count(:)
108   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: stride(:)
109   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: imap(:)
110   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: siz
111   \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(siz)
112   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: iostat
113   \textcolor{keywordtype}{integer}:: ndims
114   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: ent
115   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"GDNcVarPutInt"}
116   \textcolor{keywordflow}{continue}
117   iostat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(var, ent)
118   \textcolor{keywordflow}{if} (iostat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
119   ndims = 0
120   \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(ent%dimids)) ndims = \textcolor{keyword}{size}(ent%dimids)
121   \textcolor{keywordflow}{if} (\hyperlink{interfacedc__date__generic_1_1min}{min}(\textcolor{keyword}{size}(start), \textcolor{keyword}{size}(count), \textcolor{keyword}{size}(stride), \textcolor{keyword}{size}(imap)) < ndims) \textcolor{keywordflow}{then}
122     iostat = nf90\_einval
123     \textcolor{keywordflow}{goto} 999
124 \textcolor{keywordflow}{  endif}
125   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{"f=%d v=%d sta=%*d c=%*d str=%*d imap=%*d"}, &
126     & i=(/ent%fileid, ent%varid, start, count, stride, imap/), &
127     & n=(/ndims, ndims, ndims, ndims/))
128   iostat = \hyperlink{gdncfiledatamode_8f90_a62939a5bbb992ef5dd1093b1f854cfce}{gdncfiledatamode}(ent%fileid)
129   \textcolor{keywordflow}{if} (iostat /= nf90\_noerr) \textcolor{keywordflow}{return}
130   iostat = nf90\_put\_var(ent%fileid, ent%varid, \textcolor{keywordtype}{value}, &
131     & start, count, stride, imap)
132 999 \textcolor{keywordflow}{continue}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncvarputnum_8f90_ab7a042c04a6d7162031b0da0e1016cca_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gdncvarputnum_8f90_ac237f13b4ac4a6710e0e200a53982ebd}\label{gdncvarputnum_8f90_ac237f13b4ac4a6710e0e200a53982ebd}} 
\index{gdncvarputnum.\+f90@{gdncvarputnum.\+f90}!gdncvarputreal@{gdncvarputreal}}
\index{gdncvarputreal@{gdncvarputreal}!gdncvarputnum.\+f90@{gdncvarputnum.\+f90}}
\subsubsection{\texorpdfstring{gdncvarputreal()}{gdncvarputreal()}}
{\footnotesize\ttfamily subroutine gdncvarputreal (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:), intent(in)}]{start,  }\item[{integer, dimension(\+:), intent(in)}]{count,  }\item[{integer, dimension(\+:), intent(in)}]{stride,  }\item[{integer, dimension(\+:), intent(in)}]{imap,  }\item[{integer, intent(in)}]{siz,  }\item[{real(sp), dimension(siz), intent(in)}]{value,  }\item[{integer, intent(out)}]{iostat }\end{DoxyParamCaption})}



Definition at line 23 of file gdncvarputnum.\+f90.



References dc\+\_\+trace\+::dbgmessage(), gdncfiledatamode(), dc\+\_\+types\+::sp, and gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+lookup().


\begin{DoxyCode}
23   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
24   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
25   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__internal}{gtdata\_netcdf\_internal}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}, 
      \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}
26   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_noerr, nf90\_einval, nf90\_put\_var
27   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__generic}{gtdata\_netcdf\_file\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{gdncfiledatamode_8f90_a62939a5bbb992ef5dd1093b1f854cfce}{gdncfiledatamode}
28   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}
29   \textcolor{keywordtype}{implicit none}
30   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
31   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: start(:)
32   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: count(:)
33   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: stride(:)
34   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: imap(:)
35   \textcolor{keywordtype}{integer},           \textcolor{keywordtype}{intent(in)}:: siz
36   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(siz)
37   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: iostat
38   \textcolor{keywordtype}{integer}:: ndims
39   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: ent
40   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"GDNcVarPutReal"}
41   \textcolor{keywordflow}{continue}
42   iostat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(var, ent)
43   \textcolor{keywordflow}{if} (iostat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
44   ndims = 0
45   \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(ent%dimids)) ndims = \textcolor{keyword}{size}(ent%dimids)
46   \textcolor{keywordflow}{if} (\hyperlink{interfacedc__date__generic_1_1min}{min}(\textcolor{keyword}{size}(start), \textcolor{keyword}{size}(count), \textcolor{keyword}{size}(stride), \textcolor{keyword}{size}(imap)) < ndims) \textcolor{keywordflow}{then}
47     iostat = nf90\_einval
48     \textcolor{keywordflow}{goto} 999
49 \textcolor{keywordflow}{  endif}
50   \textcolor{keyword}{call }\hyperlink{namespacedc__trace_a2a38fceb4cf9baf298d63456238c3fea}{dbgmessage}(\textcolor{stringliteral}{"f=%d v=%d sta=%*d c=%*d str=%*d imap=%*d"}, &
51     & i=(/ent%fileid, ent%varid, start, count, stride, imap/), &
52     & n=(/ndims, ndims, ndims, ndims/))
53   iostat = \hyperlink{gdncfiledatamode_8f90_a62939a5bbb992ef5dd1093b1f854cfce}{gdncfiledatamode}(ent%fileid)
54   \textcolor{keywordflow}{if} (iostat /= nf90\_noerr) \textcolor{keywordflow}{return}
55   iostat = nf90\_put\_var(ent%fileid, ent%varid, \textcolor{keywordtype}{value}, &
56     & start, count, stride, imap)
57 999 \textcolor{keywordflow}{continue}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncvarputnum_8f90_ac237f13b4ac4a6710e0e200a53982ebd_cgraph}
\end{center}
\end{figure}
