\hypertarget{gdmemvarcreated_8f90}{}\section{gtdata/gtdata\+\_\+memory/gdmemvarcreated.f90 File Reference}
\label{gdmemvarcreated_8f90}\index{gtdata/gtdata\+\_\+memory/gdmemvarcreated.\+f90@{gtdata/gtdata\+\_\+memory/gdmemvarcreated.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdmemvarcreated_8f90_a5adf61a9fd6e5bc30ea931f366aecbf6}{gdmemvarcreated} (var, url, length, xtype, long\+\_\+name, overwrite, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdmemvarcreated_8f90_a5adf61a9fd6e5bc30ea931f366aecbf6}\label{gdmemvarcreated_8f90_a5adf61a9fd6e5bc30ea931f366aecbf6}} 
\index{gdmemvarcreated.\+f90@{gdmemvarcreated.\+f90}!gdmemvarcreated@{gdmemvarcreated}}
\index{gdmemvarcreated@{gdmemvarcreated}!gdmemvarcreated.\+f90@{gdmemvarcreated.\+f90}}
\subsubsection{\texorpdfstring{gdmemvarcreated()}{gdmemvarcreated()}}
{\footnotesize\ttfamily subroutine gdmemvarcreated (\begin{DoxyParamCaption}\item[{type(gd\+\_\+mem\+\_\+variable), intent(out)}]{var,  }\item[{character($\ast$), intent(in)}]{url,  }\item[{integer, intent(in)}]{length,  }\item[{character($\ast$), intent(in), optional}]{xtype,  }\item[{character($\ast$), intent(in), optional}]{long\+\_\+name,  }\item[{logical, intent(in), optional}]{overwrite,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



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



References gtdata\+\_\+memory\+\_\+internal\+::memtab.


\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__generic}{gtdata\_memory\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}
4   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__memory__internal}{gtdata\_memory\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__memory__internal_aee5ec46e8f8811c6c5e170cfff9b2ce4}{memtab}, 
      \hyperlink{interfacegtdata__memory__internal_1_1memtab__add}{memtab\_add}
5 
6   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__memory__types_1_1gd__mem__variable}{gd\_mem\_variable}), \textcolor{keywordtype}{intent(out)}:: var
7   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: url
8   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: length
9   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: xtype, long\_name
10   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: overwrite
11   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
12   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__memory__types_1_1gd__mem__variable__entry}{gd\_mem\_variable\_entry}), \textcolor{keywordtype}{pointer}:: ent
13   \textcolor{keywordtype}{integer}:: stat
14 \textcolor{keywordflow}{continue}
15   stat = \hyperlink{interfacegtdata__memory__internal_1_1memtab__add}{memtab\_add}(var, url)
16   \textcolor{keywordflow}{if} (stat /= 0) \textcolor{keywordflow}{then}
17     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(err)) err = .true.
18     \textcolor{keywordflow}{return}
19 \textcolor{keywordflow}{  endif}
20   ent => \hyperlink{namespacegtdata__memory__internal_aee5ec46e8f8811c6c5e170cfff9b2ce4}{memtab}(var%id)
21   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(xtype)) \textcolor{keywordflow}{then}
22     ent%xtype = xtype
23   \textcolor{keywordflow}{else}
24     ent%xtype = \textcolor{stringliteral}{"real"}
25 \textcolor{keywordflow}{  endif}
26   \textcolor{keyword}{allocate}(ent%dbuf(length))
27   \textcolor{keyword}{nullify}(ent%attr, ent%current)
28   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(long\_name)) \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1put__attr}{put\_attr}(var, \textcolor{stringliteral}{"long\_name"}, long\_name)
29   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(err)) err = .false.
\end{DoxyCode}
