\hypertarget{gtvargetsliceall_8f90}{}\section{gtdata/gtvargetsliceall.f90 File Reference}
\label{gtvargetsliceall_8f90}\index{gtdata/gtvargetsliceall.\+f90@{gtdata/gtvargetsliceall.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvargetsliceall_8f90_a3ade6c7df1ccceeec55cf825a1f8574c}{gtvargetsliceall} (var, start, count, stride)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvargetsliceall_8f90_a3ade6c7df1ccceeec55cf825a1f8574c}\label{gtvargetsliceall_8f90_a3ade6c7df1ccceeec55cf825a1f8574c}} 
\index{gtvargetsliceall.\+f90@{gtvargetsliceall.\+f90}!gtvargetsliceall@{gtvargetsliceall}}
\index{gtvargetsliceall@{gtvargetsliceall}!gtvargetsliceall.\+f90@{gtvargetsliceall.\+f90}}
\subsubsection{\texorpdfstring{gtvargetsliceall()}{gtvargetsliceall()}}
{\footnotesize\ttfamily subroutine gtvargetsliceall (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:), intent(out), optional}]{start,  }\item[{integer, dimension(\+:), intent(out), optional}]{count,  }\item[{integer, dimension(\+:), intent(out), optional}]{stride }\end{DoxyParamCaption})}



Definition at line 16 of file gtvargetsliceall.\+f90.



References gtvargetslice().


\begin{DoxyCode}
16   \textcolor{comment}{!}
17   \textcolor{comment}{!== 変数入出力範囲限定情報を取得 (全ての次元の情報を一括取得)}
18   \textcolor{comment}{!}
19   \textcolor{comment}{! 変数 *var* に関して、}
20   \textcolor{comment}{! Slice によって設定された入出力範囲の情報を取得します。}
21   \textcolor{comment}{! 全次元の入出力範囲について一括取得するため、}
22   \textcolor{comment}{! あらかじめ Inquire(var, alldims) して次元の数を確保}
23   \textcolor{comment}{! しなければなりません。}
24   \textcolor{comment}{!}
25   \textcolor{comment}{! *start*, *count*, *stride* に関しては Slice を参照してください。}
26   \textcolor{comment}{!}
27   \textcolor{comment}{! *Get\_Slice* は 2 つのサブルーチンの総称名であり、}
28   \textcolor{comment}{! 他にもある1つの次元に関して情報を取得する}
29   \textcolor{comment}{! 方法もあります。下記のサブルーチンを参照ください。}
30   \textcolor{comment}{!}
31   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}
32   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{gtvargetslice_8f90_a058789887a6e8d18a4d712b2532c0ddf}{gtvargetslice}
33   \textcolor{keywordtype}{implicit none}
34   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__types_1_1gt__variable}{gt\_variable}), \textcolor{keywordtype}{intent(in)}:: var
35   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: start(:), count(:), stride(:)
36   \textcolor{keywordtype}{integer}:: nd, i
37   \textcolor{keywordtype}{logical}:: all
38   nd = huge(1)
39   all = \textcolor{keyword}{present}(start) .and. \textcolor{keyword}{present}(count) .and. \textcolor{keyword}{present}(stride)
40   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(start)) nd = \hyperlink{interfacedc__date__generic_1_1min}{min}(nd, \textcolor{keyword}{size}(start))
41   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(count)) nd = \hyperlink{interfacedc__date__generic_1_1min}{min}(nd, \textcolor{keyword}{size}(count))
42   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(stride)) nd = \hyperlink{interfacedc__date__generic_1_1min}{min}(nd, \textcolor{keyword}{size}(stride))
43   \textcolor{keywordflow}{do}, i = 1, nd
44     \textcolor{keywordflow}{if} (all) \textcolor{keywordflow}{then}
45       \textcolor{keyword}{call }\hyperlink{gtvargetslice_8f90_a058789887a6e8d18a4d712b2532c0ddf}{gtvargetslice}(var, i, start(i), count(i), stride(i))
46       cycle
47 \textcolor{keywordflow}{    endif}
48     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(start)) \textcolor{keyword}{call }\hyperlink{gtvargetslice_8f90_a058789887a6e8d18a4d712b2532c0ddf}{gtvargetslice}(var, i, start=start(i))
49     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(count)) \textcolor{keyword}{call }\hyperlink{gtvargetslice_8f90_a058789887a6e8d18a4d712b2532c0ddf}{gtvargetslice}(var, i, count=count(i))
50     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(stride)) \textcolor{keyword}{call }\hyperlink{gtvargetslice_8f90_a058789887a6e8d18a4d712b2532c0ddf}{gtvargetslice}(var, i, stride=stride(i))
51 \textcolor{keywordflow}{  enddo}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetsliceall_8f90_a3ade6c7df1ccceeec55cf825a1f8574c_cgraph}
\end{center}
\end{figure}
