\hypertarget{namespacegtool__history__nmlinfo__internal}{}\section{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal Module Reference}
\label{namespacegtool__history__nmlinfo__internal}\index{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}}
\subsection*{Data Types}
\begin{DoxyCompactItemize}
\item 
interface \hyperlink{interfacegtool__history__nmlinfo__internal_1_1listlast}{listlast}
\item 
interface \hyperlink{interfacegtool__history__nmlinfo__internal_1_1listnext}{listnext}
\item 
interface \hyperlink{interfacegtool__history__nmlinfo__internal_1_1listsearch}{listsearch}
\end{DoxyCompactItemize}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{namespacegtool__history__nmlinfo__internal_ac059d5f21a631530410aa50a77fbd103}{hstnmlinfolistnext} (gthstnml\+\_\+list, err)
\item 
subroutine \hyperlink{namespacegtool__history__nmlinfo__internal_a5b4333410918e0bfd56087fd62cecb8d}{hstnmlinfolistlast} (gthstnml\+\_\+list, previous, err)
\item 
subroutine \hyperlink{namespacegtool__history__nmlinfo__internal_a5b7b30cd52776905deb56996c5edd144}{hstnmlinfolistsearch} (gthstnml\+\_\+list, name, previous, next, err)
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
character(1), parameter, public \hyperlink{namespacegtool__history__nmlinfo__internal_a70f5d905a8fb6970a88cf6bf122ab858}{name\+\_\+delimiter} = \textquotesingle{},\textquotesingle{}
\item 
type(hash), save, public \hyperlink{namespacegtool__history__nmlinfo__internal_a2a168d32be55e175e41d8f9fb277bee1}{opened\+\_\+files}
\item 
character($\ast$), parameter, public \hyperlink{namespacegtool__history__nmlinfo__internal_ae6f051d280e1c5dcfc3059727a3a16f3}{version} = \textquotesingle{}\$Name\+: \$\textquotesingle{} // \textquotesingle{}\$Id\+: gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal.\+f90,v 1.\+1 2009-\/05-\/11 15\+:15\+:15 morikawa Exp \$\textquotesingle{}
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacegtool__history__nmlinfo__internal_a5b4333410918e0bfd56087fd62cecb8d}\label{namespacegtool__history__nmlinfo__internal_a5b4333410918e0bfd56087fd62cecb8d}} 
\index{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}!hstnmlinfolistlast@{hstnmlinfolistlast}}
\index{hstnmlinfolistlast@{hstnmlinfolistlast}!gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}}
\subsubsection{\texorpdfstring{hstnmlinfolistlast()}{hstnmlinfolistlast()}}
{\footnotesize\ttfamily subroutine gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal\+::hstnmlinfolistlast (\begin{DoxyParamCaption}\item[{type(gthst\+\_\+nmlinfo\+\_\+entry), pointer}]{gthstnml\+\_\+list,  }\item[{type(gthst\+\_\+nmlinfo\+\_\+entry), optional, pointer}]{previous,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 129 of file gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
129     \textcolor{comment}{!}
130     \textcolor{comment}{! リスト構造である *gthstnml\_list* (GTHST\_NMLINFO\_ENTRY 型) を受け取り, }
131     \textcolor{comment}{! 最後のエントリに再結合して返します. }
132     \textcolor{comment}{! *gthstnml\_list* が始めから空の場合には空状態を返します. }
133     \textcolor{comment}{!}
134     \textcolor{comment}{! *previous* が与えられる場合, 当該エントリの一つ前の}
135     \textcolor{comment}{! エントリに結合します. }
136     \textcolor{comment}{!}
137     \textcolor{comment}{! *gthstnml\_list* (type "GTHST\_NMLINFO\_ENTRY") that is a list structure }
138     \textcolor{comment}{! is recieved, and *gthstnml\_list* is reassociated to }
139     \textcolor{comment}{! last entry, and returned. }
140     \textcolor{comment}{! If *gthstnml\_list* is null from the beginning, null is returned.}
141     \textcolor{comment}{!}
142     \textcolor{comment}{! If *previous* is given, an entry previous to the above entry}
143     \textcolor{comment}{! is associated. }
144     \textcolor{comment}{!}
145     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__types}{gtool\_history\_nmlinfo\_types}\textcolor{keywordtype}{, only}: 
      \hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}
146     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
147     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
148     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
149     \textcolor{keywordtype}{implicit none}
150     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}:: gthstnml\_list
151                               \textcolor{comment}{! (inout)}
152     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}, \textcolor{keywordtype}{optional}:: previous
153                               \textcolor{comment}{! (out)}
154     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
155                               \textcolor{comment}{! 例外処理用フラグ. }
156                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
157                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
158                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
159                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
160                               \textcolor{comment}{! *err* に .true. が代入されます. }
161                               \textcolor{comment}{!}
162                               \textcolor{comment}{! Exception handling flag. }
163                               \textcolor{comment}{! By default, when error occur in }
164                               \textcolor{comment}{! this procedure, the program aborts. }
165                               \textcolor{comment}{! If this *err* argument is given, }
166                               \textcolor{comment}{! .true. is substituted to *err* and }
167                               \textcolor{comment}{! the program does not abort. }
168 
169     \textcolor{comment}{!-----------------------------------}
170     \textcolor{comment}{!  作業変数}
171     \textcolor{comment}{!  Work variables}
172     \textcolor{keywordtype}{integer}:: stat
173     \textcolor{keywordtype}{character(STRING)}:: cause\_c
174     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'HstNmlInfoListLast'}
175   \textcolor{keywordflow}{continue}
176     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}( subname )
177     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
178     cause\_c = \textcolor{stringliteral}{''}
179 
180     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}( previous ) ) \textcolor{keyword}{nullify}( previous )
181 
182     \textcolor{comment}{!-----------------------------------------------------------------}
183     \textcolor{comment}{!  空状態の場合は何もしないで返す}
184     \textcolor{comment}{!  If null, return without change}
185     \textcolor{comment}{!-----------------------------------------------------------------}
186     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( gthstnml\_list ) ) \textcolor{keywordflow}{goto} 999
187 
188     \textcolor{comment}{!-----------------------------------------------------------------}
189     \textcolor{comment}{!  最後のエントリの *next* に結合して返す}
190     \textcolor{comment}{!  "*next*" in last entry is associated, and returned}
191     \textcolor{comment}{!-----------------------------------------------------------------}
192     \textcolor{keywordflow}{do} \textcolor{keywordflow}{while} ( \textcolor{keyword}{associated}( gthstnml\_list % next ) )
193       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}( previous ) ) previous => gthstnml\_list
194       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__internal_1_1listnext}{listnext}( gthstnml\_list = gthstnml\_list ) \textcolor{comment}{! (inout)}
195 \textcolor{keywordflow}{    end do}
196 
197     \textcolor{comment}{!-----------------------------------------------------------------}
198     \textcolor{comment}{!  終了処理, 例外処理}
199     \textcolor{comment}{!  Termination and Exception handling}
200     \textcolor{comment}{!-----------------------------------------------------------------}
201 999 \textcolor{keywordflow}{continue}
202     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
203     \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]{namespacegtool__history__nmlinfo__internal_a5b4333410918e0bfd56087fd62cecb8d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacegtool__history__nmlinfo__internal_ac059d5f21a631530410aa50a77fbd103}\label{namespacegtool__history__nmlinfo__internal_ac059d5f21a631530410aa50a77fbd103}} 
\index{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}!hstnmlinfolistnext@{hstnmlinfolistnext}}
\index{hstnmlinfolistnext@{hstnmlinfolistnext}!gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}}
\subsubsection{\texorpdfstring{hstnmlinfolistnext()}{hstnmlinfolistnext()}}
{\footnotesize\ttfamily subroutine gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal\+::hstnmlinfolistnext (\begin{DoxyParamCaption}\item[{type(gthst\+\_\+nmlinfo\+\_\+entry), pointer}]{gthstnml\+\_\+list,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 59 of file gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
59     \textcolor{comment}{!}
60     \textcolor{comment}{! リスト構造である *gthstnml\_list* (GTHST\_NMLINFO\_ENTRY 型) を受け取り, }
61     \textcolor{comment}{! 次のエントリを *gthstnml\_list* に再結合して返します. }
62     \textcolor{comment}{! 次のエントリが無い場合, *gthstnml\_list* の最後のエントリの }
63     \textcolor{comment}{! *next* (空状態) に接続して返します. }
64     \textcolor{comment}{! *gthstnml\_list* が始めから空の場合には空状態を返します. }
65     \textcolor{comment}{!}
66     \textcolor{comment}{! *gthstnml\_list* (type "GTHST\_NMLINFO\_ENTRY") that is a list structure }
67     \textcolor{comment}{! is recieved, and *gthstnml\_list* is reassociated to next entry, and}
68     \textcolor{comment}{! is returned. }
69     \textcolor{comment}{! If next entry is not found, *gthstnml\_list* is associated to }
70     \textcolor{comment}{! *next* in last entry (null), and returned. }
71     \textcolor{comment}{! If *gthstnml\_list* is null from the beginning, null is returned.}
72     \textcolor{comment}{!}
73     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__types}{gtool\_history\_nmlinfo\_types}\textcolor{keywordtype}{, only}: 
      \hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}
74     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
75     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
76     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
77     \textcolor{keywordtype}{implicit none}
78     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}:: gthstnml\_list
79                               \textcolor{comment}{! (inout)}
80     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
81                               \textcolor{comment}{! 例外処理用フラグ. }
82                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
83                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
84                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
85                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
86                               \textcolor{comment}{! *err* に .true. が代入されます. }
87                               \textcolor{comment}{!}
88                               \textcolor{comment}{! Exception handling flag. }
89                               \textcolor{comment}{! By default, when error occur in }
90                               \textcolor{comment}{! this procedure, the program aborts. }
91                               \textcolor{comment}{! If this *err* argument is given, }
92                               \textcolor{comment}{! .true. is substituted to *err* and }
93                               \textcolor{comment}{! the program does not abort. }
94 
95     \textcolor{comment}{!-----------------------------------}
96     \textcolor{comment}{!  作業変数}
97     \textcolor{comment}{!  Work variables}
98     \textcolor{keywordtype}{integer}:: stat
99     \textcolor{keywordtype}{character(STRING)}:: cause\_c
100     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'HstNmlInfoListNext'}
101   \textcolor{keywordflow}{continue}
102     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}( subname )
103     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
104     cause\_c = \textcolor{stringliteral}{''}
105 
106     \textcolor{comment}{!-----------------------------------------------------------------}
107     \textcolor{comment}{!  空状態の場合は何もしないで返す}
108     \textcolor{comment}{!  If null, return without change}
109     \textcolor{comment}{!-----------------------------------------------------------------}
110     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( gthstnml\_list ) ) \textcolor{keywordflow}{goto} 999
111 
112     \textcolor{comment}{!-----------------------------------------------------------------}
113     \textcolor{comment}{!  次のエントリに結合して返す}
114     \textcolor{comment}{!  Next entry is associated, and returned}
115     \textcolor{comment}{!-----------------------------------------------------------------}
116     gthstnml\_list => gthstnml\_list % next
117 
118     \textcolor{comment}{!-----------------------------------------------------------------}
119     \textcolor{comment}{!  終了処理, 例外処理}
120     \textcolor{comment}{!  Termination and Exception handling}
121     \textcolor{comment}{!-----------------------------------------------------------------}
122 999 \textcolor{keywordflow}{continue}
123     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
124     \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]{namespacegtool__history__nmlinfo__internal_ac059d5f21a631530410aa50a77fbd103_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacegtool__history__nmlinfo__internal_a5b7b30cd52776905deb56996c5edd144}\label{namespacegtool__history__nmlinfo__internal_a5b7b30cd52776905deb56996c5edd144}} 
\index{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}!hstnmlinfolistsearch@{hstnmlinfolistsearch}}
\index{hstnmlinfolistsearch@{hstnmlinfolistsearch}!gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}}
\subsubsection{\texorpdfstring{hstnmlinfolistsearch()}{hstnmlinfolistsearch()}}
{\footnotesize\ttfamily subroutine gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal\+::hstnmlinfolistsearch (\begin{DoxyParamCaption}\item[{type(gthst\+\_\+nmlinfo\+\_\+entry), pointer}]{gthstnml\+\_\+list,  }\item[{character($\ast$), intent(in)}]{name,  }\item[{type(gthst\+\_\+nmlinfo\+\_\+entry), optional, pointer}]{previous,  }\item[{type(gthst\+\_\+nmlinfo\+\_\+entry), optional, pointer}]{next,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 209 of file gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
209     \textcolor{comment}{!}
210     \textcolor{comment}{! リスト構造である *gthstnml\_list* (GTHST\_NMLINFO\_ENTRY 型) を受け取り, }
211     \textcolor{comment}{! 引数 *name* と同じ値を持つエントリに再結合して返します. }
212     \textcolor{comment}{! 見つからない場合は空状態を返します.}
213     \textcolor{comment}{! *gthstnml\_list* が始めから空の場合には空状態を返します. }
214     \textcolor{comment}{! }
215     \textcolor{comment}{! *previous* が与えられる場合, 当該エントリの一つ前の}
216     \textcolor{comment}{! エントリに結合します. 前のエントリが無い場合には}
217     \textcolor{comment}{! 空状態を返します. }
218     \textcolor{comment}{!}
219     \textcolor{comment}{! *next* が与えられる場合, 当該エントリの一つ後ろの}
220     \textcolor{comment}{! エントリに結合します. 後ろのエントリが無い場合には}
221     \textcolor{comment}{! 空状態を返します. }
222     \textcolor{comment}{! }
223     \textcolor{comment}{! *gthstnml\_list* (type "GTHST\_NMLINFO\_ENTRY") that is a list structure }
224     \textcolor{comment}{! is recieved, and *gthstnml\_list* is reassociated to }
225     \textcolor{comment}{! the entry that has a value that is same as argument *name*, }
226     \textcolor{comment}{! and returned. }
227     \textcolor{comment}{! If the entry is not found, null is returned. }
228     \textcolor{comment}{! If *gthstnml\_list* is null from the beginning, null is returned. }
229     \textcolor{comment}{!}
230     \textcolor{comment}{! If *previous* is given, an entry previous to the above entry}
231     \textcolor{comment}{! is associated. If previous entries are not found, }
232     \textcolor{comment}{! null is returned.}
233     \textcolor{comment}{!}
234     \textcolor{comment}{! If *next* is given, an entry next to the above entry}
235     \textcolor{comment}{! is associated. If next entries are not found, }
236     \textcolor{comment}{! null is returned.}
237     \textcolor{comment}{!}
238     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__types}{gtool\_history\_nmlinfo\_types}\textcolor{keywordtype}{, only}: 
      \hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}
239     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
240     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
241     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
242     \textcolor{keywordtype}{implicit none}
243     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}:: gthstnml\_list
244                               \textcolor{comment}{! (inout)}
245     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: name
246                               \textcolor{comment}{! 変数名. }
247                               \textcolor{comment}{! 先頭の空白は無視されます. }
248                               \textcolor{comment}{! }
249                               \textcolor{comment}{! Variable identifier. }
250                               \textcolor{comment}{! Blanks at the head of the name are ignored. }
251     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}, \textcolor{keywordtype}{optional}:: previous
252                               \textcolor{comment}{! (out)}
253     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}, \textcolor{keywordtype}{optional}:: \hyperlink{interfacedc__hash_1_1next}{next}
254                               \textcolor{comment}{! (out)}
255     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
256                               \textcolor{comment}{! 例外処理用フラグ. }
257                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
258                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
259                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
260                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
261                               \textcolor{comment}{! *err* に .true. が代入されます. }
262                               \textcolor{comment}{!}
263                               \textcolor{comment}{! Exception handling flag. }
264                               \textcolor{comment}{! By default, when error occur in }
265                               \textcolor{comment}{! this procedure, the program aborts. }
266                               \textcolor{comment}{! If this *err* argument is given, }
267                               \textcolor{comment}{! .true. is substituted to *err* and }
268                               \textcolor{comment}{! the program does not abort. }
269 
270     \textcolor{comment}{!-----------------------------------}
271     \textcolor{comment}{!  作業変数}
272     \textcolor{comment}{!  Work variables}
273     \textcolor{keywordtype}{integer}:: stat
274     \textcolor{keywordtype}{character(STRING)}:: cause\_c
275     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'HstNmlInfoListSearch'}
276   \textcolor{keywordflow}{continue}
277     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}( subname )
278     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
279     cause\_c = \textcolor{stringliteral}{''}
280 
281     \textcolor{comment}{!-----------------------------------------------------------------}
282     \textcolor{comment}{!  空状態の場合は何もしないで返す}
283     \textcolor{comment}{!  If null, return without change}
284     \textcolor{comment}{!-----------------------------------------------------------------}
285     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( gthstnml\_list ) ) \textcolor{keywordflow}{goto} 999
286 
287     \textcolor{comment}{!-----------------------------------------------------------------}
288     \textcolor{comment}{!  引数 *name* と同じ *name* を持つエントリを探査}
289     \textcolor{comment}{!  The entry that has *name* that is same as argument *name* is searched}
290     \textcolor{comment}{!-----------------------------------------------------------------}
291     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}( previous ) ) \textcolor{keyword}{nullify}( previous )
292     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}( \hyperlink{interfacedc__hash_1_1next}{next} ) ) \textcolor{keyword}{nullify}( \hyperlink{interfacedc__hash_1_1next}{next} )
293     \textcolor{keywordflow}{if} ( trim( adjustl( gthstnml\_list % name ) ) == trim( adjustl( name ) ) ) \textcolor{keywordflow}{then}
294       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}( \hyperlink{interfacedc__hash_1_1next}{next} ) ) \textcolor{keywordflow}{then}
295         \hyperlink{interfacedc__hash_1_1next}{next} => gthstnml\_list % next
296 \textcolor{keywordflow}{      end if}
297       \textcolor{keywordflow}{goto} 999
298 \textcolor{keywordflow}{    end if}
299 
300     \textcolor{keywordflow}{do} \textcolor{keywordflow}{while} ( \textcolor{keyword}{associated}( gthstnml\_list ) )
301       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}( previous ) ) previous => gthstnml\_list
302       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__internal_1_1listnext}{listnext}( gthstnml\_list = gthstnml\_list ) \textcolor{comment}{! (inout)}
303       \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( gthstnml\_list ) ) \textcolor{keywordflow}{goto} 999
304       \textcolor{keywordflow}{if} ( trim( adjustl( gthstnml\_list % name ) ) == trim( adjustl( name ) ) ) \textcolor{keywordflow}{then}
305         \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}( \hyperlink{interfacedc__hash_1_1next}{next} ) ) \textcolor{keywordflow}{then}
306           \hyperlink{interfacedc__hash_1_1next}{next} => gthstnml\_list % next
307 \textcolor{keywordflow}{        end if}
308         \textcolor{keywordflow}{goto} 999
309 \textcolor{keywordflow}{      end if}
310 \textcolor{keywordflow}{    end do}
311 
312     \textcolor{comment}{!-----------------------------------------------------------------}
313     \textcolor{comment}{!  終了処理, 例外処理}
314     \textcolor{comment}{!  Termination and Exception handling}
315     \textcolor{comment}{!-----------------------------------------------------------------}
316 999 \textcolor{keywordflow}{continue}
317     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
318     \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]{namespacegtool__history__nmlinfo__internal_a5b7b30cd52776905deb56996c5edd144_cgraph}
\end{center}
\end{figure}


\subsection{Variable Documentation}
\mbox{\Hypertarget{namespacegtool__history__nmlinfo__internal_a70f5d905a8fb6970a88cf6bf122ab858}\label{namespacegtool__history__nmlinfo__internal_a70f5d905a8fb6970a88cf6bf122ab858}} 
\index{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}!name\+\_\+delimiter@{name\+\_\+delimiter}}
\index{name\+\_\+delimiter@{name\+\_\+delimiter}!gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}}
\subsubsection{\texorpdfstring{name\+\_\+delimiter}{name\_delimiter}}
{\footnotesize\ttfamily character(1), parameter, public gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal\+::name\+\_\+delimiter = \textquotesingle{},\textquotesingle{}}



Definition at line 23 of file gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal.\+f90.



Referenced by hstnmlinfoadd(), hstnmlinfoallnamevalid(), hstnmlinfoallvarinicheck(), hstnmlinfodelete(), hstnmlinfonames(), and hstnmlinfosetvalidname().


\begin{DoxyCode}
23   \textcolor{keywordtype}{character(1)}, \textcolor{keywordtype}{parameter}, \textcolor{keywordtype}{public}:: \hyperlink{namespacegtool__history__nmlinfo__internal_a70f5d905a8fb6970a88cf6bf122ab858}{name\_delimiter} = \textcolor{stringliteral}{','}
\end{DoxyCode}
\mbox{\Hypertarget{namespacegtool__history__nmlinfo__internal_a2a168d32be55e175e41d8f9fb277bee1}\label{namespacegtool__history__nmlinfo__internal_a2a168d32be55e175e41d8f9fb277bee1}} 
\index{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}!opened\+\_\+files@{opened\+\_\+files}}
\index{opened\+\_\+files@{opened\+\_\+files}!gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}}
\subsubsection{\texorpdfstring{opened\+\_\+files}{opened\_files}}
{\footnotesize\ttfamily type(hash), save, public gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal\+::opened\+\_\+files}



Definition at line 27 of file gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal.\+f90.



Referenced by hstnmlinfoenddefine().


\begin{DoxyCode}
27   \textcolor{keywordtype}{type}(\hyperlink{structdc__hash_1_1hash}{hash}), \textcolor{keywordtype}{save}, \textcolor{keywordtype}{public}:: opened\_files
\end{DoxyCode}
\mbox{\Hypertarget{namespacegtool__history__nmlinfo__internal_ae6f051d280e1c5dcfc3059727a3a16f3}\label{namespacegtool__history__nmlinfo__internal_ae6f051d280e1c5dcfc3059727a3a16f3}} 
\index{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}!version@{version}}
\index{version@{version}!gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal@{gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal}}
\subsubsection{\texorpdfstring{version}{version}}
{\footnotesize\ttfamily character($\ast$), parameter, public gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal\+::version = \textquotesingle{}\$Name\+: \$\textquotesingle{} // \textquotesingle{}\$Id\+: gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal.\+f90,v 1.\+1 2009-\/05-\/11 15\+:15\+:15 morikawa Exp \$\textquotesingle{}}



Definition at line 34 of file gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal.\+f90.



Referenced by hstnmlinfocreate().


\begin{DoxyCode}
34   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}, \textcolor{keywordtype}{public}:: version = &
35     & \textcolor{stringliteral}{'$Name:  $'} // &
36     & \textcolor{stringliteral}{'$Id: gtool\_history\_nmlinfo\_internal.f90,v 1.1 2009-05-11 15:15:15 morikawa Exp $'}
\end{DoxyCode}
