\hypertarget{gtvarslicendims_8f90}{}\section{gtdata/gtvarslicendims.f90 File Reference}
\label{gtvarslicendims_8f90}\index{gtdata/gtvarslicendims.\+f90@{gtdata/gtvarslicendims.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvarslicendims_8f90_afdee2e67aee28ac705bf67eb506f20c3}{gtvarslicendims} (var, ndims, shape, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvarslicendims_8f90_afdee2e67aee28ac705bf67eb506f20c3}\label{gtvarslicendims_8f90_afdee2e67aee28ac705bf67eb506f20c3}} 
\index{gtvarslicendims.\+f90@{gtvarslicendims.\+f90}!gtvarslicendims@{gtvarslicendims}}
\index{gtvarslicendims@{gtvarslicendims}!gtvarslicendims.\+f90@{gtvarslicendims.\+f90}}
\subsubsection{\texorpdfstring{gtvarslicendims()}{gtvarslicendims()}}
{\footnotesize\ttfamily subroutine gtvarslicendims (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(inout)}]{var,  }\item[{integer, intent(in)}]{ndims,  }\item[{integer, dimension(\+:), intent(in), optional}]{shape,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



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


\begin{DoxyCode}
2     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
3     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1inquire}{inquire}, \hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}
4     \textcolor{keywordtype}{implicit none}
5     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(inout)}:: var
6     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: ndims
7     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: shape(:)
8     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9     \textcolor{keywordtype}{integer}:: nd
10     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable}:: vcount(:)
11     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1inquire}{inquire}(var, alldims=nd)
12     \textcolor{keyword}{allocate}(vcount(nd))
13     \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1get__slice}{get\_slice}(var, count=vcount(:))
14     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(err)) err = .true.
15     stop \textcolor{stringliteral}{'gtvarslicendims: not implemented'}
\end{DoxyCode}
