\hypertarget{gdncvartostring_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gdncvartostring.f90 File Reference}
\label{gdncvartostring_8f90}\index{gtdata/gtdata\+\_\+netcdf/gdncvartostring.\+f90@{gtdata/gtdata\+\_\+netcdf/gdncvartostring.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
character(string) function \hyperlink{gdncvartostring_8f90_af033c33f8a914a293334d904a84ea4a0}{gdncvartostring} (var)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdncvartostring_8f90_af033c33f8a914a293334d904a84ea4a0}\label{gdncvartostring_8f90_af033c33f8a914a293334d904a84ea4a0}} 
\index{gdncvartostring.\+f90@{gdncvartostring.\+f90}!gdncvartostring@{gdncvartostring}}
\index{gdncvartostring@{gdncvartostring}!gdncvartostring.\+f90@{gdncvartostring.\+f90}}
\subsubsection{\texorpdfstring{gdncvartostring()}{gdncvartostring()}}
{\footnotesize\ttfamily character(string) function gdncvartostring (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{var }\end{DoxyParamCaption})}



Definition at line 2 of file gdncvartostring.\+f90.



References dc\+\_\+types\+::string, and gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+lookup().


\begin{DoxyCode}
2   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
3   \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
4   \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}
5   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
6   \textcolor{keywordtype}{implicit none}
7   \textcolor{keywordtype}{character(string)}:: result
8   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
9   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: ent
10 \textcolor{keywordflow}{continue}
11   \textcolor{keywordflow}{if} (\hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(var, ent) /= 0) \textcolor{keywordflow}{then}
12     result = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}(\textcolor{stringliteral}{"GD\_NC\_VARIABLE(bad id %d)"}, i=(/var%id/))
13   \textcolor{keywordflow}{else}
14     result = \hyperlink{interfacedc__string_1_1cprintf}{cprintf}(\textcolor{stringliteral}{"GD\_NC\_VARIABLE(file=%d, var=%d, dim=%d)"}, &
15       & i=(/ent%fileid, ent%varid, ent%dimid/))
16 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=312pt]{gdncvartostring_8f90_af033c33f8a914a293334d904a84ea4a0_cgraph}
\end{center}
\end{figure}
