\hypertarget{gdncxtypename_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gdncxtypename.f90 File Reference}
\label{gdncxtypename_8f90}\index{gtdata/gtdata\+\_\+netcdf/gdncxtypename.\+f90@{gtdata/gtdata\+\_\+netcdf/gdncxtypename.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdncxtypename_8f90_a61d937db46bd95ad9652b0c86987f5db}{gdncxtypename} (ixtype, xtype)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdncxtypename_8f90_a61d937db46bd95ad9652b0c86987f5db}\label{gdncxtypename_8f90_a61d937db46bd95ad9652b0c86987f5db}} 
\index{gdncxtypename.\+f90@{gdncxtypename.\+f90}!gdncxtypename@{gdncxtypename}}
\index{gdncxtypename@{gdncxtypename}!gdncxtypename.\+f90@{gdncxtypename.\+f90}}
\subsubsection{\texorpdfstring{gdncxtypename()}{gdncxtypename()}}
{\footnotesize\ttfamily subroutine gdncxtypename (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{ixtype,  }\item[{character($\ast$), intent(out)}]{xtype }\end{DoxyParamCaption})}



Definition at line 4 of file gdncxtypename.\+f90.


\begin{DoxyCode}
4   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: &
5     & nf90\_byte,  &
6     & nf90\_char,  &
7     & nf90\_short, &
8     & nf90\_int,   &
9     & nf90\_float, &
10     & nf90\_double
11   \textcolor{keywordtype}{implicit none}
12   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: ixtype
13   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}:: xtype
14   \textcolor{keywordflow}{select case}(ixtype)
15   \textcolor{keywordflow}{case}(0)
16     xtype = \textcolor{stringliteral}{"error"}
17   \textcolor{keywordflow}{case}(nf90\_char)
18     xtype = \textcolor{stringliteral}{"char"}
19   \textcolor{keywordflow}{case}(nf90\_byte)
20     xtype = \textcolor{stringliteral}{"byte"}
21   \textcolor{keywordflow}{case}(nf90\_short)
22     xtype = \textcolor{stringliteral}{"short"}
23   \textcolor{keywordflow}{case}(nf90\_int)
24     xtype = \textcolor{stringliteral}{"int"}
25   \textcolor{keywordflow}{case}(nf90\_float)
26     xtype = \textcolor{stringliteral}{"float"}
27   \textcolor{keywordflow}{case}(nf90\_double)
28     xtype = \textcolor{stringliteral}{"double"}
29 \textcolor{keywordflow}{  case default}
30     xtype = \textcolor{stringliteral}{""}
31 \textcolor{keywordflow}{  end select}
\end{DoxyCode}
