\hypertarget{historyautoputaxismpi_8f90}{}\section{gtool/gtool\+\_\+historyauto/historyautoputaxismpi.f90 File Reference}
\label{historyautoputaxismpi_8f90}\index{gtool/gtool\+\_\+historyauto/historyautoputaxismpi.\+f90@{gtool/gtool\+\_\+historyauto/historyautoputaxismpi.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyautoputaxismpi_8f90_aed63b2e0cfddfc192f901beeb6585bc3}{historyautoputaxismpireal} (dim, array)
\item 
subroutine \hyperlink{historyautoputaxismpi_8f90_ab5181b2e4a20cbe6454f7ad1a368ad97}{historyautoputaxismpidouble} (dim, array)
\item 
subroutine \hyperlink{historyautoputaxismpi_8f90_a8937c92cc015ff3bd8dbbbf87d4fb994}{historyautoputaxismpiint} (dim, array)
\end{DoxyCompactItemize}


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



Definition at line 91 of file historyautoputaxismpi.\+f90.



References dc\+\_\+trace\+::beginsub(), gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+axes\+\_\+whole, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+ebaddimname, 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}
91     \textcolor{comment}{!}
92     \textcolor{comment}{! MPI 使用時に, 各々のノード上のデータを単一ファイルに}
93     \textcolor{comment}{! 集約して出力する場合には, }
94     \textcolor{comment}{! このサブルーチンに領域全体の座標データを与えてください. }
95     \textcolor{comment}{! また, HistoryAutoCreate のオプショナル論理型引数 *flag\_mpi\_gather* }
96     \textcolor{comment}{! に .true. を与えてください. }
97     \textcolor{comment}{!}
98     \textcolor{comment}{! When MPI is used, if data on each node is integrated and }
99     \textcolor{comment}{! output to one file, give data of axes in whole area to }
100     \textcolor{comment}{! this subroutine. }
101     \textcolor{comment}{! And give .true. to optional logical argument *flag\_mpi\_gather* }
102     \textcolor{comment}{! in "HistoryAutoCreate". }
103     \textcolor{comment}{!}
104     \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_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}
105     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
106     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
107     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
108     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, &
109       & \hyperlink{namespacedc__error_a64665cb8d8cdc87f552d5bf7a5940f78}{gt\_ebaddimname}
110     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
111     \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}
112     \textcolor{keywordtype}{implicit none}
113     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: dim
114                                                   \textcolor{comment}{! 座標変数の名称. }
115                               \textcolor{comment}{!}
116                               \textcolor{comment}{! ここで指定するものは, HistoryAutoCreate の}
117                               \textcolor{comment}{! 引数 *dims* で既に指定されてい}
118                               \textcolor{comment}{! なければなりません.}
119                               \textcolor{comment}{!}
120                               \textcolor{comment}{! Name of dimensional variable. }
121                               \textcolor{comment}{!}
122                               \textcolor{comment}{! This name must be specified by }
123                               \textcolor{comment}{! an argument *dims* in "HistoryAutoCreate". }
124                               \textcolor{comment}{!}
125                     
126     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: array(:)
127                                                   \textcolor{comment}{! 座標データ. }
128                               \textcolor{comment}{!}
129                               \textcolor{comment}{! Data of axes. }
130                     
131     \textcolor{keywordtype}{integer}:: i, dimsize
132     \textcolor{keywordtype}{character(STRING)}:: name
133     \textcolor{keywordtype}{integer}:: stat
134     \textcolor{keywordtype}{character(STRING)}:: cause\_c
135     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoPutAxisMPIDouble"}
136   \textcolor{keywordflow}{continue}
137     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'dim=%c'}, c1 = trim(dim) )
138     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
139     cause\_c = \textcolor{stringliteral}{""}
140 
141     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
142       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
143         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
144         & name = name )            \textcolor{comment}{! (out)}
145       \textcolor{keywordflow}{if} ( trim(dim) == trim(name) ) \textcolor{keywordflow}{then}
146         dimsize = \textcolor{keyword}{size}( array )
147         \textcolor{keyword}{allocate}( \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}(i) % a\_axis( dimsize ) )
148         \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}(i) % a\_axis(:) = array(:)
149         \textcolor{keywordflow}{goto} 999
150 \textcolor{keywordflow}{      end if}
151 \textcolor{keywordflow}{    end do}
152 
153     stat = hst\_enoaxisname
154     cause\_c = dim
155 
156     \textcolor{comment}{! 終了処理, 例外処理}
157     \textcolor{comment}{! Termination and Exception handling}
158     \textcolor{comment}{!}
159 999 \textcolor{keywordflow}{continue}
160     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, cause\_c = cause\_c )
161     \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]{historyautoputaxismpi_8f90_ab5181b2e4a20cbe6454f7ad1a368ad97_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoputaxismpi_8f90_a8937c92cc015ff3bd8dbbbf87d4fb994}\label{historyautoputaxismpi_8f90_a8937c92cc015ff3bd8dbbbf87d4fb994}} 
\index{historyautoputaxismpi.\+f90@{historyautoputaxismpi.\+f90}!historyautoputaxismpiint@{historyautoputaxismpiint}}
\index{historyautoputaxismpiint@{historyautoputaxismpiint}!historyautoputaxismpi.\+f90@{historyautoputaxismpi.\+f90}}
\subsubsection{\texorpdfstring{historyautoputaxismpiint()}{historyautoputaxismpiint()}}
{\footnotesize\ttfamily subroutine historyautoputaxismpiint (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{dim,  }\item[{integer, dimension(\+:), intent(in)}]{array }\end{DoxyParamCaption})}



Definition at line 167 of file historyautoputaxismpi.\+f90.



References dc\+\_\+trace\+::beginsub(), gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+axes\+\_\+whole, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+ebaddimname, 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}
167     \textcolor{comment}{!}
168     \textcolor{comment}{! MPI 使用時に, 各々のノード上のデータを単一ファイルに}
169     \textcolor{comment}{! 集約して出力する場合には, }
170     \textcolor{comment}{! このサブルーチンに領域全体の座標データを与えてください. }
171     \textcolor{comment}{! また, HistoryAutoCreate のオプショナル論理型引数 *flag\_mpi\_gather* }
172     \textcolor{comment}{! に .true. を与えてください. }
173     \textcolor{comment}{!}
174     \textcolor{comment}{! When MPI is used, if data on each node is integrated and }
175     \textcolor{comment}{! output to one file, give data of axes in whole area to }
176     \textcolor{comment}{! this subroutine. }
177     \textcolor{comment}{! And give .true. to optional logical argument *flag\_mpi\_gather* }
178     \textcolor{comment}{! in "HistoryAutoCreate". }
179     \textcolor{comment}{!}
180     \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_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}
181     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
182     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
183     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
184     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, &
185       & \hyperlink{namespacedc__error_a64665cb8d8cdc87f552d5bf7a5940f78}{gt\_ebaddimname}
186     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
187     \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}
188     \textcolor{keywordtype}{implicit none}
189     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: dim
190                     
191     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: array(:)
192                     
193     \textcolor{keywordtype}{integer}:: i, dimsize
194     \textcolor{keywordtype}{character(STRING)}:: name
195     \textcolor{keywordtype}{integer}:: stat
196     \textcolor{keywordtype}{character(STRING)}:: cause\_c
197     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoPutAxisMPIInt"}
198   \textcolor{keywordflow}{continue}
199     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'dim=%c'}, c1 = trim(dim) )
200     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
201     cause\_c = \textcolor{stringliteral}{""}
202 
203     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
204       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
205         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
206         & name = name )            \textcolor{comment}{! (out)}
207       \textcolor{keywordflow}{if} ( trim(dim) == trim(name) ) \textcolor{keywordflow}{then}
208         dimsize = \textcolor{keyword}{size}( array )
209         \textcolor{keyword}{allocate}( \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}(i) % a\_axis( dimsize ) )
210         \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}(i) % a\_axis(:) = array(:)
211         \textcolor{keywordflow}{goto} 999
212 \textcolor{keywordflow}{      end if}
213 \textcolor{keywordflow}{    end do}
214 
215     stat = hst\_enoaxisname
216     cause\_c = dim
217 
218     \textcolor{comment}{! 終了処理, 例外処理}
219     \textcolor{comment}{! Termination and Exception handling}
220     \textcolor{comment}{!}
221 999 \textcolor{keywordflow}{continue}
222     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, cause\_c = cause\_c )
223     \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]{historyautoputaxismpi_8f90_a8937c92cc015ff3bd8dbbbf87d4fb994_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautoputaxismpi_8f90_aed63b2e0cfddfc192f901beeb6585bc3}\label{historyautoputaxismpi_8f90_aed63b2e0cfddfc192f901beeb6585bc3}} 
\index{historyautoputaxismpi.\+f90@{historyautoputaxismpi.\+f90}!historyautoputaxismpireal@{historyautoputaxismpireal}}
\index{historyautoputaxismpireal@{historyautoputaxismpireal}!historyautoputaxismpi.\+f90@{historyautoputaxismpi.\+f90}}
\subsubsection{\texorpdfstring{historyautoputaxismpireal()}{historyautoputaxismpireal()}}
{\footnotesize\ttfamily subroutine historyautoputaxismpireal (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{dim,  }\item[{real, dimension(\+:), intent(in)}]{array }\end{DoxyParamCaption})}



Definition at line 29 of file historyautoputaxismpi.\+f90.



References dc\+\_\+trace\+::beginsub(), gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+axes\+\_\+whole, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+ebaddimname, 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}
29     \textcolor{comment}{!}
30     \textcolor{comment}{! MPI 使用時に, 各々のノード上のデータを単一ファイルに}
31     \textcolor{comment}{! 集約して出力する場合には, }
32     \textcolor{comment}{! このサブルーチンに領域全体の座標データを与えてください. }
33     \textcolor{comment}{! また, HistoryAutoCreate のオプショナル論理型引数 *flag\_mpi\_gather* }
34     \textcolor{comment}{! に .true. を与えてください. }
35     \textcolor{comment}{!}
36     \textcolor{comment}{! When MPI is used, if data on each node is integrated and }
37     \textcolor{comment}{! output to one file, give data of axes in whole area to }
38     \textcolor{comment}{! this subroutine. }
39     \textcolor{comment}{! And give .true. to optional logical argument *flag\_mpi\_gather* }
40     \textcolor{comment}{! in "HistoryAutoCreate". }
41     \textcolor{comment}{!}
42     \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_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}
43     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}
44     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
45     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a5ef24ac85c92d6dd3ba8971818c392f2}{hst\_enoaxisname}
46     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, &
47       & \hyperlink{namespacedc__error_a64665cb8d8cdc87f552d5bf7a5940f78}{gt\_ebaddimname}
48     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
49     \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}
50     \textcolor{keywordtype}{implicit none}
51     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: dim
52                     
53     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: array(:)
54                     
55     \textcolor{keywordtype}{integer}:: i, dimsize
56     \textcolor{keywordtype}{character(STRING)}:: name
57     \textcolor{keywordtype}{integer}:: stat
58     \textcolor{keywordtype}{character(STRING)}:: cause\_c
59     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoPutAxisMPIReal"}
60   \textcolor{keywordflow}{continue}
61     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \textcolor{stringliteral}{'dim=%c'}, c1 = trim(dim) )
62     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
63     cause\_c = \textcolor{stringliteral}{""}
64 
65     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
66       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisinquire}{historyaxisinquire}( &
67         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &  \textcolor{comment}{! (in)}
68         & name = name )            \textcolor{comment}{! (out)}
69       \textcolor{keywordflow}{if} ( trim(dim) == trim(name) ) \textcolor{keywordflow}{then}
70         dimsize = \textcolor{keyword}{size}( array )
71         \textcolor{keyword}{allocate}( \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}(i) % a\_axis( dimsize ) )
72         \hyperlink{namespacegtool__historyauto__internal_a58a6a57fae2aee8bfe4ffeb74ccd51cf}{data\_axes\_whole}(i) % a\_axis(:) = array(:)
73         \textcolor{keywordflow}{goto} 999
74 \textcolor{keywordflow}{      end if}
75 \textcolor{keywordflow}{    end do}
76 
77     stat = hst\_enoaxisname
78     cause\_c = dim
79 
80     \textcolor{comment}{! 終了処理, 例外処理}
81     \textcolor{comment}{! Termination and Exception handling}
82     \textcolor{comment}{!}
83 999 \textcolor{keywordflow}{continue}
84     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, cause\_c = cause\_c )
85     \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]{historyautoputaxismpi_8f90_aed63b2e0cfddfc192f901beeb6585bc3_cgraph}
\end{center}
\end{figure}
