\hypertarget{gtvargetpointernum_8f90}{}\section{gtdata/gtvargetpointernum.f90 File Reference}
\label{gtvargetpointernum_8f90}\index{gtdata/gtvargetpointernum.\+f90@{gtdata/gtvargetpointernum.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a843b4c85b6f15fffa7831c163d7ca688}{gtvargetpointerdouble1} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a1df2f57bad792dc8c31389f94e3a9191}{gtvargetpointerdouble2} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a10a4a559dba1e1541a22ef72360ae25e}{gtvargetpointerdouble3} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a956a410187746b2e1cfb6d1e914c79b2}{gtvargetpointerdouble4} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a1234cf44af68c47617dda8784d030f67}{gtvargetpointerdouble5} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_aae38ca740222b0878f17c912c8a3bfd5}{gtvargetpointerdouble6} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a35cb0cdd427ccbcfce9be24579ae2eec}{gtvargetpointerdouble7} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_ab598dc7b727d4c1e9d2797b1c8521894}{gtvargetpointerreal1} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a819f8a938a52f7a3d27d100a9a21a7fb}{gtvargetpointerreal2} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a50c40118562da701d481c482e93134ec}{gtvargetpointerreal3} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_aa4a78cea28a2006316ec45e4dca003f9}{gtvargetpointerreal4} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a3228dfefd0c781936dfe2712ebadf41d}{gtvargetpointerreal5} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a0bf2a18beb728ab56993681fe5c85f05}{gtvargetpointerreal6} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_aed6b15170ecbfddc07508a43be9b8215}{gtvargetpointerreal7} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a34dfb10cc7cf4189966ab4e3c39af4d3}{gtvargetpointerint1} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a7d1e069292b5d176da883f0e28095a44}{gtvargetpointerint2} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a5d73c73110c29b0c43174a707df29cb7}{gtvargetpointerint3} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a433f77554b7717fb756bc242ce57999f}{gtvargetpointerint4} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a8bb9bdc6a63551a5ed8e3388da2dc8cd}{gtvargetpointerint5} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a69d537e06c6f26902605715251b8ac5b}{gtvargetpointerint6} (var, value, err)
\item 
subroutine \hyperlink{gtvargetpointernum_8f90_a8cf6f918189a9ed7d0acd985e0c74f88}{gtvargetpointerint7} (var, value, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a843b4c85b6f15fffa7831c163d7ca688}\label{gtvargetpointernum_8f90_a843b4c85b6f15fffa7831c163d7ca688}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerdouble1@{gtvargetpointerdouble1}}
\index{gtvargetpointerdouble1@{gtvargetpointerdouble1}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerdouble1()}{gtvargetpointerdouble1()}}
{\footnotesize\ttfamily subroutine gtvargetpointerdouble1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(dp), dimension(\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 57 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetdouble(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
57   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
58   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}
59   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
60   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
61   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
62   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
63   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
64   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
65     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
66   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
67   \textcolor{keywordtype}{implicit none}
68   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
69   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:) \textcolor{comment}{!(out)}
70   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
71   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
72   \textcolor{keywordtype}{integer}                         :: stat, n(1), cause\_i, data\_rank
73   \textcolor{keywordtype}{logical}                         :: invalid\_check(1)
74   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
75   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerDouble1'}
76   \textcolor{keywordflow}{continue}
77   cause\_i = 0
78   cause\_c = \textcolor{stringliteral}{''}
79   n(1) = -1
80   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
81   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 1, stat)
82   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
83   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
84   \textcolor{keywordflow}{if} (n(1) < 0) \textcolor{keywordflow}{then}
85     \textcolor{comment}{! count\_compact ではないので、ゼロ次元化していると n = -1 となる}
86     n(1) = 1
87 \textcolor{keywordflow}{  endif}
88   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
89   invalid\_check = n > 0
90   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
91     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
92     data\_rank = count(invalid\_check)
93     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 1'}
94     \textcolor{keywordflow}{goto} 999
95 \textcolor{keywordflow}{  end if}
96   \textcolor{comment}{! value が allocate されていなければ allocate する.}
97   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
98   \textcolor{comment}{! あればそのまま取得.}
99   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
100   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
101     \textcolor{keywordflow}{if} ( &
102       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
103       & .false.                             ) \textcolor{keywordflow}{then}
104       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
105       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
106     \textcolor{keywordflow}{else}
107       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
108 \textcolor{keywordflow}{    endif}
109   \textcolor{keywordflow}{else}
110     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
111     \textcolor{keyword}{allocate}( value(&
112       & n(1))  &
113       &  )
114 \textcolor{keywordflow}{  endif}
115   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
116     \textcolor{keyword}{deallocate}(array1dim\_tmp)
117 \textcolor{keywordflow}{  end if}
118   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
119   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}(var, array1dim\_tmp, product(n), err)
120   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
121   \textcolor{keywordtype}{value} = array1dim\_tmp
122 999 \textcolor{keywordflow}{continue}
123   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a843b4c85b6f15fffa7831c163d7ca688_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a1df2f57bad792dc8c31389f94e3a9191}\label{gtvargetpointernum_8f90_a1df2f57bad792dc8c31389f94e3a9191}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerdouble2@{gtvargetpointerdouble2}}
\index{gtvargetpointerdouble2@{gtvargetpointerdouble2}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerdouble2()}{gtvargetpointerdouble2()}}
{\footnotesize\ttfamily subroutine gtvargetpointerdouble2 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(dp), dimension(\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 127 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetdouble(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
127   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
128   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}
129   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
130   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
131   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
132   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
133   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
134   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
135     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
136   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
137   \textcolor{keywordtype}{implicit none}
138   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
139   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:) \textcolor{comment}{!(out)}
140   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
141   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
142   \textcolor{keywordtype}{integer}                         :: stat, n(2), cause\_i, data\_rank
143   \textcolor{keywordtype}{logical}                         :: invalid\_check(2)
144   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
145   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerDouble2'}
146   \textcolor{keywordflow}{continue}
147   cause\_i = 0
148   cause\_c = \textcolor{stringliteral}{''}
149   n(2) = -1
150   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
151   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 2, stat)
152   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
153   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
154   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
155   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
156   invalid\_check = n > 0
157   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
158     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
159     data\_rank = count(invalid\_check)
160     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 2'}
161     \textcolor{keywordflow}{goto} 999
162 \textcolor{keywordflow}{  end if}
163   \textcolor{comment}{! value が allocate されていなければ allocate する.}
164   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
165   \textcolor{comment}{! あればそのまま取得.}
166   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
167   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
168     \textcolor{keywordflow}{if} ( &
169       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
170       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
171       & .false.                             ) \textcolor{keywordflow}{then}
172       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
173       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
174     \textcolor{keywordflow}{else}
175       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
176 \textcolor{keywordflow}{    endif}
177   \textcolor{keywordflow}{else}
178     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
179     \textcolor{keyword}{allocate}( value(&
180       & n(1),  &
181       & n(2))  &
182       &  )
183 \textcolor{keywordflow}{  endif}
184   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
185     \textcolor{keyword}{deallocate}(array1dim\_tmp)
186 \textcolor{keywordflow}{  end if}
187   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
188   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}(var, array1dim\_tmp, product(n), err)
189   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
190   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
191 999 \textcolor{keywordflow}{continue}
192   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a1df2f57bad792dc8c31389f94e3a9191_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a10a4a559dba1e1541a22ef72360ae25e}\label{gtvargetpointernum_8f90_a10a4a559dba1e1541a22ef72360ae25e}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerdouble3@{gtvargetpointerdouble3}}
\index{gtvargetpointerdouble3@{gtvargetpointerdouble3}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerdouble3()}{gtvargetpointerdouble3()}}
{\footnotesize\ttfamily subroutine gtvargetpointerdouble3 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(dp), dimension(\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 196 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetdouble(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
196   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
197   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}
198   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
199   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
200   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
201   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
202   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
203   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
204     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
205   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
206   \textcolor{keywordtype}{implicit none}
207   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
208   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:) \textcolor{comment}{!(out)}
209   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
210   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
211   \textcolor{keywordtype}{integer}                         :: stat, n(3), cause\_i, data\_rank
212   \textcolor{keywordtype}{logical}                         :: invalid\_check(3)
213   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
214   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerDouble3'}
215   \textcolor{keywordflow}{continue}
216   cause\_i = 0
217   cause\_c = \textcolor{stringliteral}{''}
218   n(3) = -1
219   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
220   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 3, stat)
221   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
222   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
223   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
224   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
225   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
226   invalid\_check = n > 0
227   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
228     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
229     data\_rank = count(invalid\_check)
230     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 3'}
231     \textcolor{keywordflow}{goto} 999
232 \textcolor{keywordflow}{  end if}
233   \textcolor{comment}{! value が allocate されていなければ allocate する.}
234   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
235   \textcolor{comment}{! あればそのまま取得.}
236   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
237   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
238     \textcolor{keywordflow}{if} ( &
239       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
240       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
241       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
242       & .false.                             ) \textcolor{keywordflow}{then}
243       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
244       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
245     \textcolor{keywordflow}{else}
246       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
247 \textcolor{keywordflow}{    endif}
248   \textcolor{keywordflow}{else}
249     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
250     \textcolor{keyword}{allocate}( value(&
251       & n(1),  &
252       & n(2),  &
253       & n(3))  &
254       &  )
255 \textcolor{keywordflow}{  endif}
256   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
257     \textcolor{keyword}{deallocate}(array1dim\_tmp)
258 \textcolor{keywordflow}{  end if}
259   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
260   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}(var, array1dim\_tmp, product(n), err)
261   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
262   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
263 999 \textcolor{keywordflow}{continue}
264   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a10a4a559dba1e1541a22ef72360ae25e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a956a410187746b2e1cfb6d1e914c79b2}\label{gtvargetpointernum_8f90_a956a410187746b2e1cfb6d1e914c79b2}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerdouble4@{gtvargetpointerdouble4}}
\index{gtvargetpointerdouble4@{gtvargetpointerdouble4}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerdouble4()}{gtvargetpointerdouble4()}}
{\footnotesize\ttfamily subroutine gtvargetpointerdouble4 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 268 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetdouble(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
268   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
269   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}
270   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
271   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
272   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
273   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
274   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
275   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
276     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
277   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
278   \textcolor{keywordtype}{implicit none}
279   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
280   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:) \textcolor{comment}{!(out)}
281   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
282   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
283   \textcolor{keywordtype}{integer}                         :: stat, n(4), cause\_i, data\_rank
284   \textcolor{keywordtype}{logical}                         :: invalid\_check(4)
285   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
286   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerDouble4'}
287   \textcolor{keywordflow}{continue}
288   cause\_i = 0
289   cause\_c = \textcolor{stringliteral}{''}
290   n(4) = -1
291   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
292   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 4, stat)
293   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
294   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
295   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
296   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
297   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
298   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
299   invalid\_check = n > 0
300   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
301     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
302     data\_rank = count(invalid\_check)
303     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 4'}
304     \textcolor{keywordflow}{goto} 999
305 \textcolor{keywordflow}{  end if}
306   \textcolor{comment}{! value が allocate されていなければ allocate する.}
307   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
308   \textcolor{comment}{! あればそのまま取得.}
309   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
310   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
311     \textcolor{keywordflow}{if} ( &
312       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
313       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
314       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
315       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
316       & .false.                             ) \textcolor{keywordflow}{then}
317       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
318       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
319     \textcolor{keywordflow}{else}
320       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
321 \textcolor{keywordflow}{    endif}
322   \textcolor{keywordflow}{else}
323     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
324     \textcolor{keyword}{allocate}( value(&
325       & n(1),  &
326       & n(2),  &
327       & n(3),  &
328       & n(4))  &
329       &  )
330 \textcolor{keywordflow}{  endif}
331   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
332     \textcolor{keyword}{deallocate}(array1dim\_tmp)
333 \textcolor{keywordflow}{  end if}
334   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
335   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}(var, array1dim\_tmp, product(n), err)
336   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
337   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
338 999 \textcolor{keywordflow}{continue}
339   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a956a410187746b2e1cfb6d1e914c79b2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a1234cf44af68c47617dda8784d030f67}\label{gtvargetpointernum_8f90_a1234cf44af68c47617dda8784d030f67}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerdouble5@{gtvargetpointerdouble5}}
\index{gtvargetpointerdouble5@{gtvargetpointerdouble5}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerdouble5()}{gtvargetpointerdouble5()}}
{\footnotesize\ttfamily subroutine gtvargetpointerdouble5 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 343 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetdouble(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
343   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
344   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}
345   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
346   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
347   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
348   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
349   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
350   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
351     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
352   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
353   \textcolor{keywordtype}{implicit none}
354   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
355   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:,:) \textcolor{comment}{!(out)}
356   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
357   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
358   \textcolor{keywordtype}{integer}                         :: stat, n(5), cause\_i, data\_rank
359   \textcolor{keywordtype}{logical}                         :: invalid\_check(5)
360   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
361   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerDouble5'}
362   \textcolor{keywordflow}{continue}
363   cause\_i = 0
364   cause\_c = \textcolor{stringliteral}{''}
365   n(5) = -1
366   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
367   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 5, stat)
368   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
369   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
370   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
371   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
372   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
373   \textcolor{keyword}{call }get\_slice(var, dimord=5, count=n(5), count\_compact=.false.)
374   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
375   invalid\_check = n > 0
376   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
377     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
378     data\_rank = count(invalid\_check)
379     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 5'}
380     \textcolor{keywordflow}{goto} 999
381 \textcolor{keywordflow}{  end if}
382   \textcolor{comment}{! value が allocate されていなければ allocate する.}
383   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
384   \textcolor{comment}{! あればそのまま取得.}
385   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
386   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
387     \textcolor{keywordflow}{if} ( &
388       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
389       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
390       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
391       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
392       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},5) == n(5) .or. &
393       & .false.                             ) \textcolor{keywordflow}{then}
394       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
395       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
396     \textcolor{keywordflow}{else}
397       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
398 \textcolor{keywordflow}{    endif}
399   \textcolor{keywordflow}{else}
400     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
401     \textcolor{keyword}{allocate}( value(&
402       & n(1),  &
403       & n(2),  &
404       & n(3),  &
405       & n(4),  &
406       & n(5))  &
407       &  )
408 \textcolor{keywordflow}{  endif}
409   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
410     \textcolor{keyword}{deallocate}(array1dim\_tmp)
411 \textcolor{keywordflow}{  end if}
412   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
413   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}(var, array1dim\_tmp, product(n), err)
414   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
415   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
416 999 \textcolor{keywordflow}{continue}
417   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a1234cf44af68c47617dda8784d030f67_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_aae38ca740222b0878f17c912c8a3bfd5}\label{gtvargetpointernum_8f90_aae38ca740222b0878f17c912c8a3bfd5}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerdouble6@{gtvargetpointerdouble6}}
\index{gtvargetpointerdouble6@{gtvargetpointerdouble6}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerdouble6()}{gtvargetpointerdouble6()}}
{\footnotesize\ttfamily subroutine gtvargetpointerdouble6 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 421 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetdouble(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
421   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
422   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}
423   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
424   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
425   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
426   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
427   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
428   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
429     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
430   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
431   \textcolor{keywordtype}{implicit none}
432   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
433   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:,:,:) \textcolor{comment}{!(out)}
434   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
435   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
436   \textcolor{keywordtype}{integer}                         :: stat, n(6), cause\_i, data\_rank
437   \textcolor{keywordtype}{logical}                         :: invalid\_check(6)
438   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
439   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerDouble6'}
440   \textcolor{keywordflow}{continue}
441   cause\_i = 0
442   cause\_c = \textcolor{stringliteral}{''}
443   n(6) = -1
444   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
445   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 6, stat)
446   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
447   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
448   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
449   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
450   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
451   \textcolor{keyword}{call }get\_slice(var, dimord=5, count=n(5), count\_compact=.false.)
452   \textcolor{keyword}{call }get\_slice(var, dimord=6, count=n(6), count\_compact=.false.)
453   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
454   invalid\_check = n > 0
455   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
456     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
457     data\_rank = count(invalid\_check)
458     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 6'}
459     \textcolor{keywordflow}{goto} 999
460 \textcolor{keywordflow}{  end if}
461   \textcolor{comment}{! value が allocate されていなければ allocate する.}
462   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
463   \textcolor{comment}{! あればそのまま取得.}
464   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
465   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
466     \textcolor{keywordflow}{if} ( &
467       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
468       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
469       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
470       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
471       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},5) == n(5) .or. &
472       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},6) == n(6) .or. &
473       & .false.                             ) \textcolor{keywordflow}{then}
474       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
475       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
476     \textcolor{keywordflow}{else}
477       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
478 \textcolor{keywordflow}{    endif}
479   \textcolor{keywordflow}{else}
480     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
481     \textcolor{keyword}{allocate}( value(&
482       & n(1),  &
483       & n(2),  &
484       & n(3),  &
485       & n(4),  &
486       & n(5),  &
487       & n(6))  &
488       &  )
489 \textcolor{keywordflow}{  endif}
490   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
491     \textcolor{keyword}{deallocate}(array1dim\_tmp)
492 \textcolor{keywordflow}{  end if}
493   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
494   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}(var, array1dim\_tmp, product(n), err)
495   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
496   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
497 999 \textcolor{keywordflow}{continue}
498   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_aae38ca740222b0878f17c912c8a3bfd5_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a35cb0cdd427ccbcfce9be24579ae2eec}\label{gtvargetpointernum_8f90_a35cb0cdd427ccbcfce9be24579ae2eec}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerdouble7@{gtvargetpointerdouble7}}
\index{gtvargetpointerdouble7@{gtvargetpointerdouble7}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerdouble7()}{gtvargetpointerdouble7()}}
{\footnotesize\ttfamily subroutine gtvargetpointerdouble7 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(dp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 502 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetdouble(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
502   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
503   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}
504   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
505   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
506   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
507   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
508   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
509   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
510     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
511   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
512   \textcolor{keywordtype}{implicit none}
513   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
514   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:,:,:,:) \textcolor{comment}{!(out)}
515   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
516   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
517   \textcolor{keywordtype}{integer}                         :: stat, n(7), cause\_i, data\_rank
518   \textcolor{keywordtype}{logical}                         :: invalid\_check(7)
519   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
520   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerDouble7'}
521   \textcolor{keywordflow}{continue}
522   cause\_i = 0
523   cause\_c = \textcolor{stringliteral}{''}
524   n(7) = -1
525   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
526   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 7, stat)
527   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
528   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
529   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
530   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
531   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
532   \textcolor{keyword}{call }get\_slice(var, dimord=5, count=n(5), count\_compact=.false.)
533   \textcolor{keyword}{call }get\_slice(var, dimord=6, count=n(6), count\_compact=.false.)
534   \textcolor{keyword}{call }get\_slice(var, dimord=7, count=n(7), count\_compact=.false.)
535   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
536   invalid\_check = n > 0
537   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
538     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
539     data\_rank = count(invalid\_check)
540     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 7'}
541     \textcolor{keywordflow}{goto} 999
542 \textcolor{keywordflow}{  end if}
543   \textcolor{comment}{! value が allocate されていなければ allocate する.}
544   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
545   \textcolor{comment}{! あればそのまま取得.}
546   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
547   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
548     \textcolor{keywordflow}{if} ( &
549       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
550       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
551       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
552       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
553       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},5) == n(5) .or. &
554       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},6) == n(6) .or. &
555       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},7) == n(7) .or. &
556       & .false.                             ) \textcolor{keywordflow}{then}
557       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
558       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
559     \textcolor{keywordflow}{else}
560       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
561 \textcolor{keywordflow}{    endif}
562   \textcolor{keywordflow}{else}
563     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
564     \textcolor{keyword}{allocate}( value(&
565       & n(1),  &
566       & n(2),  &
567       & n(3),  &
568       & n(4),  &
569       & n(5),  &
570       & n(6),  &
571       & n(7))  &
572       &  )
573 \textcolor{keywordflow}{  endif}
574   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
575     \textcolor{keyword}{deallocate}(array1dim\_tmp)
576 \textcolor{keywordflow}{  end if}
577   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
578   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_abaae6a9a6ab12cdde29c0087a2a620fb}{gtvargetdouble}(var, array1dim\_tmp, product(n), err)
579   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
580   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
581 999 \textcolor{keywordflow}{continue}
582   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a35cb0cdd427ccbcfce9be24579ae2eec_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a34dfb10cc7cf4189966ab4e3c39af4d3}\label{gtvargetpointernum_8f90_a34dfb10cc7cf4189966ab4e3c39af4d3}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerint1@{gtvargetpointerint1}}
\index{gtvargetpointerint1@{gtvargetpointerint1}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerint1()}{gtvargetpointerint1()}}
{\footnotesize\ttfamily subroutine gtvargetpointerint1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1115 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetint(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
1115   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
1116   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}
1117   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
1118   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
1119   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
1120   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1121   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
1122   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
1123     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1124   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
1125   \textcolor{keywordtype}{implicit none}
1126   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
1127   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:) \textcolor{comment}{!(out)}
1128   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
1129   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
1130   \textcolor{keywordtype}{integer}                         :: stat, n(1), cause\_i, data\_rank
1131   \textcolor{keywordtype}{logical}                         :: invalid\_check(1)
1132   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
1133   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerInt1'}
1134   \textcolor{keywordflow}{continue}
1135   cause\_i = 0
1136   cause\_c = \textcolor{stringliteral}{''}
1137   n(1) = -1
1138   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1139   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 1, stat)
1140   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1141   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
1142   \textcolor{keywordflow}{if} (n(1) < 0) \textcolor{keywordflow}{then}
1143     \textcolor{comment}{! count\_compact ではないので、ゼロ次元化していると n = -1 となる}
1144     n(1) = 1
1145 \textcolor{keywordflow}{  endif}
1146   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
1147   invalid\_check = n > 0
1148   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
1149     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1150     data\_rank = count(invalid\_check)
1151     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 1'}
1152     \textcolor{keywordflow}{goto} 999
1153 \textcolor{keywordflow}{  end if}
1154   \textcolor{comment}{! value が allocate されていなければ allocate する.}
1155   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
1156   \textcolor{comment}{! あればそのまま取得.}
1157   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
1158   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
1159     \textcolor{keywordflow}{if} ( &
1160       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
1161       & .false.                             ) \textcolor{keywordflow}{then}
1162       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
1163       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1164     \textcolor{keywordflow}{else}
1165       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
1166 \textcolor{keywordflow}{    endif}
1167   \textcolor{keywordflow}{else}
1168     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
1169     \textcolor{keyword}{allocate}( value(&
1170       & n(1))  &
1171       &  )
1172 \textcolor{keywordflow}{  endif}
1173   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
1174     \textcolor{keyword}{deallocate}(array1dim\_tmp)
1175 \textcolor{keywordflow}{  end if}
1176   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
1177   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}(var, array1dim\_tmp, product(n), err)
1178   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
1179   \textcolor{keywordtype}{value} = array1dim\_tmp
1180 999 \textcolor{keywordflow}{continue}
1181   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a34dfb10cc7cf4189966ab4e3c39af4d3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a7d1e069292b5d176da883f0e28095a44}\label{gtvargetpointernum_8f90_a7d1e069292b5d176da883f0e28095a44}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerint2@{gtvargetpointerint2}}
\index{gtvargetpointerint2@{gtvargetpointerint2}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerint2()}{gtvargetpointerint2()}}
{\footnotesize\ttfamily subroutine gtvargetpointerint2 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1185 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetint(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
1185   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
1186   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}
1187   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
1188   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
1189   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
1190   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1191   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
1192   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
1193     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1194   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
1195   \textcolor{keywordtype}{implicit none}
1196   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
1197   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:) \textcolor{comment}{!(out)}
1198   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
1199   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
1200   \textcolor{keywordtype}{integer}                         :: stat, n(2), cause\_i, data\_rank
1201   \textcolor{keywordtype}{logical}                         :: invalid\_check(2)
1202   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
1203   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerInt2'}
1204   \textcolor{keywordflow}{continue}
1205   cause\_i = 0
1206   cause\_c = \textcolor{stringliteral}{''}
1207   n(2) = -1
1208   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1209   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 2, stat)
1210   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1211   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
1212   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
1213   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
1214   invalid\_check = n > 0
1215   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
1216     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1217     data\_rank = count(invalid\_check)
1218     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 2'}
1219     \textcolor{keywordflow}{goto} 999
1220 \textcolor{keywordflow}{  end if}
1221   \textcolor{comment}{! value が allocate されていなければ allocate する.}
1222   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
1223   \textcolor{comment}{! あればそのまま取得.}
1224   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
1225   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
1226     \textcolor{keywordflow}{if} ( &
1227       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
1228       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
1229       & .false.                             ) \textcolor{keywordflow}{then}
1230       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
1231       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1232     \textcolor{keywordflow}{else}
1233       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
1234 \textcolor{keywordflow}{    endif}
1235   \textcolor{keywordflow}{else}
1236     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
1237     \textcolor{keyword}{allocate}( value(&
1238       & n(1),  &
1239       & n(2))  &
1240       &  )
1241 \textcolor{keywordflow}{  endif}
1242   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
1243     \textcolor{keyword}{deallocate}(array1dim\_tmp)
1244 \textcolor{keywordflow}{  end if}
1245   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
1246   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}(var, array1dim\_tmp, product(n), err)
1247   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
1248   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
1249 999 \textcolor{keywordflow}{continue}
1250   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a7d1e069292b5d176da883f0e28095a44_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a5d73c73110c29b0c43174a707df29cb7}\label{gtvargetpointernum_8f90_a5d73c73110c29b0c43174a707df29cb7}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerint3@{gtvargetpointerint3}}
\index{gtvargetpointerint3@{gtvargetpointerint3}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerint3()}{gtvargetpointerint3()}}
{\footnotesize\ttfamily subroutine gtvargetpointerint3 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1254 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetint(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
1254   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
1255   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}
1256   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
1257   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
1258   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
1259   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1260   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
1261   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
1262     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1263   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
1264   \textcolor{keywordtype}{implicit none}
1265   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
1266   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:) \textcolor{comment}{!(out)}
1267   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
1268   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
1269   \textcolor{keywordtype}{integer}                         :: stat, n(3), cause\_i, data\_rank
1270   \textcolor{keywordtype}{logical}                         :: invalid\_check(3)
1271   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
1272   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerInt3'}
1273   \textcolor{keywordflow}{continue}
1274   cause\_i = 0
1275   cause\_c = \textcolor{stringliteral}{''}
1276   n(3) = -1
1277   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1278   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 3, stat)
1279   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1280   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
1281   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
1282   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
1283   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
1284   invalid\_check = n > 0
1285   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
1286     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1287     data\_rank = count(invalid\_check)
1288     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 3'}
1289     \textcolor{keywordflow}{goto} 999
1290 \textcolor{keywordflow}{  end if}
1291   \textcolor{comment}{! value が allocate されていなければ allocate する.}
1292   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
1293   \textcolor{comment}{! あればそのまま取得.}
1294   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
1295   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
1296     \textcolor{keywordflow}{if} ( &
1297       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
1298       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
1299       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
1300       & .false.                             ) \textcolor{keywordflow}{then}
1301       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
1302       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1303     \textcolor{keywordflow}{else}
1304       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
1305 \textcolor{keywordflow}{    endif}
1306   \textcolor{keywordflow}{else}
1307     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
1308     \textcolor{keyword}{allocate}( value(&
1309       & n(1),  &
1310       & n(2),  &
1311       & n(3))  &
1312       &  )
1313 \textcolor{keywordflow}{  endif}
1314   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
1315     \textcolor{keyword}{deallocate}(array1dim\_tmp)
1316 \textcolor{keywordflow}{  end if}
1317   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
1318   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}(var, array1dim\_tmp, product(n), err)
1319   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
1320   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
1321 999 \textcolor{keywordflow}{continue}
1322   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a5d73c73110c29b0c43174a707df29cb7_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a433f77554b7717fb756bc242ce57999f}\label{gtvargetpointernum_8f90_a433f77554b7717fb756bc242ce57999f}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerint4@{gtvargetpointerint4}}
\index{gtvargetpointerint4@{gtvargetpointerint4}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerint4()}{gtvargetpointerint4()}}
{\footnotesize\ttfamily subroutine gtvargetpointerint4 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1326 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetint(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
1326   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
1327   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}
1328   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
1329   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
1330   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
1331   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1332   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
1333   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
1334     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1335   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
1336   \textcolor{keywordtype}{implicit none}
1337   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
1338   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:) \textcolor{comment}{!(out)}
1339   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
1340   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
1341   \textcolor{keywordtype}{integer}                         :: stat, n(4), cause\_i, data\_rank
1342   \textcolor{keywordtype}{logical}                         :: invalid\_check(4)
1343   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
1344   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerInt4'}
1345   \textcolor{keywordflow}{continue}
1346   cause\_i = 0
1347   cause\_c = \textcolor{stringliteral}{''}
1348   n(4) = -1
1349   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1350   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 4, stat)
1351   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1352   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
1353   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
1354   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
1355   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
1356   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
1357   invalid\_check = n > 0
1358   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
1359     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1360     data\_rank = count(invalid\_check)
1361     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 4'}
1362     \textcolor{keywordflow}{goto} 999
1363 \textcolor{keywordflow}{  end if}
1364   \textcolor{comment}{! value が allocate されていなければ allocate する.}
1365   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
1366   \textcolor{comment}{! あればそのまま取得.}
1367   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
1368   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
1369     \textcolor{keywordflow}{if} ( &
1370       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
1371       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
1372       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
1373       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
1374       & .false.                             ) \textcolor{keywordflow}{then}
1375       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
1376       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1377     \textcolor{keywordflow}{else}
1378       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
1379 \textcolor{keywordflow}{    endif}
1380   \textcolor{keywordflow}{else}
1381     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
1382     \textcolor{keyword}{allocate}( value(&
1383       & n(1),  &
1384       & n(2),  &
1385       & n(3),  &
1386       & n(4))  &
1387       &  )
1388 \textcolor{keywordflow}{  endif}
1389   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
1390     \textcolor{keyword}{deallocate}(array1dim\_tmp)
1391 \textcolor{keywordflow}{  end if}
1392   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
1393   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}(var, array1dim\_tmp, product(n), err)
1394   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
1395   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
1396 999 \textcolor{keywordflow}{continue}
1397   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a433f77554b7717fb756bc242ce57999f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a8bb9bdc6a63551a5ed8e3388da2dc8cd}\label{gtvargetpointernum_8f90_a8bb9bdc6a63551a5ed8e3388da2dc8cd}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerint5@{gtvargetpointerint5}}
\index{gtvargetpointerint5@{gtvargetpointerint5}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerint5()}{gtvargetpointerint5()}}
{\footnotesize\ttfamily subroutine gtvargetpointerint5 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1401 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetint(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
1401   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
1402   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}
1403   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
1404   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
1405   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
1406   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1407   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
1408   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
1409     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1410   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
1411   \textcolor{keywordtype}{implicit none}
1412   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
1413   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:,:) \textcolor{comment}{!(out)}
1414   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
1415   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
1416   \textcolor{keywordtype}{integer}                         :: stat, n(5), cause\_i, data\_rank
1417   \textcolor{keywordtype}{logical}                         :: invalid\_check(5)
1418   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
1419   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerInt5'}
1420   \textcolor{keywordflow}{continue}
1421   cause\_i = 0
1422   cause\_c = \textcolor{stringliteral}{''}
1423   n(5) = -1
1424   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1425   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 5, stat)
1426   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1427   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
1428   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
1429   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
1430   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
1431   \textcolor{keyword}{call }get\_slice(var, dimord=5, count=n(5), count\_compact=.false.)
1432   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
1433   invalid\_check = n > 0
1434   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
1435     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1436     data\_rank = count(invalid\_check)
1437     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 5'}
1438     \textcolor{keywordflow}{goto} 999
1439 \textcolor{keywordflow}{  end if}
1440   \textcolor{comment}{! value が allocate されていなければ allocate する.}
1441   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
1442   \textcolor{comment}{! あればそのまま取得.}
1443   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
1444   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
1445     \textcolor{keywordflow}{if} ( &
1446       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
1447       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
1448       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
1449       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
1450       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},5) == n(5) .or. &
1451       & .false.                             ) \textcolor{keywordflow}{then}
1452       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
1453       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1454     \textcolor{keywordflow}{else}
1455       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
1456 \textcolor{keywordflow}{    endif}
1457   \textcolor{keywordflow}{else}
1458     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
1459     \textcolor{keyword}{allocate}( value(&
1460       & n(1),  &
1461       & n(2),  &
1462       & n(3),  &
1463       & n(4),  &
1464       & n(5))  &
1465       &  )
1466 \textcolor{keywordflow}{  endif}
1467   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
1468     \textcolor{keyword}{deallocate}(array1dim\_tmp)
1469 \textcolor{keywordflow}{  end if}
1470   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
1471   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}(var, array1dim\_tmp, product(n), err)
1472   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
1473   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
1474 999 \textcolor{keywordflow}{continue}
1475   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a8bb9bdc6a63551a5ed8e3388da2dc8cd_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a69d537e06c6f26902605715251b8ac5b}\label{gtvargetpointernum_8f90_a69d537e06c6f26902605715251b8ac5b}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerint6@{gtvargetpointerint6}}
\index{gtvargetpointerint6@{gtvargetpointerint6}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerint6()}{gtvargetpointerint6()}}
{\footnotesize\ttfamily subroutine gtvargetpointerint6 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1479 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetint(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
1479   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
1480   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}
1481   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
1482   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
1483   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
1484   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1485   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
1486   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
1487     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1488   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
1489   \textcolor{keywordtype}{implicit none}
1490   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
1491   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:,:,:) \textcolor{comment}{!(out)}
1492   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
1493   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
1494   \textcolor{keywordtype}{integer}                         :: stat, n(6), cause\_i, data\_rank
1495   \textcolor{keywordtype}{logical}                         :: invalid\_check(6)
1496   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
1497   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerInt6'}
1498   \textcolor{keywordflow}{continue}
1499   cause\_i = 0
1500   cause\_c = \textcolor{stringliteral}{''}
1501   n(6) = -1
1502   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1503   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 6, stat)
1504   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1505   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
1506   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
1507   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
1508   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
1509   \textcolor{keyword}{call }get\_slice(var, dimord=5, count=n(5), count\_compact=.false.)
1510   \textcolor{keyword}{call }get\_slice(var, dimord=6, count=n(6), count\_compact=.false.)
1511   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
1512   invalid\_check = n > 0
1513   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
1514     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1515     data\_rank = count(invalid\_check)
1516     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 6'}
1517     \textcolor{keywordflow}{goto} 999
1518 \textcolor{keywordflow}{  end if}
1519   \textcolor{comment}{! value が allocate されていなければ allocate する.}
1520   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
1521   \textcolor{comment}{! あればそのまま取得.}
1522   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
1523   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
1524     \textcolor{keywordflow}{if} ( &
1525       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
1526       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
1527       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
1528       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
1529       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},5) == n(5) .or. &
1530       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},6) == n(6) .or. &
1531       & .false.                             ) \textcolor{keywordflow}{then}
1532       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
1533       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1534     \textcolor{keywordflow}{else}
1535       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
1536 \textcolor{keywordflow}{    endif}
1537   \textcolor{keywordflow}{else}
1538     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
1539     \textcolor{keyword}{allocate}( value(&
1540       & n(1),  &
1541       & n(2),  &
1542       & n(3),  &
1543       & n(4),  &
1544       & n(5),  &
1545       & n(6))  &
1546       &  )
1547 \textcolor{keywordflow}{  endif}
1548   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
1549     \textcolor{keyword}{deallocate}(array1dim\_tmp)
1550 \textcolor{keywordflow}{  end if}
1551   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
1552   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}(var, array1dim\_tmp, product(n), err)
1553   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
1554   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
1555 999 \textcolor{keywordflow}{continue}
1556   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a69d537e06c6f26902605715251b8ac5b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a8cf6f918189a9ed7d0acd985e0c74f88}\label{gtvargetpointernum_8f90_a8cf6f918189a9ed7d0acd985e0c74f88}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerint7@{gtvargetpointerint7}}
\index{gtvargetpointerint7@{gtvargetpointerint7}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerint7()}{gtvargetpointerint7()}}
{\footnotesize\ttfamily subroutine gtvargetpointerint7 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1560 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetint(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
1560   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
1561   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}
1562   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
1563   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
1564   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
1565   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
1566   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
1567   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
1568     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1569   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
1570   \textcolor{keywordtype}{implicit none}
1571   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
1572   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:,:,:,:) \textcolor{comment}{!(out)}
1573   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
1574   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
1575   \textcolor{keywordtype}{integer}                         :: stat, n(7), cause\_i, data\_rank
1576   \textcolor{keywordtype}{logical}                         :: invalid\_check(7)
1577   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
1578   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerInt7'}
1579   \textcolor{keywordflow}{continue}
1580   cause\_i = 0
1581   cause\_c = \textcolor{stringliteral}{''}
1582   n(7) = -1
1583   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1584   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 7, stat)
1585   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1586   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
1587   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
1588   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
1589   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
1590   \textcolor{keyword}{call }get\_slice(var, dimord=5, count=n(5), count\_compact=.false.)
1591   \textcolor{keyword}{call }get\_slice(var, dimord=6, count=n(6), count\_compact=.false.)
1592   \textcolor{keyword}{call }get\_slice(var, dimord=7, count=n(7), count\_compact=.false.)
1593   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
1594   invalid\_check = n > 0
1595   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
1596     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1597     data\_rank = count(invalid\_check)
1598     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 7'}
1599     \textcolor{keywordflow}{goto} 999
1600 \textcolor{keywordflow}{  end if}
1601   \textcolor{comment}{! value が allocate されていなければ allocate する.}
1602   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
1603   \textcolor{comment}{! あればそのまま取得.}
1604   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
1605   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
1606     \textcolor{keywordflow}{if} ( &
1607       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
1608       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
1609       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
1610       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
1611       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},5) == n(5) .or. &
1612       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},6) == n(6) .or. &
1613       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},7) == n(7) .or. &
1614       & .false.                             ) \textcolor{keywordflow}{then}
1615       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
1616       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1617     \textcolor{keywordflow}{else}
1618       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
1619 \textcolor{keywordflow}{    endif}
1620   \textcolor{keywordflow}{else}
1621     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
1622     \textcolor{keyword}{allocate}( value(&
1623       & n(1),  &
1624       & n(2),  &
1625       & n(3),  &
1626       & n(4),  &
1627       & n(5),  &
1628       & n(6),  &
1629       & n(7))  &
1630       &  )
1631 \textcolor{keywordflow}{  endif}
1632   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
1633     \textcolor{keyword}{deallocate}(array1dim\_tmp)
1634 \textcolor{keywordflow}{  end if}
1635   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
1636   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_a119d613ac0ae19faab00538f137b69bd}{gtvargetint}(var, array1dim\_tmp, product(n), err)
1637   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
1638   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
1639 999 \textcolor{keywordflow}{continue}
1640   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a8cf6f918189a9ed7d0acd985e0c74f88_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_ab598dc7b727d4c1e9d2797b1c8521894}\label{gtvargetpointernum_8f90_ab598dc7b727d4c1e9d2797b1c8521894}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerreal1@{gtvargetpointerreal1}}
\index{gtvargetpointerreal1@{gtvargetpointerreal1}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerreal1()}{gtvargetpointerreal1()}}
{\footnotesize\ttfamily subroutine gtvargetpointerreal1 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(sp), dimension(\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 586 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetreal(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
586   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
587   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}
588   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
589   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
590   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
591   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
592   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
593   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
594     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
595   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
596   \textcolor{keywordtype}{implicit none}
597   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
598   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:) \textcolor{comment}{!(out)}
599   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
600   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
601   \textcolor{keywordtype}{integer}                         :: stat, n(1), cause\_i, data\_rank
602   \textcolor{keywordtype}{logical}                         :: invalid\_check(1)
603   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
604   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerReal1'}
605   \textcolor{keywordflow}{continue}
606   cause\_i = 0
607   cause\_c = \textcolor{stringliteral}{''}
608   n(1) = -1
609   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
610   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 1, stat)
611   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
612   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
613   \textcolor{keywordflow}{if} (n(1) < 0) \textcolor{keywordflow}{then}
614     \textcolor{comment}{! count\_compact ではないので、ゼロ次元化していると n = -1 となる}
615     n(1) = 1
616 \textcolor{keywordflow}{  endif}
617   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
618   invalid\_check = n > 0
619   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
620     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
621     data\_rank = count(invalid\_check)
622     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 1'}
623     \textcolor{keywordflow}{goto} 999
624 \textcolor{keywordflow}{  end if}
625   \textcolor{comment}{! value が allocate されていなければ allocate する.}
626   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
627   \textcolor{comment}{! あればそのまま取得.}
628   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
629   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
630     \textcolor{keywordflow}{if} ( &
631       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
632       & .false.                             ) \textcolor{keywordflow}{then}
633       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
634       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
635     \textcolor{keywordflow}{else}
636       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
637 \textcolor{keywordflow}{    endif}
638   \textcolor{keywordflow}{else}
639     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
640     \textcolor{keyword}{allocate}( value(&
641       & n(1))  &
642       &  )
643 \textcolor{keywordflow}{  endif}
644   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
645     \textcolor{keyword}{deallocate}(array1dim\_tmp)
646 \textcolor{keywordflow}{  end if}
647   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
648   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}(var, array1dim\_tmp, product(n), err)
649   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
650   \textcolor{keywordtype}{value} = array1dim\_tmp
651 999 \textcolor{keywordflow}{continue}
652   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_ab598dc7b727d4c1e9d2797b1c8521894_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a819f8a938a52f7a3d27d100a9a21a7fb}\label{gtvargetpointernum_8f90_a819f8a938a52f7a3d27d100a9a21a7fb}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerreal2@{gtvargetpointerreal2}}
\index{gtvargetpointerreal2@{gtvargetpointerreal2}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerreal2()}{gtvargetpointerreal2()}}
{\footnotesize\ttfamily subroutine gtvargetpointerreal2 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(sp), dimension(\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 656 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetreal(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
656   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
657   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}
658   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
659   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
660   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
661   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
662   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
663   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
664     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
665   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
666   \textcolor{keywordtype}{implicit none}
667   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
668   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:) \textcolor{comment}{!(out)}
669   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
670   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
671   \textcolor{keywordtype}{integer}                         :: stat, n(2), cause\_i, data\_rank
672   \textcolor{keywordtype}{logical}                         :: invalid\_check(2)
673   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
674   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerReal2'}
675   \textcolor{keywordflow}{continue}
676   cause\_i = 0
677   cause\_c = \textcolor{stringliteral}{''}
678   n(2) = -1
679   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
680   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 2, stat)
681   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
682   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
683   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
684   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
685   invalid\_check = n > 0
686   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
687     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
688     data\_rank = count(invalid\_check)
689     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 2'}
690     \textcolor{keywordflow}{goto} 999
691 \textcolor{keywordflow}{  end if}
692   \textcolor{comment}{! value が allocate されていなければ allocate する.}
693   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
694   \textcolor{comment}{! あればそのまま取得.}
695   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
696   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
697     \textcolor{keywordflow}{if} ( &
698       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
699       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
700       & .false.                             ) \textcolor{keywordflow}{then}
701       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
702       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
703     \textcolor{keywordflow}{else}
704       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
705 \textcolor{keywordflow}{    endif}
706   \textcolor{keywordflow}{else}
707     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
708     \textcolor{keyword}{allocate}( value(&
709       & n(1),  &
710       & n(2))  &
711       &  )
712 \textcolor{keywordflow}{  endif}
713   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
714     \textcolor{keyword}{deallocate}(array1dim\_tmp)
715 \textcolor{keywordflow}{  end if}
716   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
717   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}(var, array1dim\_tmp, product(n), err)
718   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
719   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
720 999 \textcolor{keywordflow}{continue}
721   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a819f8a938a52f7a3d27d100a9a21a7fb_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a50c40118562da701d481c482e93134ec}\label{gtvargetpointernum_8f90_a50c40118562da701d481c482e93134ec}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerreal3@{gtvargetpointerreal3}}
\index{gtvargetpointerreal3@{gtvargetpointerreal3}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerreal3()}{gtvargetpointerreal3()}}
{\footnotesize\ttfamily subroutine gtvargetpointerreal3 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(sp), dimension(\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 725 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetreal(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
725   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
726   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}
727   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
728   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
729   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
730   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
731   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
732   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
733     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
734   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
735   \textcolor{keywordtype}{implicit none}
736   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
737   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:) \textcolor{comment}{!(out)}
738   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
739   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
740   \textcolor{keywordtype}{integer}                         :: stat, n(3), cause\_i, data\_rank
741   \textcolor{keywordtype}{logical}                         :: invalid\_check(3)
742   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
743   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerReal3'}
744   \textcolor{keywordflow}{continue}
745   cause\_i = 0
746   cause\_c = \textcolor{stringliteral}{''}
747   n(3) = -1
748   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
749   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 3, stat)
750   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
751   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
752   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
753   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
754   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
755   invalid\_check = n > 0
756   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
757     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
758     data\_rank = count(invalid\_check)
759     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 3'}
760     \textcolor{keywordflow}{goto} 999
761 \textcolor{keywordflow}{  end if}
762   \textcolor{comment}{! value が allocate されていなければ allocate する.}
763   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
764   \textcolor{comment}{! あればそのまま取得.}
765   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
766   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
767     \textcolor{keywordflow}{if} ( &
768       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
769       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
770       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
771       & .false.                             ) \textcolor{keywordflow}{then}
772       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
773       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
774     \textcolor{keywordflow}{else}
775       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
776 \textcolor{keywordflow}{    endif}
777   \textcolor{keywordflow}{else}
778     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
779     \textcolor{keyword}{allocate}( value(&
780       & n(1),  &
781       & n(2),  &
782       & n(3))  &
783       &  )
784 \textcolor{keywordflow}{  endif}
785   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
786     \textcolor{keyword}{deallocate}(array1dim\_tmp)
787 \textcolor{keywordflow}{  end if}
788   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
789   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}(var, array1dim\_tmp, product(n), err)
790   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
791   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
792 999 \textcolor{keywordflow}{continue}
793   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a50c40118562da701d481c482e93134ec_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_aa4a78cea28a2006316ec45e4dca003f9}\label{gtvargetpointernum_8f90_aa4a78cea28a2006316ec45e4dca003f9}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerreal4@{gtvargetpointerreal4}}
\index{gtvargetpointerreal4@{gtvargetpointerreal4}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerreal4()}{gtvargetpointerreal4()}}
{\footnotesize\ttfamily subroutine gtvargetpointerreal4 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 797 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetreal(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
797   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
798   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}
799   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
800   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
801   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
802   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
803   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
804   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
805     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
806   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
807   \textcolor{keywordtype}{implicit none}
808   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
809   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:) \textcolor{comment}{!(out)}
810   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
811   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
812   \textcolor{keywordtype}{integer}                         :: stat, n(4), cause\_i, data\_rank
813   \textcolor{keywordtype}{logical}                         :: invalid\_check(4)
814   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
815   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerReal4'}
816   \textcolor{keywordflow}{continue}
817   cause\_i = 0
818   cause\_c = \textcolor{stringliteral}{''}
819   n(4) = -1
820   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
821   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 4, stat)
822   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
823   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
824   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
825   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
826   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
827   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
828   invalid\_check = n > 0
829   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
830     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
831     data\_rank = count(invalid\_check)
832     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 4'}
833     \textcolor{keywordflow}{goto} 999
834 \textcolor{keywordflow}{  end if}
835   \textcolor{comment}{! value が allocate されていなければ allocate する.}
836   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
837   \textcolor{comment}{! あればそのまま取得.}
838   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
839   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
840     \textcolor{keywordflow}{if} ( &
841       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
842       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
843       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
844       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
845       & .false.                             ) \textcolor{keywordflow}{then}
846       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
847       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
848     \textcolor{keywordflow}{else}
849       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
850 \textcolor{keywordflow}{    endif}
851   \textcolor{keywordflow}{else}
852     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
853     \textcolor{keyword}{allocate}( value(&
854       & n(1),  &
855       & n(2),  &
856       & n(3),  &
857       & n(4))  &
858       &  )
859 \textcolor{keywordflow}{  endif}
860   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
861     \textcolor{keyword}{deallocate}(array1dim\_tmp)
862 \textcolor{keywordflow}{  end if}
863   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
864   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}(var, array1dim\_tmp, product(n), err)
865   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
866   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
867 999 \textcolor{keywordflow}{continue}
868   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_aa4a78cea28a2006316ec45e4dca003f9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a3228dfefd0c781936dfe2712ebadf41d}\label{gtvargetpointernum_8f90_a3228dfefd0c781936dfe2712ebadf41d}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerreal5@{gtvargetpointerreal5}}
\index{gtvargetpointerreal5@{gtvargetpointerreal5}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerreal5()}{gtvargetpointerreal5()}}
{\footnotesize\ttfamily subroutine gtvargetpointerreal5 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 872 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetreal(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
872   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
873   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}
874   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
875   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
876   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
877   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
878   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
879   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
880     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
881   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
882   \textcolor{keywordtype}{implicit none}
883   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
884   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:,:) \textcolor{comment}{!(out)}
885   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
886   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
887   \textcolor{keywordtype}{integer}                         :: stat, n(5), cause\_i, data\_rank
888   \textcolor{keywordtype}{logical}                         :: invalid\_check(5)
889   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
890   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerReal5'}
891   \textcolor{keywordflow}{continue}
892   cause\_i = 0
893   cause\_c = \textcolor{stringliteral}{''}
894   n(5) = -1
895   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
896   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 5, stat)
897   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
898   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
899   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
900   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
901   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
902   \textcolor{keyword}{call }get\_slice(var, dimord=5, count=n(5), count\_compact=.false.)
903   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
904   invalid\_check = n > 0
905   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
906     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
907     data\_rank = count(invalid\_check)
908     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 5'}
909     \textcolor{keywordflow}{goto} 999
910 \textcolor{keywordflow}{  end if}
911   \textcolor{comment}{! value が allocate されていなければ allocate する.}
912   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
913   \textcolor{comment}{! あればそのまま取得.}
914   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
915   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
916     \textcolor{keywordflow}{if} ( &
917       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
918       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
919       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
920       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
921       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},5) == n(5) .or. &
922       & .false.                             ) \textcolor{keywordflow}{then}
923       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
924       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
925     \textcolor{keywordflow}{else}
926       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
927 \textcolor{keywordflow}{    endif}
928   \textcolor{keywordflow}{else}
929     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
930     \textcolor{keyword}{allocate}( value(&
931       & n(1),  &
932       & n(2),  &
933       & n(3),  &
934       & n(4),  &
935       & n(5))  &
936       &  )
937 \textcolor{keywordflow}{  endif}
938   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
939     \textcolor{keyword}{deallocate}(array1dim\_tmp)
940 \textcolor{keywordflow}{  end if}
941   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
942   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}(var, array1dim\_tmp, product(n), err)
943   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
944   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
945 999 \textcolor{keywordflow}{continue}
946   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a3228dfefd0c781936dfe2712ebadf41d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_a0bf2a18beb728ab56993681fe5c85f05}\label{gtvargetpointernum_8f90_a0bf2a18beb728ab56993681fe5c85f05}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerreal6@{gtvargetpointerreal6}}
\index{gtvargetpointerreal6@{gtvargetpointerreal6}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerreal6()}{gtvargetpointerreal6()}}
{\footnotesize\ttfamily subroutine gtvargetpointerreal6 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 950 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetreal(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
950   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
951   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}
952   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
953   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
954   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
955   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
956   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
957   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
958     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
959   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
960   \textcolor{keywordtype}{implicit none}
961   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
962   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:,:,:) \textcolor{comment}{!(out)}
963   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
964   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
965   \textcolor{keywordtype}{integer}                         :: stat, n(6), cause\_i, data\_rank
966   \textcolor{keywordtype}{logical}                         :: invalid\_check(6)
967   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
968   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerReal6'}
969   \textcolor{keywordflow}{continue}
970   cause\_i = 0
971   cause\_c = \textcolor{stringliteral}{''}
972   n(6) = -1
973   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
974   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 6, stat)
975   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
976   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
977   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
978   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
979   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
980   \textcolor{keyword}{call }get\_slice(var, dimord=5, count=n(5), count\_compact=.false.)
981   \textcolor{keyword}{call }get\_slice(var, dimord=6, count=n(6), count\_compact=.false.)
982   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
983   invalid\_check = n > 0
984   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
985     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
986     data\_rank = count(invalid\_check)
987     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 6'}
988     \textcolor{keywordflow}{goto} 999
989 \textcolor{keywordflow}{  end if}
990   \textcolor{comment}{! value が allocate されていなければ allocate する.}
991   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
992   \textcolor{comment}{! あればそのまま取得.}
993   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
994   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
995     \textcolor{keywordflow}{if} ( &
996       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
997       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
998       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
999       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
1000       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},5) == n(5) .or. &
1001       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},6) == n(6) .or. &
1002       & .false.                             ) \textcolor{keywordflow}{then}
1003       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
1004       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1005     \textcolor{keywordflow}{else}
1006       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
1007 \textcolor{keywordflow}{    endif}
1008   \textcolor{keywordflow}{else}
1009     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
1010     \textcolor{keyword}{allocate}( value(&
1011       & n(1),  &
1012       & n(2),  &
1013       & n(3),  &
1014       & n(4),  &
1015       & n(5),  &
1016       & n(6))  &
1017       &  )
1018 \textcolor{keywordflow}{  endif}
1019   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
1020     \textcolor{keyword}{deallocate}(array1dim\_tmp)
1021 \textcolor{keywordflow}{  end if}
1022   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
1023   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}(var, array1dim\_tmp, product(n), err)
1024   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
1025   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
1026 999 \textcolor{keywordflow}{continue}
1027   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_a0bf2a18beb728ab56993681fe5c85f05_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gtvargetpointernum_8f90_aed6b15170ecbfddc07508a43be9b8215}\label{gtvargetpointernum_8f90_aed6b15170ecbfddc07508a43be9b8215}} 
\index{gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}!gtvargetpointerreal7@{gtvargetpointerreal7}}
\index{gtvargetpointerreal7@{gtvargetpointerreal7}!gtvargetpointernum.\+f90@{gtvargetpointernum.\+f90}}
\subsubsection{\texorpdfstring{gtvargetpointerreal7()}{gtvargetpointerreal7()}}
{\footnotesize\ttfamily subroutine gtvargetpointerreal7 (\begin{DoxyParamCaption}\item[{type(gt\+\_\+variable), intent(in)}]{var,  }\item[{real(sp), dimension(\+:,\+:,\+:,\+:,\+:,\+:,\+:), pointer}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 1031 of file gtvargetpointernum.\+f90.



References dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+error\+::gt\+\_\+ebadallocatesize, dc\+\_\+error\+::gt\+\_\+enomoredims, dc\+\_\+error\+::gt\+\_\+erankmismatch, gtvargetreal(), gtdata\+\_\+internal\+\_\+map\+::map\+\_\+set\+\_\+rank(), dc\+\_\+types\+::sp, dc\+\_\+error\+::storeerror(), and dc\+\_\+types\+::string.


\begin{DoxyCode}
1031   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__types}{gtdata\_types}\textcolor{keywordtype}{,          only}: gt\_variable
1032   \textcolor{keywordtype}{use }gtdata\_generic\textcolor{keywordtype}{,        only}: get\_slice, \hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}
1033   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__internal__map}{gtdata\_internal\_map}\textcolor{keywordtype}{,   only}: \hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}
1034   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1get}{get}
1035   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{,   only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
1036   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a1059e567d99c60c9d08992a95cd2e9a5}{sp}
1037   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{,              only}: dbgmessage
1038   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{,              only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
1039     & \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}, \hyperlink{namespacedc__error_adbe5d07dca84213ae01fef87caf04be3}{gt\_enomoredims}, 
      \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1040   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{,             only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
1041   \textcolor{keywordtype}{implicit none}
1042   \textcolor{keywordtype}{type}(gt\_variable), \textcolor{keywordtype}{intent(in)}:: var
1043   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{pointer} :: \textcolor{keywordtype}{value}(:,:,:,:,:,:,:) \textcolor{comment}{!(out)}
1044   \textcolor{keywordtype}{real(SP)}, \textcolor{keywordtype}{allocatable} :: array1dim\_tmp(:)
1045   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}  :: err
1046   \textcolor{keywordtype}{integer}                         :: stat, n(7), cause\_i, data\_rank
1047   \textcolor{keywordtype}{logical}                         :: invalid\_check(7)
1048   \textcolor{keywordtype}{character(STRING)}               :: cause\_c
1049   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'GTVarGetPointerReal7'}
1050   \textcolor{keywordflow}{continue}
1051   cause\_i = 0
1052   cause\_c = \textcolor{stringliteral}{''}
1053   n(7) = -1
1054   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1055   \textcolor{keyword}{call }\hyperlink{namespacegtdata__internal__map_ade13b31dac124116c651f89ee2a693ef}{map\_set\_rank}(var, 7, stat)
1056   \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1057   \textcolor{keyword}{call }get\_slice(var, dimord=1, count=n(1), count\_compact=.false.)
1058   \textcolor{keyword}{call }get\_slice(var, dimord=2, count=n(2), count\_compact=.false.)
1059   \textcolor{keyword}{call }get\_slice(var, dimord=3, count=n(3), count\_compact=.false.)
1060   \textcolor{keyword}{call }get\_slice(var, dimord=4, count=n(4), count\_compact=.false.)
1061   \textcolor{keyword}{call }get\_slice(var, dimord=5, count=n(5), count\_compact=.false.)
1062   \textcolor{keyword}{call }get\_slice(var, dimord=6, count=n(6), count\_compact=.false.)
1063   \textcolor{keyword}{call }get\_slice(var, dimord=7, count=n(7), count\_compact=.false.)
1064   \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'n(:)=%*d'}, i=n, n=(/\textcolor{keyword}{size}(n)/))
1065   invalid\_check = n > 0
1066   \textcolor{keywordflow}{if} (.not. all(invalid\_check)) \textcolor{keywordflow}{then}
1067     stat = \hyperlink{namespacedc__error_a6c38c6f0440454a2c4a1ad34af4ecc78}{gt\_erankmismatch}
1068     data\_rank = count(invalid\_check)
1069     cause\_c = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(data\_rank)) // \textcolor{stringliteral}{' and 7'}
1070     \textcolor{keywordflow}{goto} 999
1071 \textcolor{keywordflow}{  end if}
1072   \textcolor{comment}{! value が allocate されていなければ allocate する.}
1073   \textcolor{comment}{! value が既に allocate されていてサイズが取得するデータと同じで}
1074   \textcolor{comment}{! あればそのまま取得.}
1075   \textcolor{comment}{! value が allocate されていてサイズが異なる場合はエラー.}
1076   \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}(\textcolor{keywordtype}{value}) ) \textcolor{keywordflow}{then}
1077     \textcolor{keywordflow}{if} ( &
1078       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},1) == n(1) .or. &
1079       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},2) == n(2) .or. &
1080       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},3) == n(3) .or. &
1081       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},4) == n(4) .or. &
1082       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},5) == n(5) .or. &
1083       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},6) == n(6) .or. &
1084       & .not. \textcolor{keyword}{size}(\textcolor{keywordtype}{value},7) == n(7) .or. &
1085       & .false.                             ) \textcolor{keywordflow}{then}
1086       stat = \hyperlink{namespacedc__error_aa2bcccf8d89673a2d5da7a2e7bea9f43}{gt\_ebadallocatesize}
1087       \textcolor{keywordflow}{if} (stat /= \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}) \textcolor{keywordflow}{goto} 999
1088     \textcolor{keywordflow}{else}
1089       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ value is already allocated'})
1090 \textcolor{keywordflow}{    endif}
1091   \textcolor{keywordflow}{else}
1092     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'@ allocate value'})
1093     \textcolor{keyword}{allocate}( value(&
1094       & n(1),  &
1095       & n(2),  &
1096       & n(3),  &
1097       & n(4),  &
1098       & n(5),  &
1099       & n(6),  &
1100       & n(7))  &
1101       &  )
1102 \textcolor{keywordflow}{  endif}
1103   \textcolor{keywordflow}{if} (\textcolor{keyword}{allocated}(array1dim\_tmp)) \textcolor{keywordflow}{then}
1104     \textcolor{keyword}{deallocate}(array1dim\_tmp)
1105 \textcolor{keywordflow}{  end if}
1106   \textcolor{keyword}{allocate}(array1dim\_tmp(product(n)))
1107   \textcolor{keyword}{call }\hyperlink{gtvargetnum_8f90_ad255a6d133cc9c0f837db05499f4d7d1}{gtvargetreal}(var, array1dim\_tmp, product(n), err)
1108   \textcolor{comment}{!    call DbgMessage('max=%f min=%f', d=(/maxval(value), minval(value)/))}
1109   \textcolor{keywordtype}{value} = reshape(array1dim\_tmp, n)
1110 999 \textcolor{keywordflow}{continue}
1111   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_i=cause\_i, cause\_c=cause\_c)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtvargetpointernum_8f90_aed6b15170ecbfddc07508a43be9b8215_cgraph}
\end{center}
\end{figure}
