\hypertarget{gdmemvarattrnext_8f90}{}\section{gtdata/gtdata\+\_\+memory/gdmemvarattrnext.f90 File Reference}
\label{gdmemvarattrnext_8f90}\index{gtdata/gtdata\+\_\+memory/gdmemvarattrnext.\+f90@{gtdata/gtdata\+\_\+memory/gdmemvarattrnext.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdmemvarattrnext_8f90_a9d461e376a2b8e6f3040f1639b82d73e}{gdmemvarattrnext} (var, name, err)
\end{DoxyCompactItemize}


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



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


\begin{DoxyCode}
2   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__memory__types}{gtdata\_memory\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__memory__types_1_1gd__mem__variable}{gd\_mem\_variable}, 
      \hyperlink{structgtdata__memory__types_1_1gd__mem__variable__entry}{gd\_mem\_variable\_entry}
3   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__memory__internal}{gtdata\_memory\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__memory__internal_1_1memtab__lookup}{memtab\_lookup}
4   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_noerr
5   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__memory__types_1_1gd__mem__variable}{gd\_mem\_variable}), \textcolor{keywordtype}{intent(in)}:: var
6   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(out)}:: name
7   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
8   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__memory__types_1_1gd__mem__variable__entry}{gd\_mem\_variable\_entry}), \textcolor{keywordtype}{pointer}:: ent
9 
10   \textcolor{keywordflow}{if} (\hyperlink{interfacegtdata__memory__internal_1_1memtab__lookup}{memtab\_lookup}(var, ent) /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
11   \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{associated}(ent%current)) \textcolor{keywordflow}{then}
12     ent%current => ent%attr
13   \textcolor{keywordflow}{else}
14     ent%current => ent%current%next
15 \textcolor{keywordflow}{  endif}
16   \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{associated}(ent%current)) \textcolor{keywordflow}{goto} 999
17   name = ent%current%name
18   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(err)) err = .false.
19   \textcolor{keywordflow}{return}
20       \textcolor{comment}{!}
21 999 \textcolor{keywordflow}{continue}
22   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(err)) err = .true.
\end{DoxyCode}
