\hypertarget{hstnmlinfooutputvalid_8f90}{}\section{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfooutputvalid.f90 File Reference}
\label{hstnmlinfooutputvalid_8f90}\index{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfooutputvalid.\+f90@{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfooutputvalid.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
logical function \hyperlink{hstnmlinfooutputvalid_8f90_a6996834c56a8fd0264e239bdb828da9d}{hstnmlinfooutputvalid} (gthstnml, name)
\end{DoxyCompactItemize}


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



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



References dc\+\_\+types\+::dp, dc\+\_\+string\+::joinchar(), dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+types\+::stdout, dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
12     \textcolor{comment}{!}
13     \textcolor{comment}{! 変数 *name* の出力が有効であれば, }
14     \textcolor{comment}{! .true. を, そうでなければ .false. を返します. }
15     \textcolor{comment}{! 出力が有効であるかどうかは, 出力間隔 *interval\_value* の}
16     \textcolor{comment}{! 正負によって判定されます. 正の場合が有効, 負の場合が無効です. }
17     \textcolor{comment}{! *gthstnml* が初期設定されていない場合にも .false. が返ります. }
18     \textcolor{comment}{! *name* に関するデータが存在しない場合にも .false. が返ります. }
19     \textcolor{comment}{!}
20     \textcolor{comment}{! なお, 与えられた *gthstnml* が HstNmlInfoCreate によって初期設定}
21     \textcolor{comment}{! されていない場合, プログラムはエラーを発生させます. }
22     \textcolor{comment}{!}
23     \textcolor{comment}{! If output of a variable *name* is valid, }
24     \textcolor{comment}{! .true. is returned, otherwise .false. is returned. }
25     \textcolor{comment}{! Whether output is valid or not is judged with positive or negative }
26     \textcolor{comment}{! of *interval\_value*. Positive is valid, and negative is invalid. }
27     \textcolor{comment}{! When *gthstnml* is not initialized, .false. is returned too. }
28     \textcolor{comment}{! When data correspond to *name* is not found, .false. is returned too. }
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_1listsearch}{listsearch}
35     \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}
36     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, 
      \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}
37     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
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}{implicit none}
40     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo}{gthst\_nmlinfo}), \textcolor{keywordtype}{intent(in)}:: gthstnml
41     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: name
42                               \textcolor{comment}{! 変数名. }
43                               \textcolor{comment}{! 先頭の空白は無視されます. }
44                               \textcolor{comment}{! }
45                               \textcolor{comment}{! Variable identifier. }
46                               \textcolor{comment}{! Blanks at the head of the name are ignored. }
47 
48     \textcolor{comment}{!-----------------------------------}
49     \textcolor{comment}{!  作業変数}
50     \textcolor{comment}{!  Work variables}
51     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}:: hptr =>null()
52 \textcolor{comment}{!!$    character(*), parameter:: subname = 'HstNmlInfoOutputValid'}
53   \textcolor{keywordflow}{continue}
54 
55     result = .false.
56 
57     \textcolor{comment}{!-----------------------------------------------------------------}
58     \textcolor{comment}{!  初期設定のチェック}
59     \textcolor{comment}{!  Check initialization}
60     \textcolor{comment}{!-----------------------------------------------------------------}
61     \textcolor{keywordflow}{if} ( .not. gthstnml % initialized ) \textcolor{keywordflow}{goto} 999
62 
63     \textcolor{comment}{!-----------------------------------------------------------------}
64     \textcolor{comment}{!  情報格納変数への結合}
65     \textcolor{comment}{!  Associate a variable storing information}
66     \textcolor{comment}{!-----------------------------------------------------------------}
67     hptr => gthstnml % gthstnml\_list
68     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__internal_1_1listsearch}{listsearch}( gthstnml\_list = hptr, & \textcolor{comment}{! (inout)}
69       &              name = name )           \textcolor{comment}{! (in)}
70 
71     \textcolor{keywordflow}{if} ( .not. \textcolor{keyword}{associated}( hptr ) ) \textcolor{keywordflow}{goto} 999
72 
73     \textcolor{comment}{!-----------------------------------------------------------------}
74     \textcolor{comment}{!  出力の有効性のチェック}
75     \textcolor{comment}{!  Check validity of output}
76     \textcolor{comment}{!-----------------------------------------------------------------}
77     \textcolor{keywordflow}{if} ( hptr % interval\_value > 0.0 ) \textcolor{keywordflow}{then}
78       result = .true.
79       \textcolor{keywordflow}{goto} 999
80 \textcolor{keywordflow}{    end if}
81 
82     \textcolor{comment}{!-----------------------------------------------------------------}
83     \textcolor{comment}{!  終了処理, 例外処理}
84     \textcolor{comment}{!  Termination and Exception handling}
85     \textcolor{comment}{!-----------------------------------------------------------------}
86 999 \textcolor{keywordflow}{continue}
87     \textcolor{keyword}{nullify}( hptr )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=328pt]{hstnmlinfooutputvalid_8f90_a6996834c56a8fd0264e239bdb828da9d_cgraph}
\end{center}
\end{figure}
