\hypertarget{hstnmlinfoenddefine_8f90}{}\section{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfoenddefine.f90 File Reference}
\label{hstnmlinfoenddefine_8f90}\index{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfoenddefine.\+f90@{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfoenddefine.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{hstnmlinfoenddefine_8f90_aa98e0c692d4b3700545f85c340c29fb3}{hstnmlinfoenddefine} (gthstnml, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{hstnmlinfoenddefine_8f90_aa98e0c692d4b3700545f85c340c29fb3}\label{hstnmlinfoenddefine_8f90_aa98e0c692d4b3700545f85c340c29fb3}} 
\index{hstnmlinfoenddefine.\+f90@{hstnmlinfoenddefine.\+f90}!hstnmlinfoenddefine@{hstnmlinfoenddefine}}
\index{hstnmlinfoenddefine@{hstnmlinfoenddefine}!hstnmlinfoenddefine.\+f90@{hstnmlinfoenddefine.\+f90}}
\subsubsection{\texorpdfstring{hstnmlinfoenddefine()}{hstnmlinfoenddefine()}}
{\footnotesize\ttfamily subroutine hstnmlinfoenddefine (\begin{DoxyParamCaption}\item[{type(gthst\+\_\+nmlinfo), intent(inout)}]{gthstnml,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 11 of file hstnmlinfoenddefine.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::hst\+\_\+ebadnewfileint, dc\+\_\+error\+::hst\+\_\+ebadorigin, dc\+\_\+error\+::hst\+\_\+ebadslice, dc\+\_\+error\+::hst\+\_\+ebadterminus, dc\+\_\+error\+::hst\+\_\+eintfile, dc\+\_\+error\+::hst\+\_\+enotindefine, dc\+\_\+string\+::joinchar(), gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal\+::opened\+\_\+files, dc\+\_\+types\+::stdout, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
11     \textcolor{comment}{!}
12     \textcolor{comment}{! 定義モードから出力モードに移行し, }
13     \textcolor{comment}{! *gthstnml* に設定した情報を確定します. }
14     \textcolor{comment}{! HstNmlInfoAssocGTHist サブルーチンを呼び出す前に, }
15     \textcolor{comment}{! 必ずこのサブルーチンを呼び出してください. }
16     \textcolor{comment}{! このサブルーチンを呼んだ後に }
17     \textcolor{comment}{! HstNmlInfoAdd, HstNmlInfoDelete, HstNmlInfoResetDefault }
18     \textcolor{comment}{! を呼ぶとプログラムはエラーを発生させます. }
19     \textcolor{comment}{!}
20     \textcolor{comment}{! なお, 与えられた *gthstnml* が HstNmlInfoCreate によって初期設定}
21     \textcolor{comment}{! されていない場合にも, プログラムはエラーを発生させます. }
22     \textcolor{comment}{!}
23     \textcolor{comment}{! Transit from define mode to output mode, }
24     \textcolor{comment}{! and determine information configured in *gthstnml*. }
25     \textcolor{comment}{! Use this subroutine before "HstNmlInfoAssocGTHist" is used. }
26     \textcolor{comment}{! If "HstNmlInfoAdd", "HstNmlInfoDelete", "HstNmlInfoResetDefault" }
27     \textcolor{comment}{! are used after }
28     \textcolor{comment}{! this subroutine is used, error is occurred. }
29     \textcolor{comment}{!}
30     \textcolor{comment}{! If *gthstnml* is not initialized by "HstNmlInfoCreate" yet, }
31     \textcolor{comment}{! error is occurred.}
32     \textcolor{comment}{!}
33     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__types}{gtool\_history\_nmlinfo\_types}\textcolor{keywordtype}{, only}: 
      \hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo}{gthst\_nmlinfo}, \hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}
34     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__internal}{gtool\_history\_nmlinfo\_internal}\textcolor{keywordtype}{, only}: 
      \hyperlink{interfacegtool__history__nmlinfo__internal_1_1listnext}{listnext}, \hyperlink{interfacegtool__history__nmlinfo__internal_1_1listsearch}{listsearch}
35     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__internal}{gtool\_history\_nmlinfo\_internal}\textcolor{keywordtype}{, only}: 
      \hyperlink{namespacegtool__history__nmlinfo__internal_a2a168d32be55e175e41d8f9fb277bee1}{opened\_files}
36     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
37     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1putline}{putline}, \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1split}{split}, 
      \hyperlink{interfacedc__string_1_1strinclude}{strinclude}, \hyperlink{interfacedc__string_1_1stoa}{stoa}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
38     \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}, \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
39     \textcolor{keywordtype}{use }\hyperlink{namespacedc__hash}{dc\_hash}\textcolor{keywordtype}{, only}: \hyperlink{structdc__hash_1_1hash}{hash}, \hyperlink{interfacedc__hash_1_1dchashput}{dchashput}, \hyperlink{interfacedc__hash_1_1dchashget}{dchashget}, 
      \hyperlink{interfacedc__hash_1_1dchashrewind}{dchashrewind}, \hyperlink{interfacedc__hash_1_1dchashnext}{dchashnext}, \hyperlink{interfacedc__hash_1_1dchashnumber}{dchashnumber}
40     \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}, &
41       & \hyperlink{namespacedc__error_ad13dd9239cf193ea3a029747ece73c50}{hst\_enotindefine}, \hyperlink{namespacedc__error_a40cffbacf3d9f703f4d996faf9ecd033}{hst\_eintfile}, 
      \hyperlink{namespacedc__error_a639b3964fda7a6ccead20544964d2c98}{hst\_ebadorigin}, \hyperlink{namespacedc__error_a999c4be1c6ac27aabf694aeb870e3360}{hst\_ebadterminus}, &
42       & \hyperlink{namespacedc__error_a25c91a40541a0445ed9ddb56dbbee386}{hst\_ebadslice}, \hyperlink{namespacedc__error_afc8f73c94c58348e2837ec35a8ca29ea}{hst\_ebadnewfileint}
43     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
44     \textcolor{keywordtype}{implicit none}
45     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo}{gthst\_nmlinfo}), \textcolor{keywordtype}{intent(inout)}:: gthstnml
46     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
47                               \textcolor{comment}{! 例外処理用フラグ. }
48                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
49                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
50                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
51                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
52                               \textcolor{comment}{! *err* に .true. が代入されます. }
53                               \textcolor{comment}{!}
54                               \textcolor{comment}{! Exception handling flag. }
55                               \textcolor{comment}{! By default, when error occur in }
56                               \textcolor{comment}{! this procedure, the program aborts. }
57                               \textcolor{comment}{! If this *err* argument is given, }
58                               \textcolor{comment}{! .true. is substituted to *err* and }
59                               \textcolor{comment}{! the program does not abort. }
60 
61     \textcolor{comment}{!-----------------------------------}
62     \textcolor{comment}{!  複数の変数を一つのファイルへ出力するためのチェック用変数}
63     \textcolor{comment}{!  Variables for checking for output multiple variables to one file}
64     \textcolor{keywordtype}{character(STRING)}:: opname, opfile
65     \textcolor{keywordtype}{logical}:: end
66 
67     \textcolor{comment}{!-----------------------------------}
68     \textcolor{comment}{!  作業変数}
69     \textcolor{comment}{!  Work variables}
70     \textcolor{keywordtype}{character(STRING)}:: fullfilename
71     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}:: hptr =>null()
72     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}:: hptr\_prev =>null()
73     \textcolor{keywordtype}{integer}:: stat
74     \textcolor{keywordtype}{character(STRING)}:: cause\_c
75     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'HstNmlInfoEndDefine'}
76   \textcolor{keywordflow}{continue}
77     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}( subname )
78     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
79     cause\_c = \textcolor{stringliteral}{''}
80 
81     \textcolor{comment}{!-----------------------------------------------------------------}
82     \textcolor{comment}{!  初期設定のチェック}
83     \textcolor{comment}{!  Check initialization}
84     \textcolor{comment}{!-----------------------------------------------------------------}
85     \textcolor{keywordflow}{if} ( .not. gthstnml % initialized ) \textcolor{keywordflow}{then}
86       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
87       cause\_c = \textcolor{stringliteral}{'GTHST\_NMLINFO'}
88       \textcolor{keywordflow}{goto} 999
89 \textcolor{keywordflow}{    end if}
90 
91     \textcolor{keywordflow}{if} ( .not. gthstnml % define\_mode ) \textcolor{keywordflow}{then}
92       stat = \hyperlink{namespacedc__error_ad13dd9239cf193ea3a029747ece73c50}{hst\_enotindefine}
93       cause\_c = \textcolor{stringliteral}{'EndDefine'}
94       \textcolor{keywordflow}{goto} 999
95 \textcolor{keywordflow}{    end if}
96 
97     \textcolor{comment}{!-----------------------------------------------------------------}
98     \textcolor{comment}{!  gtool\_history\_types#GT\_HISTORY 変数の割付}
99     \textcolor{comment}{!  Allocate "gtool\_history\_types#GT\_HISTORY" variables}
100     \textcolor{comment}{!-----------------------------------------------------------------}
101     hptr => gthstnml % gthstnml\_list
102     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( hptr % history ) ) \textcolor{keywordflow}{then}
103       \textcolor{keyword}{allocate}( hptr % history )
104 \textcolor{keywordflow}{    end if}
105     wholeloop : \textcolor{keywordflow}{do} \textcolor{keywordflow}{while} ( \textcolor{keyword}{associated}( hptr % next ) )
106       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__internal_1_1listnext}{listnext}( gthstnml\_list = hptr ) \textcolor{comment}{! (inout)}
107       \textcolor{keywordflow}{if} ( trim(hptr % name) == \textcolor{stringliteral}{''} .or. trim(hptr % file) == \textcolor{stringliteral}{''} ) &
108         & cycle wholeloop
109 
110       fullfilename = trim( hptr % fileprefix ) // hptr % file
111 
112       \textcolor{comment}{!---------------------------------------------------------------}
113       \textcolor{comment}{!  以前に同一ファイル名の gtool\_history\_types#GT\_HISTORY 変数がある場合, そちらに結合}
114       \textcolor{comment}{!  If "gtool\_history\_types#GT\_HISTORY" that has same filename exist already, associate to it}
115       \textcolor{comment}{!---------------------------------------------------------------}
116       \textcolor{keyword}{nullify}( hptr\_prev )
117       \textcolor{keyword}{call }\hyperlink{interfacedc__hash_1_1dchashrewind}{dchashrewind}(\hyperlink{namespacegtool__history__nmlinfo__internal_a2a168d32be55e175e41d8f9fb277bee1}{opened\_files}) \textcolor{comment}{! (inout)}
118       searchloop : \textcolor{keywordflow}{do}
119         \textcolor{keyword}{call }\hyperlink{interfacedc__hash_1_1dchashnext}{dchashnext}( \hyperlink{namespacegtool__history__nmlinfo__internal_a2a168d32be55e175e41d8f9fb277bee1}{opened\_files}, & \textcolor{comment}{! (inout)}
120           & opname, opfile, end )  \textcolor{comment}{! (out)}
121         \textcolor{keywordflow}{if} ( end ) \textcolor{keywordflow}{exit} searchloop
122         \textcolor{keywordflow}{if} ( trim(opfile) /= trim(fullfilename) ) cycle searchloop
123         hptr\_prev => gthstnml % gthstnml\_list
124 
125         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__internal_1_1listsearch}{listsearch}( gthstnml\_list = hptr\_prev, & \textcolor{comment}{! (inout)}
126           &              name = opname )              \textcolor{comment}{! (in)}
127         \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( hptr\_prev ) ) cycle searchloop
128         \textcolor{keywordflow}{if} ( trim(hptr % name) == trim(hptr\_prev % name) ) cycle searchloop
129 
130         \textcolor{comment}{! interval\_value, interval\_unit の同一性をチェック}
131         \textcolor{comment}{! Check consistency of "interval\_value", "interval\_unit"}
132         \textcolor{comment}{!}
133         \textcolor{keywordflow}{if} ( hptr % interval\_value /= hptr\_prev % interval\_value ) \textcolor{keywordflow}{then}
134           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
135             & \textcolor{stringliteral}{'@interval\_value=%r (var=%a) and @interval\_value=%r (var=%a) are applied to a file "%a"'}, &
136             & r = (/hptr % interval\_value, hptr\_prev % interval\_value/), &
137             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % name, hptr\_prev % name, fullfilename) )
138           stat = \hyperlink{namespacedc__error_a40cffbacf3d9f703f4d996faf9ecd033}{hst\_eintfile}
139           cause\_c = fullfilename
140           \textcolor{keywordflow}{goto} 999
141         \textcolor{keywordflow}{elseif} ( hptr % interval\_unit /= hptr\_prev % interval\_unit ) \textcolor{keywordflow}{then}
142           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
143             & \textcolor{stringliteral}{'@interval\_unit=%a (var=%a) and @interval\_unit=%a (var=%a) are applied to a file "%a"'}, &
144             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % interval\_unit, hptr % name, &
145             &           hptr\_prev % interval\_unit, hptr\_prev % name, &
146             &           fullfilename) )
147           stat = \hyperlink{namespacedc__error_a40cffbacf3d9f703f4d996faf9ecd033}{hst\_eintfile}
148           cause\_c = fullfilename
149           \textcolor{keywordflow}{goto} 999
150 \textcolor{keywordflow}{        end if}
151 
152         \textcolor{comment}{! origin\_value, origin\_unit の同一性をチェック}
153         \textcolor{comment}{! Check consistency of "origin\_value", "origin\_unit"}
154         \textcolor{comment}{!}
155         \textcolor{keywordflow}{if} ( hptr % origin\_value /= hptr\_prev % origin\_value ) \textcolor{keywordflow}{then}
156           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
157             & \textcolor{stringliteral}{'@origin\_value=%r (var=%a) and @origin\_value=%r (var=%a) are applied to a file "%a"'}, &
158             & r = (/hptr % origin\_value, hptr\_prev % origin\_value/), &
159             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % name, hptr\_prev % name, fullfilename) )
160           stat = \hyperlink{namespacedc__error_a639b3964fda7a6ccead20544964d2c98}{hst\_ebadorigin}
161           cause\_c = fullfilename
162           \textcolor{keywordflow}{goto} 999
163         \textcolor{keywordflow}{elseif} ( hptr % origin\_unit /= hptr\_prev % origin\_unit ) \textcolor{keywordflow}{then}
164           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
165             & \textcolor{stringliteral}{'@origin\_unit=%a (var=%a) and @origin\_unit=%a (var=%a) are applied to a file "%a"'}, &
166             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % origin\_unit, hptr % name, &
167             &           hptr\_prev % origin\_unit, hptr\_prev % name, &
168             &           fullfilename) )
169           stat = \hyperlink{namespacedc__error_a639b3964fda7a6ccead20544964d2c98}{hst\_ebadorigin}
170           cause\_c = fullfilename
171           \textcolor{keywordflow}{goto} 999
172 \textcolor{keywordflow}{        end if}
173 
174         \textcolor{comment}{! terminus\_value, terminus\_unit の同一性をチェック}
175         \textcolor{comment}{! Check consistency of "terminus\_value", "terminus\_unit"}
176         \textcolor{comment}{!}
177         \textcolor{keywordflow}{if} ( hptr % terminus\_value /= hptr\_prev % terminus\_value ) \textcolor{keywordflow}{then}
178           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
179             & \textcolor{stringliteral}{'@terminus\_value=%r (var=%a) and @terminus\_value=%r (var=%a) are applied to a file "%a"'}, &
180             & r = (/hptr % terminus\_value, hptr\_prev % terminus\_value/), &
181             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % name, hptr\_prev % name, fullfilename) )
182           stat = \hyperlink{namespacedc__error_a999c4be1c6ac27aabf694aeb870e3360}{hst\_ebadterminus}
183           cause\_c = fullfilename
184           \textcolor{keywordflow}{goto} 999
185         \textcolor{keywordflow}{elseif} ( hptr % terminus\_unit /= hptr\_prev % terminus\_unit ) \textcolor{keywordflow}{then}
186           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
187             & \textcolor{stringliteral}{'@terminus\_unit=%a (var=%a) and @terminus\_unit=%a (var=%a) are applied to a file "%a"'}, &
188             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % terminus\_unit, hptr % name, &
189             &           hptr\_prev % terminus\_unit, hptr\_prev % name, &
190             &           fullfilename) )
191           stat = \hyperlink{namespacedc__error_a999c4be1c6ac27aabf694aeb870e3360}{hst\_ebadterminus}
192           cause\_c = fullfilename
193           \textcolor{keywordflow}{goto} 999
194 \textcolor{keywordflow}{        end if}
195 
196         \textcolor{comment}{! newfile\_intvalue が有効な場合はエラーを返す. }
197         \textcolor{comment}{! Error is occurred when "newfile\_intvalue" is valid}
198         \textcolor{comment}{!}
199         \textcolor{keywordflow}{if} (      ( hptr % newfile\_intvalue > 0.0 ) &
200           &  .or. ( hptr\_prev % newfile\_intvalue > 0.0 ) ) \textcolor{keywordflow}{then}
201           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
202             & \textcolor{stringliteral}{'when @newfile\_intvalue=%d (var=%a) > 0 or'} // &
203             & \textcolor{stringliteral}{' @newfile\_intvalue=%d (var=%a) > 0, multiple variables can not be output to one file "%a"'}, 
      &
204             & i = (/hptr % newfile\_intvalue, hptr\_prev % newfile\_intvalue/), &
205             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % name, hptr\_prev % name, fullfilename) )
206           stat = \hyperlink{namespacedc__error_afc8f73c94c58348e2837ec35a8ca29ea}{hst\_ebadnewfileint}
207           cause\_c = fullfilename
208           \textcolor{keywordflow}{goto} 999
209 \textcolor{keywordflow}{        end if}
210 
211         \textcolor{comment}{! newfile\_intvalue, newfile\_intunit の同一性をチェック}
212         \textcolor{comment}{! Check consistency of "newfile\_intvalue", "newfile\_intunit"}
213         \textcolor{comment}{!}
214         \textcolor{keywordflow}{if} ( hptr % newfile\_intvalue /= hptr\_prev % newfile\_intvalue ) \textcolor{keywordflow}{then}
215           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
216             & \textcolor{stringliteral}{'@newfile\_intvalue=%d (var=%a) and @newfile\_intvalue=%d (var=%a) are applied to a file "%a"'},
       &
217             & i = (/hptr % newfile\_intvalue, hptr\_prev % newfile\_intvalue/), &
218             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % name, hptr\_prev % name, fullfilename) )
219           stat = \hyperlink{namespacedc__error_afc8f73c94c58348e2837ec35a8ca29ea}{hst\_ebadnewfileint}
220           cause\_c = fullfilename
221           \textcolor{keywordflow}{goto} 999
222         \textcolor{keywordflow}{elseif} ( hptr % newfile\_intunit /= hptr\_prev % newfile\_intunit ) \textcolor{keywordflow}{then}
223           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
224             & \textcolor{stringliteral}{'@newfile\_intunit=%a (var=%a) and @newfile\_intunit=%a (var=%a) are applied to a file "%a"'}, &
225             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % newfile\_intunit, hptr % name, &
226             &           hptr\_prev % newfile\_intunit, hptr\_prev % name, &
227             &           fullfilename) )
228           stat = \hyperlink{namespacedc__error_afc8f73c94c58348e2837ec35a8ca29ea}{hst\_ebadnewfileint}
229           cause\_c = fullfilename
230           \textcolor{keywordflow}{goto} 999
231 \textcolor{keywordflow}{        end if}
232 
233 
234         \textcolor{comment}{! slice\_start, slice\_end, slice\_stride, space\_average の同一性チェック}
235         \textcolor{comment}{! Check consistency of "slice\_start", "slice\_end", "slice\_stride", "space\_average"}
236         \textcolor{comment}{!}
237         \textcolor{keywordflow}{if} ( any( hptr % slice\_start /= hptr\_prev % slice\_start ) ) \textcolor{keywordflow}{then}
238           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
239             & \textcolor{stringliteral}{'@slice\_start=%*d (var=%a) and @slice\_start=%*d (var=%a) are applied to a file "%a"'}, &
240             & i = (/hptr % slice\_start(1:10), hptr\_prev % slice\_start(1:10)/), &
241             & n = (/10, 10/), &
242             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % name, hptr\_prev % name, fullfilename) )
243           stat = \hyperlink{namespacedc__error_a25c91a40541a0445ed9ddb56dbbee386}{hst\_ebadslice}
244           cause\_c = fullfilename
245           \textcolor{keywordflow}{goto} 999
246         \textcolor{keywordflow}{elseif} ( any( hptr % slice\_end /= hptr\_prev % slice\_end ) ) \textcolor{keywordflow}{then}
247           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
248             & \textcolor{stringliteral}{'@slice\_end=%*d (var=%a) and @slice\_end=%*d (var=%a) are applied to a file "%a"'}, &
249             & i = (/hptr % slice\_end(1:10), hptr\_prev % slice\_end(1:10)/), &
250             & n = (/10, 10/), &
251             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % name, hptr\_prev % name, fullfilename) )
252           stat = \hyperlink{namespacedc__error_a25c91a40541a0445ed9ddb56dbbee386}{hst\_ebadslice}
253           cause\_c = fullfilename
254           \textcolor{keywordflow}{goto} 999
255         \textcolor{keywordflow}{elseif} ( any( hptr % slice\_stride /= hptr\_prev % slice\_stride ) ) \textcolor{keywordflow}{then}
256           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
257             & \textcolor{stringliteral}{'@slice\_stride=%*d (var=%a) and @slice\_stride=%*d (var=%a) are applied to a file "%a"'}, &
258             & i = (/hptr % slice\_stride(1:10), hptr\_prev % slice\_stride(1:10)/), &
259             & n = (/10, 10/), &
260             & ca = \hyperlink{interfacedc__string_1_1stoa}{stoa}(hptr % name, hptr\_prev % name, fullfilename) )
261           stat = \hyperlink{namespacedc__error_a25c91a40541a0445ed9ddb56dbbee386}{hst\_ebadslice}
262           cause\_c = fullfilename
263           \textcolor{keywordflow}{goto} 999
264 \textcolor{keywordflow}{        end if}
265 
266         \textcolor{comment}{!}
267         \textcolor{comment}{! GT\_HISTORY 変数の結合}
268         \textcolor{comment}{! Associate "GT\_HISTORY" variable}
269         \textcolor{comment}{!}
270         hptr % history => hptr\_prev % history
271         \textcolor{keywordflow}{exit} searchloop
272 \textcolor{keywordflow}{      end do} searchloop
273 
274       \textcolor{comment}{!---------------------------------------------------------------}
275       \textcolor{comment}{!  新規に割付}
276       \textcolor{comment}{!  Allocate newly}
277       \textcolor{comment}{!---------------------------------------------------------------}
278       \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( hptr % history ) ) \textcolor{keywordflow}{then}
279         \textcolor{keyword}{allocate}( hptr % history )
280         hptr % history % initialized = .false.
281 \textcolor{keywordflow}{      end if}
282 
283       \textcolor{comment}{!---------------------------------------------------------------}
284       \textcolor{comment}{!  割り付けられた名前とファイル名を登録}
285       \textcolor{comment}{!  Regist allocated name and filename}
286       \textcolor{comment}{!---------------------------------------------------------------}
287       \textcolor{keyword}{call }\hyperlink{interfacedc__hash_1_1dchashput}{dchashput}( \hyperlink{namespacegtool__history__nmlinfo__internal_a2a168d32be55e175e41d8f9fb277bee1}{opened\_files}, &       \textcolor{comment}{! (inout)}
288         & hptr % name, fullfilename ) \textcolor{comment}{! (in)}
289 
290 \textcolor{keywordflow}{    end do} wholeloop
291 
292     \textcolor{keyword}{nullify}( hptr )
293     \textcolor{keyword}{nullify}( hptr\_prev )
294 
295     \textcolor{comment}{!-----------------------------------------------------------------}
296     \textcolor{comment}{!  終了処理, 例外処理}
297     \textcolor{comment}{!  Termination and Exception handling}
298     \textcolor{comment}{!-----------------------------------------------------------------}
299     gthstnml % define\_mode = .false.
300 999 \textcolor{keywordflow}{continue}
301     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
302     \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]{hstnmlinfoenddefine_8f90_aa98e0c692d4b3700545f85c340c29fb3_cgraph}
\end{center}
\end{figure}
