\hypertarget{historyputline_8f90}{}\section{gtool/gtool\+\_\+history/historyputline.f90 File Reference}
\label{historyputline_8f90}\index{gtool/gtool\+\_\+history/historyputline.\+f90@{gtool/gtool\+\_\+history/historyputline.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyputline_8f90_acb1df72217a58b0e2fc6ba9b227ca3c8}{historyputline} (history, unit, indent, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyputline_8f90_acb1df72217a58b0e2fc6ba9b227ca3c8}\label{historyputline_8f90_acb1df72217a58b0e2fc6ba9b227ca3c8}} 
\index{historyputline.\+f90@{historyputline.\+f90}!historyputline@{historyputline}}
\index{historyputline@{historyputline}!historyputline.\+f90@{historyputline.\+f90}}
\subsubsection{\texorpdfstring{historyputline()}{historyputline()}}
{\footnotesize\ttfamily subroutine historyputline (\begin{DoxyParamCaption}\item[{type(gt\+\_\+history), intent(in), optional, target}]{history,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



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



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, gtool\+\_\+history\+\_\+internal\+::default, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+string\+::joinchar(), dc\+\_\+types\+::stdout, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
11     \textcolor{comment}{!}
12     \textcolor{comment}{! 引数 *history* に設定されている情報を印字します. }
13     \textcolor{comment}{! デフォルトではメッセージは標準出力に出力されます. }
14     \textcolor{comment}{! *unit* に装置番号を指定することで, 出力先を変更することが可能です. }
15     \textcolor{comment}{!}
16     \textcolor{comment}{! Print information of *history*. }
17     \textcolor{comment}{! By default messages are output to standard output. }
18     \textcolor{comment}{! Unit number for output can be changed by *unit* argument. }
19     \textcolor{comment}{!}
20     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__types}{gtool\_history\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}
21     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__internal}{gtool\_history\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
22     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyinquire}{historyinquire}
23     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__generic}{gtdata\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1putline}{putline}, \hyperlink{interfacegtdata__generic_1_1get__attr}{get\_attr}
24     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
25     \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}
26     \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}
27     \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}
28     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}
29     \textcolor{keywordtype}{implicit none}
30     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{target}, \textcolor{keywordtype}{optional}:: history
31     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
32                               \textcolor{comment}{! 出力先の装置番号. }
33                               \textcolor{comment}{! デフォルトの出力先は標準出力. }
34                               \textcolor{comment}{!}
35                               \textcolor{comment}{! Unit number for output. }
36                               \textcolor{comment}{! Default value is standard output. }
37     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
38                               \textcolor{comment}{! 表示されるメッセージの字下げ. }
39                               \textcolor{comment}{!}
40                               \textcolor{comment}{! Indent of displayed messages. }
41     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
42                               \textcolor{comment}{! 例外処理用フラグ. }
43                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
44                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
45                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
46                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
47                               \textcolor{comment}{! *err* に .true. が代入されます. }
48                               \textcolor{comment}{!}
49                               \textcolor{comment}{! Exception handling flag. }
50                               \textcolor{comment}{! By default, when error occur in }
51                               \textcolor{comment}{! this procedure, the program aborts. }
52                               \textcolor{comment}{! If this *err* argument is given, }
53                               \textcolor{comment}{! .true. is substituted to *err* and }
54                               \textcolor{comment}{! the program does not abort. }
55 
56     \textcolor{comment}{!-----------------------------------}
57     \textcolor{comment}{!  作業変数}
58     \textcolor{comment}{!  Work variables}
59     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: hst =>null()
60     \textcolor{keywordtype}{integer}:: i, \hyperlink{interfacedc__date__generic_1_1max}{max}
61     \textcolor{keywordtype}{integer}:: stat
62     \textcolor{keywordtype}{character(STRING)}:: cause\_c
63     \textcolor{keywordtype}{integer}:: out\_unit
64     \textcolor{keywordtype}{integer}:: indent\_len
65     \textcolor{keywordtype}{character(STRING)}:: indent\_str
66 
67     \textcolor{keywordtype}{character(STRING)}:: file, title, source, institution
68     \textcolor{keywordtype}{character(STRING)}:: conventions, gt\_version
69     \textcolor{keywordtype}{character(TOKEN)}, \textcolor{keywordtype}{pointer}:: dims(:) =>null()
70     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}:: dimsizes(:) =>null()
71     \textcolor{keywordtype}{character(STRING)}, \textcolor{keywordtype}{pointer}:: longnames(:) =>null()
72     \textcolor{keywordtype}{character(TOKEN)}, \textcolor{keywordtype}{pointer}:: \hyperlink{structdc__units_1_1units}{units}(:) =>null()
73     \textcolor{keywordtype}{character(TOKEN)}, \textcolor{keywordtype}{pointer}:: xtypes(:) =>null()
74 
75     \textcolor{keywordtype}{real}:: origin, interval, newest, oldest
76     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'HistoryPutLine'}
77   \textcolor{keywordflow}{continue}
78     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}( subname )
79     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
80     cause\_c = \textcolor{stringliteral}{''}
81 
82     \textcolor{comment}{!-----------------------------------------------------------------}
83     \textcolor{comment}{!  出力先装置番号と字下げの設定}
84     \textcolor{comment}{!  Configure output unit number and indents}
85     \textcolor{comment}{!-----------------------------------------------------------------}
86     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
87       out\_unit = unit
88     \textcolor{keywordflow}{else}
89       out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
90 \textcolor{keywordflow}{    end if}
91 
92     indent\_len = 0
93     indent\_str = \textcolor{stringliteral}{''}
94     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
95       \textcolor{keywordflow}{if} ( len(indent) /= 0 ) \textcolor{keywordflow}{then}
96         indent\_len = len(indent)
97         indent\_str(1:indent\_len) = indent
98 \textcolor{keywordflow}{      end if}
99 \textcolor{keywordflow}{    end if}
100 
101     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(history)) \textcolor{keywordflow}{then}
102       hst => history
103     \textcolor{keywordflow}{else}
104       hst => \hyperlink{namespacegtool__history__internal_aa7fc82d2ca1961a254be1acb599afbb1}{default}
105 \textcolor{keywordflow}{    endif}
106 
107     \textcolor{comment}{!-----------------------------------------------------------------}
108     \textcolor{comment}{!  "GT\_HISTORY" の設定の印字}
109     \textcolor{comment}{!  Print the settings for "GT\_HISTORY"}
110     \textcolor{comment}{!-----------------------------------------------------------------}
111     \textcolor{keywordflow}{if} ( hst % initialized ) \textcolor{keywordflow}{then}
112       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
113         & indent\_str(1:indent\_len) // &
114         & \textcolor{stringliteral}{'#<GT\_HISTORY:: @initialized=%y'}, &
115         & l = (/hst % initialized/) )
116 
117       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyinquire}{historyinquire}( history = hst, &             \textcolor{comment}{! (in)}
118         & err = err, &                                  \textcolor{comment}{! (out)}
119         & file = file, title = title, &                 \textcolor{comment}{! (out)}
120         & source = source, institution = institution, & \textcolor{comment}{! (out)}
121         & dims = dims, dimsizes = dimsizes, &           \textcolor{comment}{! (out)}
122         & longnames = longnames, &                      \textcolor{comment}{! (out)}
123         & \hyperlink{structdc__units_1_1units}{units} = \hyperlink{structdc__units_1_1units}{units}, xtypes = xtypes, &             \textcolor{comment}{! (out)}
124         & conventions = conventions, &                  \textcolor{comment}{! (out)}
125         & gt\_version = gt\_version )                     \textcolor{comment}{! (out)}
126 
127       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
128         & indent\_str(1:indent\_len) // &
129         & \textcolor{stringliteral}{' @file=%c @title=%c'}, &
130         & c1 = trim(file), c2 = trim(title) )
131 
132       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
133         & indent\_str(1:indent\_len) // &
134         & \textcolor{stringliteral}{' @source=%c @institution=%c'}, &
135         & c1 = trim(source), c2 = trim(institution) )
136 
137       \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( dims )
138       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
139         & indent\_str(1:indent\_len) // &
140         & \textcolor{stringliteral}{' @dims=%c @dimsizes=%*d'}, &
141         & c1 = trim( \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}(dims, \textcolor{stringliteral}{','}) ), &
142         & i = dimsizes, n = (/\hyperlink{interfacedc__date__generic_1_1max}{max}/) )
143       \textcolor{keyword}{deallocate}( dims, dimsizes )
144 
145       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
146         & indent\_str(1:indent\_len) // &
147         & \textcolor{stringliteral}{' @longnames=%c'}, &
148         & c1 = trim( \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}(longnames, \textcolor{stringliteral}{','}) ) )
149       \textcolor{keyword}{deallocate}( longnames )
150 
151       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
152         & indent\_str(1:indent\_len) // &
153         & \textcolor{stringliteral}{' @units=%c @xtypes=%c'}, &
154         & c1 = trim( \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}(\hyperlink{structdc__units_1_1units}{units}, \textcolor{stringliteral}{','}) ), &
155         & c2 = trim( \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}(xtypes, \textcolor{stringliteral}{','}) ) )
156       \textcolor{keyword}{deallocate}( \hyperlink{structdc__units_1_1units}{units}, xtypes )
157 
158       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
159         & indent\_str(1:indent\_len) // &
160         & \textcolor{stringliteral}{' @conventions=%c @gt\_version=%c'}, &
161         & c1 = trim(conventions), c2 = trim(gt\_version) )
162 
163       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
164         & indent\_str(1:indent\_len) // &
165         & \textcolor{stringliteral}{' @unlimited\_index=%d'}, &
166         & i = (/hst % unlimited\_index/) )
167 
168       \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( hst % dim\_value\_written )
169       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
170         & indent\_str(1:indent\_len) // &
171         & \textcolor{stringliteral}{' @dim\_value\_written=%*y'}, &
172         & l = hst % dim\_value\_written, n = (/\hyperlink{interfacedc__date__generic_1_1max}{max}/) )
173 
174       origin   = hst % origin
175       interval = hst % interval
176       newest   = hst % newest
177       oldest   = hst % oldest
178 
179 \textcolor{comment}{!!$      origin   = EvalByUnit( hst % origin, '', hst % unlimited\_units\_symbol )}
180 \textcolor{comment}{!!$      interval = EvalByUnit( hst % interval, '', hst % unlimited\_units\_symbol )}
181 \textcolor{comment}{!!$      newest   = EvalByUnit( hst % newest, '', hst % unlimited\_units\_symbol )}
182 \textcolor{comment}{!!$      oldest   = EvalByUnit( hst % oldest, '', hst % unlimited\_units\_symbol )}
183 
184       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
185         & indent\_str(1:indent\_len) // &
186         & \textcolor{stringliteral}{' @origin=%r @interval=%r @newest=%r @oldest=%r'}, &
187         & r = (/origin, interval, newest, oldest/) )
188 
189       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( hst % growable\_indices ) ) \textcolor{keywordflow}{then}
190         \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( hst % growable\_indices )
191         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
192           & indent\_str(1:indent\_len) // &
193           & \textcolor{stringliteral}{' @growable\_indices=%*d'}, &
194           & i = hst % growable\_indices, n = (/\hyperlink{interfacedc__date__generic_1_1max}{max}/) )
195       \textcolor{keywordflow}{else}
196         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
197           & indent\_str(1:indent\_len) // &
198           & \textcolor{stringliteral}{' @growable\_indices=<null>'} )
199 \textcolor{keywordflow}{      end if}
200 
201       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( hst % count ) ) \textcolor{keywordflow}{then}
202         \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( hst % count )
203         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
204           & indent\_str(1:indent\_len) // &
205           & \textcolor{stringliteral}{' @count=%*d'}, &
206           & i = hst % count, n = (/\hyperlink{interfacedc__date__generic_1_1max}{max}/) )
207       \textcolor{keywordflow}{else}
208         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
209           & indent\_str(1:indent\_len) // &
210           & \textcolor{stringliteral}{' @count=<null>'} )
211 \textcolor{keywordflow}{      end if}
212 
213       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( hst % dimvars ) ) \textcolor{keywordflow}{then}
214         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
215           & indent\_str(1:indent\_len) // &
216           & \textcolor{stringliteral}{' @dimvars='} )
217         \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( hst % dimvars )
218         \textcolor{keywordflow}{do} i = 1, \hyperlink{interfacedc__date__generic_1_1max}{max}
219           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1putline}{putline}( hst % dimvars(i), out\_unit, &
220             & indent\_str(1:indent\_len) // \textcolor{stringliteral}{'  '}, err )
221 \textcolor{keywordflow}{        end do}
222       \textcolor{keywordflow}{else}
223         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
224           & indent\_str(1:indent\_len) // &
225           & \textcolor{stringliteral}{' @dimvars=<null>'} )
226 \textcolor{keywordflow}{      end if}
227 
228       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( hst % vars ) ) \textcolor{keywordflow}{then}
229         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
230           & indent\_str(1:indent\_len) // &
231           & \textcolor{stringliteral}{' @vars='} )
232         \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( hst % vars )
233         \textcolor{keywordflow}{do} i = 1, \hyperlink{interfacedc__date__generic_1_1max}{max}
234           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1putline}{putline}( hst % vars(i), out\_unit, &
235             & indent\_str(1:indent\_len) // \textcolor{stringliteral}{'  '}, err )
236 \textcolor{keywordflow}{        end do}
237       \textcolor{keywordflow}{else}
238         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
239           & indent\_str(1:indent\_len) // &
240           & \textcolor{stringliteral}{' @vars=<null>'} )
241 \textcolor{keywordflow}{      end if}
242 
243       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( hst % var\_avr\_count ) ) \textcolor{keywordflow}{then}
244         \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( hst % var\_avr\_count )
245         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
246           & indent\_str(1:indent\_len) // &
247           & \textcolor{stringliteral}{' @var\_avr\_count=%*d'}, &
248           & i = hst % var\_avr\_count, n = (/\hyperlink{interfacedc__date__generic_1_1max}{max}/) )
249       \textcolor{keywordflow}{else}
250         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
251           & indent\_str(1:indent\_len) // &
252           & \textcolor{stringliteral}{' @var\_avr\_count=<null>'} )
253 \textcolor{keywordflow}{      end if}
254 
255       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( hst % var\_avr\_firstput ) ) \textcolor{keywordflow}{then}
256         \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( hst % var\_avr\_firstput )
257         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
258           & indent\_str(1:indent\_len) // &
259           & \textcolor{stringliteral}{' @var\_avr\_firstput=%*b'}, &
260           & l = hst % var\_avr\_firstput, n = (/\hyperlink{interfacedc__date__generic_1_1max}{max}/) )
261       \textcolor{keywordflow}{else}
262         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
263           & indent\_str(1:indent\_len) // &
264           & \textcolor{stringliteral}{' @var\_avr\_firstput=<null>'} )
265 \textcolor{keywordflow}{      end if}
266 
267       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( hst % var\_avr\_coefsum ) ) \textcolor{keywordflow}{then}
268         \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( hst % var\_avr\_coefsum )
269         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
270           & indent\_str(1:indent\_len) // &
271           & \textcolor{stringliteral}{' @var\_avr\_coefsum=%*f'}, &
272           & d = hst % var\_avr\_coefsum, n = (/\hyperlink{interfacedc__date__generic_1_1max}{max}/) )
273       \textcolor{keywordflow}{else}
274         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
275           & indent\_str(1:indent\_len) // &
276           & \textcolor{stringliteral}{' @var\_avr\_coefsum=<null>'} )
277 \textcolor{keywordflow}{      end if}
278 
279       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
280         & indent\_str(1:indent\_len) // &
281         & \textcolor{stringliteral}{'  @time\_bnds=%*f, @time\_bnds\_output\_count=%d'}, &
282         & i = (/hst % time\_bnds\_output\_count/), &
283         & d = hst % time\_bnds, &
284         & n = (/ \textcolor{keyword}{size}(hst % time\_bnds) /) )
285 
286       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( hst % var\_avr\_data ) ) \textcolor{keywordflow}{then}
287         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
288           & indent\_str(1:indent\_len) // &
289           & \textcolor{stringliteral}{' @var\_avr\_data='} )
290         \hyperlink{interfacedc__date__generic_1_1max}{max} = \textcolor{keyword}{size}( hst % var\_avr\_data )
291         \textcolor{keywordflow}{do} i = 1, \hyperlink{interfacedc__date__generic_1_1max}{max}
292           \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
293             & indent\_str(1:indent\_len) // &
294             & \textcolor{stringliteral}{'  #<GT\_HISTORY\_AVRDATA:: @length=%d'}, &
295             & i = (/hst % var\_avr\_data(i) % length/) )
296           \textcolor{keyword}{call }\hyperlink{interfacegtdata__generic_1_1putline}{putline}( hst % var\_avr\_data(i) % a\_DataAvr, unit = out\_unit, &
297             & lbounds = lbound(hst % var\_avr\_data(i) % a\_DataAvr), &
298             & ubounds = ubound(hst % var\_avr\_data(i) % a\_DataAvr), &
299             & indent = indent\_str(1:indent\_len) // &
300             & \textcolor{stringliteral}{'    @a\_DataAvr='} )
301 \textcolor{keywordflow}{        end do}
302       \textcolor{keywordflow}{else}
303         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
304           & indent\_str(1:indent\_len) // &
305           & \textcolor{stringliteral}{' @var\_avr\_data=<null>'} )
306 \textcolor{keywordflow}{      end if}
307 
308       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
309         & indent\_str(1:indent\_len) // &
310         & \textcolor{stringliteral}{'>'} )
311     \textcolor{keywordflow}{else}
312       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
313         & indent\_str(1:indent\_len) // &
314         & \textcolor{stringliteral}{'#<GT\_HISTORY:: @initialized=%y>'}, &
315         & l = (/hst % initialized/) )
316 \textcolor{keywordflow}{    end if}
317 
318     \textcolor{comment}{!-----------------------------------------------------------------}
319     \textcolor{comment}{!  終了処理, 例外処理}
320     \textcolor{comment}{!  Termination and Exception handling}
321     \textcolor{comment}{!-----------------------------------------------------------------}
322 999 \textcolor{keywordflow}{continue}
323     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
324     \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]{historyputline_8f90_acb1df72217a58b0e2fc6ba9b227ca3c8_cgraph}
\end{center}
\end{figure}
