\hypertarget{historyautoputaxis_8f90}{}\section{gtool/gtool\+\_\+historyauto/historyautoputaxis.f90 File Reference}
\label{historyautoputaxis_8f90}\index{gtool/gtool\+\_\+historyauto/historyautoputaxis.\+f90@{gtool/gtool\+\_\+historyauto/historyautoputaxis.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyautoputaxis_8f90_a95c999972064711df1a637a8848ff0ec}{historyautoputaxisreal} (dim, array)
\item 
subroutine \hyperlink{historyautoputaxis_8f90_a19d5b16a06b5965f524881d43ff89a33}{historyautoputaxisdouble} (dim, array)
\item 
subroutine \hyperlink{historyautoputaxis_8f90_af05acb9f231521920f86d5de4ebde11c}{historyautoputaxisint} (dim, array)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyautoputaxis_8f90_a19d5b16a06b5965f524881d43ff89a33}\label{historyautoputaxis_8f90_a19d5b16a06b5965f524881d43ff89a33}} 
\index{historyautoputaxis.\+f90@{historyautoputaxis.\+f90}!historyautoputaxisdouble@{historyautoputaxisdouble}}
\index{historyautoputaxisdouble@{historyautoputaxisdouble}!historyautoputaxis.\+f90@{historyautoputaxis.\+f90}}
\subsubsection{\texorpdfstring{historyautoputaxisdouble()}{historyautoputaxisdouble()}}
{\footnotesize\ttfamily subroutine historyautoputaxisdouble (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{dim,  }\item[{real(dp), dimension(\+:), intent(in)}]{array }\end{DoxyParamCaption})}



Definition at line 117 of file historyautoputaxis.\+f90.



References dc\+\_\+trace\+::beginsub(), gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+axes, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, gtool\+\_\+historyauto\+\_\+internal\+::gthst\+\_\+axes, dc\+\_\+error\+::hst\+\_\+enoaxisname, gtool\+\_\+historyauto\+\_\+internal\+::initialized, gtool\+\_\+historyauto\+\_\+internal\+::numdims, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
117     \textcolor{comment}{!}
118     \textcolor{comment}{! 座標データを設定します. }
119     \textcolor{comment}{!}
120     \textcolor{comment}{! Set data of an axis. }
121     \textcolor{comment}{!}
122 
123     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}
124     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, &
125       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfocreate}{historyvarinfocreate}
126     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
127     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
128       & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}, \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
129     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
130 
131     \textcolor{keywordtype}{implicit none}
132     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: dim
133                               \textcolor{comment}{! 座標の名称. }
134                               \textcolor{comment}{!}
135                               \textcolor{comment}{! ただし, ここで指定するもの}
136                               \textcolor{comment}{! は, HistoryAutoCreate の *dims*}
137                               \textcolor{comment}{! 既に指定されていなければなりません.}
138                               \textcolor{comment}{!}
139                               \textcolor{comment}{! Name of axis. }
140                               \textcolor{comment}{!}
141                               \textcolor{comment}{! Note that this value must be set }
142                               \textcolor{comment}{! as "dims" of "HistoryAutoCreate". }
143                               \textcolor{comment}{!}
144     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:)
145                               \textcolor{comment}{! 座標データ}
146                               \textcolor{comment}{!}
147                               \textcolor{comment}{! データ型は整数, 単精度実数型, }
148                               \textcolor{comment}{! 倍精度実数型のどれでもかまいません. }
149                               \textcolor{comment}{! ただし, ファイルへ出力される際には, }
150                               \textcolor{comment}{! HistoryAutoCreate の *xtypes* で指定した}
151                               \textcolor{comment}{! データ型へ変換されます. }
152                               \textcolor{comment}{! }
153                               \textcolor{comment}{! Data of axis}
154                               \textcolor{comment}{!}
155                               \textcolor{comment}{! Integer, single or double precision are }
156                               \textcolor{comment}{! acceptable as data type. }
157                               \textcolor{comment}{! Note that when this is output to a file, }
158                               \textcolor{comment}{! data type is converted into "xtypes" }
159                               \textcolor{comment}{! specified in "HistoryAutoCreate"}
160                               \textcolor{comment}{! }
161 
162     \textcolor{keywordtype}{character(STRING)}:: name
163     \textcolor{keywordtype}{integer}:: stat, i
164     \textcolor{keywordtype}{character(STRING)}:: cause\_c
165     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoPutAxisDouble"}
166   \textcolor{keywordflow}{continue}
167     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'dim=<%c>'}, c1=trim(dim) )
168     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
169     cause\_c = \textcolor{stringliteral}{""}
170 
171     \textcolor{comment}{! 初期設定チェック}
172     \textcolor{comment}{! Check initialization}
173     \textcolor{comment}{!}
174     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
175       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
176       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
177       \textcolor{keywordflow}{goto} 999
178 \textcolor{keywordflow}{    end if}
179 
180     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
181       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
182         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
183         & name = name )            \textcolor{comment}{! (out)}
184       \textcolor{keywordflow}{if} ( trim(dim) == trim(name) ) \textcolor{keywordflow}{then}
185         \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}(i) % a\_axis = array
186         \textcolor{keywordflow}{goto} 999
187 \textcolor{keywordflow}{      end if}
188 \textcolor{keywordflow}{    end do}
189 
190     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
191     cause\_c = dim
192 
193 999 \textcolor{keywordflow}{continue}
194     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
195     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyautoputaxis_8f90_a19d5b16a06b5965f524881d43ff89a33_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoputaxis_8f90_af05acb9f231521920f86d5de4ebde11c}\label{historyautoputaxis_8f90_af05acb9f231521920f86d5de4ebde11c}} 
\index{historyautoputaxis.\+f90@{historyautoputaxis.\+f90}!historyautoputaxisint@{historyautoputaxisint}}
\index{historyautoputaxisint@{historyautoputaxisint}!historyautoputaxis.\+f90@{historyautoputaxis.\+f90}}
\subsubsection{\texorpdfstring{historyautoputaxisint()}{historyautoputaxisint()}}
{\footnotesize\ttfamily subroutine historyautoputaxisint (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{dim,  }\item[{integer, dimension(\+:), intent(in)}]{array }\end{DoxyParamCaption})}



Definition at line 203 of file historyautoputaxis.\+f90.



References dc\+\_\+trace\+::beginsub(), gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+axes, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, gtool\+\_\+historyauto\+\_\+internal\+::gthst\+\_\+axes, dc\+\_\+error\+::hst\+\_\+enoaxisname, gtool\+\_\+historyauto\+\_\+internal\+::initialized, gtool\+\_\+historyauto\+\_\+internal\+::numdims, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
203     \textcolor{comment}{!}
204     \textcolor{comment}{! 座標データを設定します. }
205     \textcolor{comment}{!}
206     \textcolor{comment}{! Set data of an axis. }
207     \textcolor{comment}{!}
208 
209     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}
210     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, &
211       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfocreate}{historyvarinfocreate}
212     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
213     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
214       & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}, \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
215     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
216 
217     \textcolor{keywordtype}{implicit none}
218     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: dim
219                               \textcolor{comment}{! 座標の名称. }
220                               \textcolor{comment}{!}
221                               \textcolor{comment}{! ただし, ここで指定するもの}
222                               \textcolor{comment}{! は, HistoryAutoCreate の *dims*}
223                               \textcolor{comment}{! 既に指定されていなければなりません.}
224                               \textcolor{comment}{!}
225                               \textcolor{comment}{! Name of axis. }
226                               \textcolor{comment}{!}
227                               \textcolor{comment}{! Note that this value must be set }
228                               \textcolor{comment}{! as "dims" of "HistoryAutoCreate". }
229                               \textcolor{comment}{!}
230     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:)
231                               \textcolor{comment}{! 座標データ}
232                               \textcolor{comment}{!}
233                               \textcolor{comment}{! データ型は整数, 単精度実数型, }
234                               \textcolor{comment}{! 倍精度実数型のどれでもかまいません. }
235                               \textcolor{comment}{! ただし, ファイルへ出力される際には, }
236                               \textcolor{comment}{! HistoryAutoCreate の *xtypes* で指定した}
237                               \textcolor{comment}{! データ型へ変換されます. }
238                               \textcolor{comment}{! }
239                               \textcolor{comment}{! Data of axis}
240                               \textcolor{comment}{!}
241                               \textcolor{comment}{! Integer, single or double precision are }
242                               \textcolor{comment}{! acceptable as data type. }
243                               \textcolor{comment}{! Note that when this is output to a file, }
244                               \textcolor{comment}{! data type is converted into "xtypes" }
245                               \textcolor{comment}{! specified in "HistoryAutoCreate"}
246                               \textcolor{comment}{! }
247 
248     \textcolor{keywordtype}{character(STRING)}:: name
249     \textcolor{keywordtype}{integer}:: stat, i
250     \textcolor{keywordtype}{character(STRING)}:: cause\_c
251     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoPutAxisInt"}
252   \textcolor{keywordflow}{continue}
253     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'dim=<%c>'}, c1=trim(dim) )
254     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
255     cause\_c = \textcolor{stringliteral}{""}
256 
257     \textcolor{comment}{! 初期設定チェック}
258     \textcolor{comment}{! Check initialization}
259     \textcolor{comment}{!}
260     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
261       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
262       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
263       \textcolor{keywordflow}{goto} 999
264 \textcolor{keywordflow}{    end if}
265 
266     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
267       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
268         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
269         & name = name )            \textcolor{comment}{! (out)}
270       \textcolor{keywordflow}{if} ( trim(dim) == trim(name) ) \textcolor{keywordflow}{then}
271         \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}(i) % a\_axis = array
272         \textcolor{keywordflow}{goto} 999
273 \textcolor{keywordflow}{      end if}
274 \textcolor{keywordflow}{    end do}
275 
276     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
277     cause\_c = dim
278 
279 999 \textcolor{keywordflow}{continue}
280     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
281     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyautoputaxis_8f90_af05acb9f231521920f86d5de4ebde11c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoputaxis_8f90_a95c999972064711df1a637a8848ff0ec}\label{historyautoputaxis_8f90_a95c999972064711df1a637a8848ff0ec}} 
\index{historyautoputaxis.\+f90@{historyautoputaxis.\+f90}!historyautoputaxisreal@{historyautoputaxisreal}}
\index{historyautoputaxisreal@{historyautoputaxisreal}!historyautoputaxis.\+f90@{historyautoputaxis.\+f90}}
\subsubsection{\texorpdfstring{historyautoputaxisreal()}{historyautoputaxisreal()}}
{\footnotesize\ttfamily subroutine historyautoputaxisreal (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{dim,  }\item[{real, dimension(\+:), intent(in)}]{array }\end{DoxyParamCaption})}



Definition at line 31 of file historyautoputaxis.\+f90.



References dc\+\_\+trace\+::beginsub(), gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+axes, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, gtool\+\_\+historyauto\+\_\+internal\+::gthst\+\_\+axes, dc\+\_\+error\+::hst\+\_\+enoaxisname, gtool\+\_\+historyauto\+\_\+internal\+::initialized, gtool\+\_\+historyauto\+\_\+internal\+::numdims, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
31     \textcolor{comment}{!}
32     \textcolor{comment}{! 座標データを設定します. }
33     \textcolor{comment}{!}
34     \textcolor{comment}{! Set data of an axis. }
35     \textcolor{comment}{!}
36 
37     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}
38     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}, &
39       &                    \hyperlink{interfacegtool__history__generic_1_1historyvarinfocreate}{historyvarinfocreate}
40     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
41     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, &
42       & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}, \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
43     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
44 
45     \textcolor{keywordtype}{implicit none}
46     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: dim
47                               \textcolor{comment}{! 座標の名称. }
48                               \textcolor{comment}{!}
49                               \textcolor{comment}{! ただし, ここで指定するもの}
50                               \textcolor{comment}{! は, HistoryAutoCreate の *dims*}
51                               \textcolor{comment}{! 既に指定されていなければなりません.}
52                               \textcolor{comment}{!}
53                               \textcolor{comment}{! Name of axis. }
54                               \textcolor{comment}{!}
55                               \textcolor{comment}{! Note that this value must be set }
56                               \textcolor{comment}{! as "dims" of "HistoryAutoCreate". }
57                               \textcolor{comment}{!}
58     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:)
59                               \textcolor{comment}{! 座標データ}
60                               \textcolor{comment}{!}
61                               \textcolor{comment}{! データ型は整数, 単精度実数型, }
62                               \textcolor{comment}{! 倍精度実数型のどれでもかまいません. }
63                               \textcolor{comment}{! ただし, ファイルへ出力される際には, }
64                               \textcolor{comment}{! HistoryAutoCreate の *xtypes* で指定した}
65                               \textcolor{comment}{! データ型へ変換されます. }
66                               \textcolor{comment}{! }
67                               \textcolor{comment}{! Data of axis}
68                               \textcolor{comment}{!}
69                               \textcolor{comment}{! Integer, single or double precision are }
70                               \textcolor{comment}{! acceptable as data type. }
71                               \textcolor{comment}{! Note that when this is output to a file, }
72                               \textcolor{comment}{! data type is converted into "xtypes" }
73                               \textcolor{comment}{! specified in "HistoryAutoCreate"}
74                               \textcolor{comment}{! }
75 
76     \textcolor{keywordtype}{character(STRING)}:: name
77     \textcolor{keywordtype}{integer}:: stat, i
78     \textcolor{keywordtype}{character(STRING)}:: cause\_c
79     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoPutAxisReal"}
80   \textcolor{keywordflow}{continue}
81     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'dim=<%c>'}, c1=trim(dim) )
82     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
83     cause\_c = \textcolor{stringliteral}{""}
84 
85     \textcolor{comment}{! 初期設定チェック}
86     \textcolor{comment}{! Check initialization}
87     \textcolor{comment}{!}
88     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
89       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
90       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
91       \textcolor{keywordflow}{goto} 999
92 \textcolor{keywordflow}{    end if}
93 
94     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
95       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
96         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
97         & name = name )            \textcolor{comment}{! (out)}
98       \textcolor{keywordflow}{if} ( trim(dim) == trim(name) ) \textcolor{keywordflow}{then}
99         \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}(i) % a\_axis = array
100         \textcolor{keywordflow}{goto} 999
101 \textcolor{keywordflow}{      end if}
102 \textcolor{keywordflow}{    end do}
103 
104     stat = \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
105     cause\_c = dim
106 
107 999 \textcolor{keywordflow}{continue}
108     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
109     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyautoputaxis_8f90_a95c999972064711df1a637a8848ff0ec_cgraph}
\end{center}
\end{figure}
