\hypertarget{gdmemvarclose_8f90}{}\section{gtdata/gtdata\+\_\+memory/gdmemvarclose.f90 File Reference}
\label{gdmemvarclose_8f90}\index{gtdata/gtdata\+\_\+memory/gdmemvarclose.\+f90@{gtdata/gtdata\+\_\+memory/gdmemvarclose.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdmemvarclose_8f90_a15b0c793cd8f4671ba6fcec7966adf73}{gdmemvarclose} (var)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdmemvarclose_8f90_a15b0c793cd8f4671ba6fcec7966adf73}\label{gdmemvarclose_8f90_a15b0c793cd8f4671ba6fcec7966adf73}} 
\index{gdmemvarclose.\+f90@{gdmemvarclose.\+f90}!gdmemvarclose@{gdmemvarclose}}
\index{gdmemvarclose@{gdmemvarclose}!gdmemvarclose.\+f90@{gdmemvarclose.\+f90}}
\subsubsection{\texorpdfstring{gdmemvarclose()}{gdmemvarclose()}}
{\footnotesize\ttfamily subroutine gdmemvarclose (\begin{DoxyParamCaption}\item[{type(gd\+\_\+mem\+\_\+variable), intent(in)}]{var }\end{DoxyParamCaption})}



Definition at line 2 of file gdmemvarclose.\+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 
5   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__memory__types_1_1gd__mem__variable}{gd\_mem\_variable}), \textcolor{keywordtype}{intent(in)}:: var
6   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__memory__types_1_1gd__mem__variable__entry}{gd\_mem\_variable\_entry}), \textcolor{keywordtype}{pointer}:: ent
7   \textcolor{keywordflow}{if} (\hyperlink{interfacegtdata__memory__internal_1_1memtab__lookup}{memtab\_lookup}(var, ent) /= 0) \textcolor{keywordflow}{return}
8   \textcolor{keyword}{deallocate}(ent%dbuf)
9   \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(ent%attr)) \textcolor{keyword}{deallocate}(ent%attr)
10   \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(ent%current)) \textcolor{keyword}{deallocate}(ent%current)
11   ent%name = \textcolor{stringliteral}{""}
\end{DoxyCode}
