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


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



Definition at line 12 of file hstnmlinfooutputstepdisable.\+f90.



References dc\+\_\+error\+::dc\+\_\+enoentry, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+error\+::hst\+\_\+ebadname, dc\+\_\+error\+::hst\+\_\+eindefine, dc\+\_\+types\+::stdout, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
12     \textcolor{comment}{!}
13     \textcolor{comment}{! このサブルーチンを使用すると, *name* に関して, }
14     \textcolor{comment}{! 以降は HstNmlInfoOutputStep が常に .false. を返すようになります. }
15     \textcolor{comment}{!}
16     \textcolor{comment}{! データ出力間隔を出力の初期設定から変更し, }
17     \textcolor{comment}{! データを出力するたびに時刻を明示的に指定する場合に利用することを}
18     \textcolor{comment}{! 想定しています. }
19     \textcolor{comment}{!}
20     \textcolor{comment}{! HstNmlInfoEndDefine で定義モードから出力モードに}
21     \textcolor{comment}{! 移行した後に呼び出してください. }
22     \textcolor{comment}{! HstNmlInfoEndDefine を呼ぶ前にこのサブルーチンを使用すると, }
23     \textcolor{comment}{! プログラムはエラーを発生させます. }
24     \textcolor{comment}{!}
25     \textcolor{comment}{! *name* に関する情報が見当たらない場合, }
26     \textcolor{comment}{! プログラムはエラーを発生させます. }
27     \textcolor{comment}{! *name* が空文字の場合にも, }
28     \textcolor{comment}{! プログラムはエラーを発生させます. }
29     \textcolor{comment}{!}
30     \textcolor{comment}{! なお, 与えられた *gthstnml* が HstNmlInfoCreate によって初期設定}
31     \textcolor{comment}{! されていない場合にも, プログラムはエラーを発生させます. }
32     \textcolor{comment}{!}
33     \textcolor{comment}{! After this subroutine is used, }
34     \textcolor{comment}{! "HstNmlInfoOutputStep" returns .false. already }
35     \textcolor{comment}{! corresponding to the *name*. }
36     \textcolor{comment}{!}
37     \textcolor{comment}{! This subroutine expected to use when }
38     \textcolor{comment}{! interval of data output is changed from initialization of output, }
39     \textcolor{comment}{! and time is specified explicitly whenever data is output. }
40     \textcolor{comment}{!}
41     \textcolor{comment}{! Use after state is changed from define mode to}
42     \textcolor{comment}{! output mode by "HstNmlInfoEndDefine". }
43     \textcolor{comment}{! If this subroutine is used before }
44     \textcolor{comment}{! "HstNmlInfoEndDefine" is used, error is occurred. }
45     \textcolor{comment}{!}
46     \textcolor{comment}{! When data correspond to *name* is not found, error is occurred.}
47     \textcolor{comment}{! When *name* is blank, error is occurred too.}
48     \textcolor{comment}{!}
49     \textcolor{comment}{! If *gthstnml* is not initialized by "HstNmlInfoCreate" yet, }
50     \textcolor{comment}{! error is occurred.}
51     \textcolor{comment}{!}
52     \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}
53     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__internal}{gtool\_history\_nmlinfo\_internal}\textcolor{keywordtype}{, only}: listsearch
54     \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub
55     \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: putline, printf, split, strinclude, stoa, joinchar
56     \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}
57     \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}, \hyperlink{namespacedc__error_ae5f73ad2e691edb0b6bd1bf837604d5e}{dc\_enoentry}, \hyperlink{namespacedc__error_ae116df7460f0623509a40a559f53698a}{hst\_ebadname}, 
      \hyperlink{namespacedc__error_a8c9f0f2a4a794e70f50cb768091c75ec}{hst\_eindefine}
58     \textcolor{keywordtype}{implicit none}
59     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo}{gthst\_nmlinfo}), \textcolor{keywordtype}{intent(in)}:: gthstnml
60     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: name
61                               \textcolor{comment}{! 変数名. }
62                               \textcolor{comment}{! 先頭の空白は無視されます. }
63                               \textcolor{comment}{! }
64                               \textcolor{comment}{! Variable identifier. }
65                               \textcolor{comment}{! Blanks at the head of the name are ignored. }
66     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
67                               \textcolor{comment}{! 例外処理用フラグ. }
68                               \textcolor{comment}{! デフォルトでは, この手続き内でエラーが}
69                               \textcolor{comment}{! 生じた場合, プログラムは強制終了します. }
70                               \textcolor{comment}{! 引数 *err* が与えられる場合, }
71                               \textcolor{comment}{! プログラムは強制終了せず, 代わりに}
72                               \textcolor{comment}{! *err* に .true. が代入されます. }
73                               \textcolor{comment}{!}
74                               \textcolor{comment}{! Exception handling flag. }
75                               \textcolor{comment}{! By default, when error occur in }
76                               \textcolor{comment}{! this procedure, the program aborts. }
77                               \textcolor{comment}{! If this *err* argument is given, }
78                               \textcolor{comment}{! .true. is substituted to *err* and }
79                               \textcolor{comment}{! the program does not abort. }
80 
81     \textcolor{comment}{!-----------------------------------}
82     \textcolor{comment}{!  作業変数}
83     \textcolor{comment}{!  Work variables}
84     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}:: hptr =>null()
85     \textcolor{keywordtype}{integer}:: stat
86     \textcolor{keywordtype}{character(STRING)}:: cause\_c
87     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'HstNmlInfoOutputStepDisable'}
88   \textcolor{keywordflow}{continue}
89     \textcolor{keyword}{call }beginsub( subname )
90     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
91     cause\_c = \textcolor{stringliteral}{''}
92 
93     \textcolor{comment}{!-----------------------------------------------------------------}
94     \textcolor{comment}{!  初期設定のチェック}
95     \textcolor{comment}{!  Check initialization}
96     \textcolor{comment}{!-----------------------------------------------------------------}
97     \textcolor{keywordflow}{if} ( .not. gthstnml % initialized ) \textcolor{keywordflow}{then}
98       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
99       cause\_c = \textcolor{stringliteral}{'GTHST\_NMLINFO'}
100       \textcolor{keywordflow}{goto} 999
101 \textcolor{keywordflow}{    end if}
102 
103     \textcolor{keywordflow}{if} ( trim( name ) == \textcolor{stringliteral}{''} ) \textcolor{keywordflow}{then}
104       stat = \hyperlink{namespacedc__error_ae116df7460f0623509a40a559f53698a}{hst\_ebadname}
105       cause\_c = \textcolor{stringliteral}{''}
106       \textcolor{keywordflow}{goto} 999
107 \textcolor{keywordflow}{    end if}
108 
109     \textcolor{keywordflow}{if} ( gthstnml % define\_mode ) \textcolor{keywordflow}{then}
110       stat = \hyperlink{namespacedc__error_a8c9f0f2a4a794e70f50cb768091c75ec}{hst\_eindefine}
111       cause\_c = \textcolor{stringliteral}{'OutputStepDisable'}
112       \textcolor{keywordflow}{goto} 999
113 \textcolor{keywordflow}{    end if}
114 
115     \textcolor{comment}{!-----------------------------------------------------------------}
116     \textcolor{comment}{!  *gthstnml* 内から, *name* に関する history を探査.}
117     \textcolor{comment}{!  Search "history" correspond to *name* in *gthstnml*}
118     \textcolor{comment}{!-----------------------------------------------------------------}
119     hptr => gthstnml % gthstnml\_list
120     \textcolor{keyword}{call }listsearch( gthstnml\_list = hptr, & \textcolor{comment}{! (inout)}
121       &              name = name )           \textcolor{comment}{! (in)}
122 
123     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( hptr ) ) \textcolor{keywordflow}{then}
124       stat = \hyperlink{namespacedc__error_ae5f73ad2e691edb0b6bd1bf837604d5e}{dc\_enoentry}
125       cause\_c = adjustl( name )
126       \textcolor{keywordflow}{goto} 999
127 \textcolor{keywordflow}{    end if}
128 
129     hptr % output\_step\_disable = .true.
130 
131     \textcolor{keyword}{nullify}( hptr )
132 
133     \textcolor{comment}{!-----------------------------------------------------------------}
134     \textcolor{comment}{!  終了処理, 例外処理}
135     \textcolor{comment}{!  Termination and Exception handling}
136     \textcolor{comment}{!-----------------------------------------------------------------}
137 999 \textcolor{keywordflow}{continue}
138     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, err, cause\_c )
139     \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]{hstnmlinfooutputstepdisable_8f90_a612c3c990885f63915c842d0676a87cf_cgraph}
\end{center}
\end{figure}
