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


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{hstnmlinfoputline_8f90_abac7175e30d85e6f2aec59fa812e94b9}\label{hstnmlinfoputline_8f90_abac7175e30d85e6f2aec59fa812e94b9}} 
\index{hstnmlinfoputline.\+f90@{hstnmlinfoputline.\+f90}!hstnmlinfoputline@{hstnmlinfoputline}}
\index{hstnmlinfoputline@{hstnmlinfoputline}!hstnmlinfoputline.\+f90@{hstnmlinfoputline.\+f90}}
\subsubsection{\texorpdfstring{hstnmlinfoputline()}{hstnmlinfoputline()}}
{\footnotesize\ttfamily subroutine hstnmlinfoputline (\begin{DoxyParamCaption}\item[{type(gthst\+\_\+nmlinfo), intent(in)}]{gthstnml,  }\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 hstnmlinfoputline.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, 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}{! 引数 *gthstnml* に設定されている情報を印字します. }
13     \textcolor{comment}{! デフォルトではメッセージは標準出力に出力されます. }
14     \textcolor{comment}{! *unit* に装置番号を指定することで, 出力先を変更することが可能です. }
15     \textcolor{comment}{!}
16     \textcolor{comment}{! Print information of *gthstnml*. }
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__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}
21     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__internal}{gtool\_history\_nmlinfo\_internal}\textcolor{keywordtype}{, only}: 
      \hyperlink{interfacegtool__history__nmlinfo__internal_1_1listnext}{listnext}
22     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__generic}{gtool\_history\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyputline}{historyputline}
23     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
24     \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}
25     \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}
26     \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}
27     \textcolor{keywordtype}{implicit none}
28     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo}{gthst\_nmlinfo}), \textcolor{keywordtype}{intent(in)}:: gthstnml
29     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
30                               \textcolor{comment}{! 出力先の装置番号. }
31                               \textcolor{comment}{! デフォルトの出力先は標準出力. }
32                               \textcolor{comment}{!}
33                               \textcolor{comment}{! Unit number for output. }
34                               \textcolor{comment}{! Default value is standard output. }
35     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
36                               \textcolor{comment}{! 表示されるメッセージの字下げ. }
37                               \textcolor{comment}{!}
38                               \textcolor{comment}{! Indent of displayed messages. }
39     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
40                               \textcolor{comment}{! 例外処理用フラグ. }
41                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
42                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
43                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
44                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
45                               \textcolor{comment}{! *err* に .true. が代入されます. }
46                               \textcolor{comment}{!}
47                               \textcolor{comment}{! Exception handling flag. }
48                               \textcolor{comment}{! By default, when error occur in }
49                               \textcolor{comment}{! this procedure, the program aborts. }
50                               \textcolor{comment}{! If this *err* argument is given, }
51                               \textcolor{comment}{! .true. is substituted to *err* and }
52                               \textcolor{comment}{! the program does not abort. }
53 
54     \textcolor{comment}{!-----------------------------------}
55     \textcolor{comment}{!  作業変数}
56     \textcolor{comment}{!  Work variables}
57     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}:: hptr =>null()
58     \textcolor{keywordtype}{integer}:: stat
59     \textcolor{keywordtype}{character(STRING)}:: cause\_c
60     \textcolor{keywordtype}{integer}:: out\_unit
61     \textcolor{keywordtype}{integer}:: indent\_len
62     \textcolor{keywordtype}{character(STRING)}:: indent\_str
63     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'HstNmlInfoPutLine'}
64   \textcolor{keywordflow}{continue}
65     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}( subname )
66     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
67     cause\_c = \textcolor{stringliteral}{''}
68 
69     \textcolor{comment}{!-----------------------------------------------------------------}
70     \textcolor{comment}{!  初期設定のチェック}
71     \textcolor{comment}{!  Check initialization}
72     \textcolor{comment}{!-----------------------------------------------------------------}
73     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit) ) \textcolor{keywordflow}{then}
74       out\_unit = unit
75     \textcolor{keywordflow}{else}
76       out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
77 \textcolor{keywordflow}{    end if}
78 
79     indent\_len = 0
80     indent\_str = \textcolor{stringliteral}{''}
81     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
82       \textcolor{keywordflow}{if} ( len(indent) /= 0 ) \textcolor{keywordflow}{then}
83         indent\_len = len(indent)
84         indent\_str(1:indent\_len) = indent
85 \textcolor{keywordflow}{      end if}
86 \textcolor{keywordflow}{    end if}
87 
88     \textcolor{comment}{!-----------------------------------------------------------------}
89     \textcolor{comment}{!  "GTHST\_NMLINFO" の設定の印字}
90     \textcolor{comment}{!  Print the settings for "GTHST\_NMLINFO"}
91     \textcolor{comment}{!-----------------------------------------------------------------}
92     \textcolor{keywordflow}{if} ( gthstnml % initialized ) \textcolor{keywordflow}{then}
93       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
94         & indent\_str(1:indent\_len) // &
95         & \textcolor{stringliteral}{'#<GTHST\_NMLINFO:: @initialized=%y define\_mode=%y'}, &
96         & l = (/gthstnml % initialized, gthstnml % define\_mode/) )
97 
98       hptr => gthstnml % gthstnml\_list
99 
100       \textcolor{keywordflow}{do} \textcolor{keywordflow}{while} ( \textcolor{keyword}{associated}( hptr ) )
101 
102         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
103           & indent\_str(1:indent\_len) // &
104           & \textcolor{stringliteral}{' #<GTHST\_NMLINFO\_ENTRY:: @name=%c @file=%c'}, &
105           & c1 = trim(hptr % name), &
106           & c2 = trim(hptr % file) )
107 
108         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
109           & indent\_str(1:indent\_len) // &
110           & \textcolor{stringliteral}{'  @interval\_value=%r @interval\_unit=%c'}, &
111           & r = (/hptr % interval\_value/), &
112           & c1 = trim(hptr % interval\_unit) )
113 
114         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
115           & indent\_str(1:indent\_len) // &
116           & \textcolor{stringliteral}{'  @output\_step\_disable=%y'}, &
117           & l = (/hptr % output\_step\_disable/) )
118 
119         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
120           & indent\_str(1:indent\_len) // &
121           & \textcolor{stringliteral}{'  @precision=%c @time\_average=%y'}, &
122           & c1 = trim(hptr % precision), &
123           & l = (/ hptr % time\_average /) )
124 
125         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
126           & indent\_str(1:indent\_len) // &
127           & \textcolor{stringliteral}{'  @fileprefix=%c'}, &
128           & c1 = trim(hptr % fileprefix) )
129 
130         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
131           & indent\_str(1:indent\_len) // &
132           & \textcolor{stringliteral}{'  @origin\_value=%r @origin\_unit=%c'}, &
133           & r = (/hptr % origin\_value/), &
134           & c1 = trim(hptr % origin\_unit) )
135 
136         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
137           & indent\_str(1:indent\_len) // &
138           & \textcolor{stringliteral}{'  @terminus\_value=%r @terminus\_unit=%c'}, &
139           & r = (/hptr % terminus\_value/), &
140           & c1 = trim(hptr % terminus\_unit) )
141 
142         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
143           & indent\_str(1:indent\_len) // &
144           & \textcolor{stringliteral}{'  @slice\_start=%*d ...'}, &
145           & i = (/hptr % slice\_start(1:10)/), n = (/ 10 /) )
146 
147         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
148           & indent\_str(1:indent\_len) // &
149           & \textcolor{stringliteral}{'  @slice\_end=%*d ...'}, &
150           & i = (/hptr % slice\_end(1:10)/), n = (/ 10 /) )
151 
152         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
153           & indent\_str(1:indent\_len) // &
154           & \textcolor{stringliteral}{'  @slice\_stride=%*d ...'}, &
155           & i = (/hptr % slice\_stride(1:10)/), n = (/ 10 /) )
156 
157         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
158           & indent\_str(1:indent\_len) // &
159           & \textcolor{stringliteral}{'  @space\_average=%*b ...'}, &
160           & l = (/hptr % space\_average(1:10)/), n =(/ 10 /) )
161 
162         \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
163           & indent\_str(1:indent\_len) // &
164           & \textcolor{stringliteral}{'  @newfile\_intvalue=%d @newfile\_intunit=%c'}, &
165           & i = (/hptr % newfile\_intvalue/), &
166           & c1 = trim(hptr % newfile\_intunit) )
167 
168         \textcolor{keywordflow}{if} ( .not. gthstnml % define\_mode ) \textcolor{keywordflow}{then}
169           \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
170             & indent\_str(1:indent\_len) // &
171             & \textcolor{stringliteral}{'  @history='} )
172 
173           \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyputline}{historyputline}( hptr % history, &
174             & unit = out\_unit, &
175             & indent = indent\_str(1:indent\_len) // &
176             & \textcolor{stringliteral}{'   '} )
177 \textcolor{keywordflow}{        end if}
178 
179         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__internal_1_1listnext}{listnext}( gthstnml\_list = hptr ) \textcolor{comment}{! (inout)}
180 \textcolor{keywordflow}{      end do}
181 
182       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
183         & indent\_str(1:indent\_len) // &
184         & \textcolor{stringliteral}{' >'} )
185 
186       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
187         & indent\_str(1:indent\_len) // &
188         & \textcolor{stringliteral}{'>'} )
189     \textcolor{keywordflow}{else}
190       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}( out\_unit, &
191         & indent\_str(1:indent\_len) // &
192         & \textcolor{stringliteral}{'#<GTHST\_NMLINFO:: @initialized=%y>'}, &
193         & l = (/gthstnml % initialized/) )
194 \textcolor{keywordflow}{    end if}
195 
196     \textcolor{comment}{!-----------------------------------------------------------------}
197     \textcolor{comment}{!  終了処理, 例外処理}
198     \textcolor{comment}{!  Termination and Exception handling}
199     \textcolor{comment}{!-----------------------------------------------------------------}
200 999 \textcolor{keywordflow}{continue}
201     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
202     \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]{hstnmlinfoputline_8f90_abac7175e30d85e6f2aec59fa812e94b9_cgraph}
\end{center}
\end{figure}
