\hypertarget{hstnmlinfocreate_8f90}{}\section{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfocreate.f90 File Reference}
\label{hstnmlinfocreate_8f90}\index{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfocreate.\+f90@{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfocreate.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{hstnmlinfocreate_8f90_a6f364598d359c10d2f8c9e290a79b98d}{hstnmlinfocreate} (gthstnml, interval\+\_\+value, interval\+\_\+unit, precision, time\+\_\+average, average, fileprefix, origin\+\_\+value, origin\+\_\+unit, terminus\+\_\+value, terminus\+\_\+unit, slice\+\_\+start, slice\+\_\+end, slice\+\_\+stride, space\+\_\+average, newfile\+\_\+intvalue, newfile\+\_\+intunit, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{hstnmlinfocreate_8f90_a6f364598d359c10d2f8c9e290a79b98d}\label{hstnmlinfocreate_8f90_a6f364598d359c10d2f8c9e290a79b98d}} 
\index{hstnmlinfocreate.\+f90@{hstnmlinfocreate.\+f90}!hstnmlinfocreate@{hstnmlinfocreate}}
\index{hstnmlinfocreate@{hstnmlinfocreate}!hstnmlinfocreate.\+f90@{hstnmlinfocreate.\+f90}}
\subsubsection{\texorpdfstring{hstnmlinfocreate()}{hstnmlinfocreate()}}
{\footnotesize\ttfamily subroutine hstnmlinfocreate (\begin{DoxyParamCaption}\item[{type(gthst\+\_\+nmlinfo), intent(inout)}]{gthstnml,  }\item[{real(dp), intent(in), optional}]{interval\+\_\+value,  }\item[{character($\ast$), intent(in), optional}]{interval\+\_\+unit,  }\item[{character($\ast$), intent(in), optional}]{precision,  }\item[{logical, intent(in), optional}]{time\+\_\+average,  }\item[{logical, intent(in), optional}]{average,  }\item[{character($\ast$), intent(in), optional}]{fileprefix,  }\item[{real(dp), intent(in), optional}]{origin\+\_\+value,  }\item[{character($\ast$), intent(in), optional}]{origin\+\_\+unit,  }\item[{real(dp), intent(in), optional}]{terminus\+\_\+value,  }\item[{character($\ast$), intent(in), optional}]{terminus\+\_\+unit,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+start,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+end,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+stride,  }\item[{logical, dimension(\+:), intent(in), optional}]{space\+\_\+average,  }\item[{integer, intent(in), optional}]{newfile\+\_\+intvalue,  }\item[{character($\ast$), intent(in), optional}]{newfile\+\_\+intunit,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 22 of file hstnmlinfocreate.\+f90.



References dc\+\_\+error\+::dc\+\_\+ealreadyinit, dc\+\_\+error\+::dc\+\_\+earglack, dc\+\_\+error\+::dc\+\_\+enegative, dc\+\_\+error\+::dc\+\_\+enofileread, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+types\+::stdout, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, dc\+\_\+types\+::token, dc\+\_\+error\+::usr\+\_\+errno, and gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal\+::version.


\begin{DoxyCode}
22     \textcolor{comment}{!}
23     \textcolor{comment}{! GTHST\_NMLINFO 型の変数の初期設定を行います.}
24     \textcolor{comment}{! 他のサブルーチンを使用する前に必ずこのサブルーチンによって}
25     \textcolor{comment}{! GTHST\_NMLINFO 型の変数を初期設定してください.}
26     \textcolor{comment}{!}
27     \textcolor{comment}{! *interval\_value*,}
28     \textcolor{comment}{! *interval\_unit*,}
29     \textcolor{comment}{! *precision*,}
30     \textcolor{comment}{! *time\_average* (旧 *average*) などの変数}
31     \textcolor{comment}{! はデフォルト値として設定されます.}
32     \textcolor{comment}{! *fileprefix* は各変数の出力ファイル名の接頭詞として}
33     \textcolor{comment}{! 使用されます.}
34     \textcolor{comment}{!}
35     \textcolor{comment}{! なお, 与えられた *gthstnml* が既に初期設定されている場合,}
36     \textcolor{comment}{! プログラムはエラーを発生させます.}
37     \textcolor{comment}{!}
38     \textcolor{comment}{! Constructor of "GTHST\_NMLINFO".}
39     \textcolor{comment}{! Initialize *gthstnml* by this subroutine,}
40     \textcolor{comment}{! before other procedures are used,}
41     \textcolor{comment}{!}
42     \textcolor{comment}{! *interval\_value*,}
43     \textcolor{comment}{! *interval\_unit*,}
44     \textcolor{comment}{! *precision*,}
45     \textcolor{comment}{! *time\_average* (now-defunct *average*), etc.}
46     \textcolor{comment}{! are set as default values.}
47     \textcolor{comment}{! *fileprefix* is used as prefixes of output filenames of}
48     \textcolor{comment}{! each variable.}
49     \textcolor{comment}{!}
50     \textcolor{comment}{! Note that if *gthstnml* is already initialized}
51     \textcolor{comment}{! by this procedure, error is occurred.}
52     \textcolor{comment}{!}
53     \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}
54     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__internal}{gtool\_history\_nmlinfo\_internal}\textcolor{keywordtype}{, only}: 
      \hyperlink{namespacegtool__history__nmlinfo__internal_ae6f051d280e1c5dcfc3059727a3a16f3}{version}
55     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: gt\_history
56     \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub
57     \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: putline, printf, split, strinclude, stoa, joinchar
58     \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}
59     \textcolor{keywordtype}{use }dc\_present\textcolor{keywordtype}{, only}: present\_and\_not\_empty, present\_and\_true, present\_select
60     \textcolor{keywordtype}{use }dc\_message\textcolor{keywordtype}{, only}: messagenotify
61     \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_a3302263a8c976235052a305d54572070}{dc\_ealreadyinit}, &
62       & \hyperlink{namespacedc__error_a4e4bfd987a6af527e5b7514dd7535f85}{dc\_earglack}, \hyperlink{namespacedc__error_a64f090fc161836514c614059f74c23e6}{dc\_enegative}, \hyperlink{namespacedc__error_a8cf0aeb5a137428023c346d553ddec34}{dc\_enofileread}, 
      \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}
63     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_difftime
64     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}
65     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_max\_dims
66     \textcolor{keywordtype}{implicit none}
67     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo}{gthst\_nmlinfo}), \textcolor{keywordtype}{intent(inout)}:: gthstnml
68     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: interval\_value
69                               \textcolor{comment}{! ヒストリデータの出力間隔の数値.}
70                               \textcolor{comment}{! 負の値を与えると, 出力を抑止します.}
71                               \textcolor{comment}{!}
72                               \textcolor{comment}{! Numerical value for interval of history data output.}
73                               \textcolor{comment}{! Negative values suppresses output.}
74     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: interval\_unit
75                               \textcolor{comment}{! ヒストリデータの出力間隔の単位.}
76                               \textcolor{comment}{! Unit for interval of history data output}
77     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: precision
78                               \textcolor{comment}{! ヒストリデータの精度.}
79                               \textcolor{comment}{! Precision of history data}
80     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average
81                               \textcolor{comment}{! 出力データの時間平均化フラグ.}
82                               \textcolor{comment}{! Flag for time average of output data.}
83     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: average
84                               \textcolor{comment}{! time\_average の旧版.}
85                               \textcolor{comment}{! Old version of "time\_average"}
86     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: fileprefix
87                               \textcolor{comment}{! ヒストリデータのファイル名の接頭詞.}
88                               \textcolor{comment}{! Prefixes of history data filenames}
89     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: origin\_value
90                               \textcolor{comment}{! 出力開始時刻.}
91                               \textcolor{comment}{! Start time of output.}
92     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: origin\_unit
93                               \textcolor{comment}{! 出力開始時刻の単位.}
94                               \textcolor{comment}{! Unit of start time of output.}
95     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: terminus\_value
96                               \textcolor{comment}{! 出力終了時刻.}
97                               \textcolor{comment}{! End time of output.}
98     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: terminus\_unit
99                               \textcolor{comment}{! 出力終了時刻の単位.}
100                               \textcolor{comment}{! Unit of end time of output.}
101     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_start(:)
102                               \textcolor{comment}{! 空間方向の開始点.}
103                               \textcolor{comment}{! Start points of spaces.}
104     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_end(:)
105                               \textcolor{comment}{! 空間方向の終了点.}
106                               \textcolor{comment}{! End points of spaces.}
107     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_stride(:)
108                               \textcolor{comment}{! 空間方向の刻み幅.}
109                               \textcolor{comment}{! Strides of spaces.}
110     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: space\_average(:)
111                               \textcolor{comment}{! 平均化のフラグ.}
112                               \textcolor{comment}{! Flag of average.}
113     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: newfile\_intvalue
114                               \textcolor{comment}{! ファイル分割時間間隔.}
115                               \textcolor{comment}{! Interval of time of separation of a file.}
116     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: newfile\_intunit
117                               \textcolor{comment}{! ファイル分割時間間隔の単位.}
118                               \textcolor{comment}{! Unit of interval of time of separation of a file.}
119     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
120                               \textcolor{comment}{! 例外処理用フラグ.}
121                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
122                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します.}
123                               \textcolor{comment}{! 引数 *err* が与えられる場合,}
124                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
125                               \textcolor{comment}{! *err* に .true. が代入されます.}
126                               \textcolor{comment}{!}
127                               \textcolor{comment}{! Exception handling flag.}
128                               \textcolor{comment}{! By default, when error occur in}
129                               \textcolor{comment}{! this procedure, the program aborts.}
130                               \textcolor{comment}{! If this *err* argument is given,}
131                               \textcolor{comment}{! .true. is substituted to *err* and}
132                               \textcolor{comment}{! the program does not abort.}
133 
134     \textcolor{comment}{!-----------------------------------}
135     \textcolor{comment}{!  作業変数}
136     \textcolor{comment}{!  Work variables}
137     \textcolor{keywordtype}{type}(dc\_difftime):: interval\_time
138     \textcolor{keywordtype}{integer}:: stat, ary\_size
139     \textcolor{keywordtype}{character(STRING)}:: cause\_c
140     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'HstNmlInfoCreate'}
141   \textcolor{keywordflow}{continue}
142     \textcolor{keyword}{call }beginsub( subname, &
143       & fmt = \textcolor{stringliteral}{'@interval\_value=%r @interval\_unit=%c @precision=%c @time\_average=%y @fileprefix=%c'}, &
144       & d  = (/ present\_select(.true., -1.0\_dp, interval\_value) /), &
145       & c1 = trim( present\_select(.true., \textcolor{stringliteral}{'<no>'}, interval\_unit) ), &
146       & c2 = trim( present\_select(.true., \textcolor{stringliteral}{'<no>'}, precision) ), &
147       & l  = (/ present\_and\_true(time\_average) /), &
148       & c3 = trim( present\_select(.true., \textcolor{stringliteral}{'<no>'}, fileprefix) ), &
149       & \hyperlink{namespacegtool__history__nmlinfo__internal_ae6f051d280e1c5dcfc3059727a3a16f3}{version} = \hyperlink{namespacegtool__history__nmlinfo__internal_ae6f051d280e1c5dcfc3059727a3a16f3}{version} )
150     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
151     cause\_c = \textcolor{stringliteral}{''}
152 
153     \textcolor{comment}{!-----------------------------------------------------------------}
154     \textcolor{comment}{!  初期設定のチェック}
155     \textcolor{comment}{!  Check initialization}
156     \textcolor{comment}{!-----------------------------------------------------------------}
157     \textcolor{keywordflow}{if} ( gthstnml % initialized ) \textcolor{keywordflow}{then}
158       stat = \hyperlink{namespacedc__error_a3302263a8c976235052a305d54572070}{dc\_ealreadyinit}
159       cause\_c = \textcolor{stringliteral}{'GTHST\_NMLINFO'}
160       \textcolor{keywordflow}{goto} 999
161 \textcolor{keywordflow}{    end if}
162 
163     \textcolor{comment}{!-----------------------------------------------------------------}
164     \textcolor{comment}{!  割付}
165     \textcolor{comment}{!  Allocate}
166     \textcolor{comment}{!-----------------------------------------------------------------}
167     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list )
168     \textcolor{keyword}{nullify}( gthstnml % gthstnml\_list % next )
169 
170     \textcolor{comment}{!-----------------------------------------------------------------}
171     \textcolor{comment}{!  デフォルト値の設定}
172     \textcolor{comment}{!  Configure default values}
173     \textcolor{comment}{!-----------------------------------------------------------------}
174     gthstnml % gthstnml\_list % name = \textcolor{stringliteral}{''}
175     gthstnml % gthstnml\_list % file = \textcolor{stringliteral}{''}
176 
177     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % interval\_value )
178     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % interval\_unit  )
179     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % precision      )
180     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % time\_average   )
181     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % fileprefix     )
182 
183     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % origin\_value                  )
184     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % origin\_unit                   )
185     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % terminus\_value                )
186     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % terminus\_unit                 )
187     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % slice\_start   (1:nf90\_max\_dims) )
188     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % slice\_end     (1:nf90\_max\_dims) )
189     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % slice\_stride  (1:nf90\_max\_dims) )
190     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % space\_average (1:nf90\_max\_dims) )
191     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % newfile\_intvalue              )
192     \textcolor{keyword}{allocate}( gthstnml % gthstnml\_list % newfile\_intunit               )
193 
194 
195     gthstnml % gthstnml\_list % interval\_value = -1.0
196     gthstnml % gthstnml\_list % interval\_unit  = \textcolor{stringliteral}{'sec'}
197     gthstnml % gthstnml\_list % precision      = \textcolor{stringliteral}{'float'}
198     gthstnml % gthstnml\_list % time\_average   = .false.
199     gthstnml % gthstnml\_list % fileprefix     = \textcolor{stringliteral}{''}
200 
201     gthstnml % gthstnml\_list % origin\_value     = -1.0
202     gthstnml % gthstnml\_list % origin\_unit      = \textcolor{stringliteral}{'sec'}
203     gthstnml % gthstnml\_list % terminus\_value   = -1.0
204     gthstnml % gthstnml\_list % terminus\_unit    = \textcolor{stringliteral}{'sec'}
205     gthstnml % gthstnml\_list % slice\_start      =  1
206     gthstnml % gthstnml\_list % slice\_end        = -1
207     gthstnml % gthstnml\_list % slice\_stride     =  1
208     gthstnml % gthstnml\_list % space\_average    = .false.
209     gthstnml % gthstnml\_list % newfile\_intvalue = -1
210     gthstnml % gthstnml\_list % newfile\_intunit  = \textcolor{stringliteral}{'sec'}
211 
212     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(interval\_value) ) gthstnml % gthstnml\_list % interval\_value = interval\_value
213     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(interval\_unit)  ) gthstnml % gthstnml\_list % interval\_unit  = interval\_unit
214     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(precision)      ) gthstnml % gthstnml\_list % precision      = precision
215 
216     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(average)        ) gthstnml % gthstnml\_list % time\_average        = average
217     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(time\_average)   ) gthstnml % gthstnml\_list % time\_average        = time\_average
218     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(fileprefix)     ) gthstnml % gthstnml\_list % fileprefix     = fileprefix
219 
220     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(origin\_value    ) ) gthstnml % gthstnml\_list % origin\_value     = origin\_value
221     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(origin\_unit     ) ) gthstnml % gthstnml\_list % origin\_unit      = origin\_unit
222     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(terminus\_value  ) ) gthstnml % gthstnml\_list % terminus\_value   = terminus\_value
223     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(terminus\_unit   ) ) gthstnml % gthstnml\_list % terminus\_unit    = terminus\_unit
224     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(slice\_start     ) ) \textcolor{keywordflow}{then}
225       ary\_size = \textcolor{keyword}{size}(slice\_start)
226       gthstnml % gthstnml\_list % slice\_start(1:ary\_size)  = slice\_start
227 \textcolor{keywordflow}{    end if}
228     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(slice\_end      ) ) \textcolor{keywordflow}{then}
229       ary\_size = \textcolor{keyword}{size}(slice\_end)
230       gthstnml % gthstnml\_list % slice\_end(1:ary\_size)    = slice\_end
231 \textcolor{keywordflow}{    end if}
232     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(slice\_stride   ) ) \textcolor{keywordflow}{then}
233       ary\_size = \textcolor{keyword}{size}(slice\_stride)
234       gthstnml % gthstnml\_list % slice\_stride(1:ary\_size) = slice\_stride
235 \textcolor{keywordflow}{    end if}
236     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(space\_average   ) ) \textcolor{keywordflow}{then}
237       ary\_size = \textcolor{keyword}{size}(space\_average)
238       gthstnml % gthstnml\_list % space\_average(1:ary\_size) = space\_average
239 \textcolor{keywordflow}{    end if}
240     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(newfile\_intvalue) ) gthstnml % gthstnml\_list % newfile\_intvalue = newfile\_intvalue
241     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(newfile\_intunit ) ) gthstnml % gthstnml\_list % newfile\_intunit  = newfile\_intunit
242 
243     \textcolor{comment}{!-----------------------------------------------------------------}
244     \textcolor{comment}{!  時間の単位のチェック}
245     \textcolor{comment}{!  Check unit of time}
246     \textcolor{comment}{!-----------------------------------------------------------------}
247     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}( &
248       & diff = interval\_time, &                                    \textcolor{comment}{! (out)}
249       & \textcolor{keywordtype}{value} = &
250       &   \textcolor{keywordtype}{real( gthstnml % gthstnml\_list % interval\_value, DP )}, & \textcolor{comment}{! (in)}
251       & unit = gthstnml % gthstnml\_list % interval\_unit, &         \textcolor{comment}{! (in)}
252       & err = err )                                                \textcolor{comment}{! (out)}
253     if ( present\_and\_true( err ) ) then
254       stat = \hyperlink{namespacedc__error_a06cf52d1f5684d6d92f7e92c2c1fd43a}{usr\_errno}
255       \textcolor{keywordflow}{goto} 999
256 \textcolor{keywordflow}{    end if}
257 
258     \textcolor{comment}{!-----------------------------------------------------------------}
259     \textcolor{comment}{!  終了処理, 例外処理}
260     \textcolor{comment}{!  Termination and Exception handling}
261     \textcolor{comment}{!-----------------------------------------------------------------}
262     gthstnml % initialized = .true.
263     gthstnml % define\_mode = .true.
264 999 \textcolor{keywordflow}{continue}
265     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
266     \textcolor{keyword}{call }endsub( subname )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{hstnmlinfocreate_8f90_a6f364598d359c10d2f8c9e290a79b98d_cgraph}
\end{center}
\end{figure}
