\hypertarget{hstnmlinfonames_8f90}{}\section{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfonames.f90 File Reference}
\label{hstnmlinfonames_8f90}\index{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfonames.\+f90@{gtool/gtool\+\_\+history\+\_\+nmlinfo/hstnmlinfonames.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
character(string) function \hyperlink{hstnmlinfonames_8f90_a4a1db9e2188b0cc0bd3b8482fcca8e78}{hstnmlinfonames} (gthstnml)
\end{DoxyCompactItemize}


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



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



References dc\+\_\+types\+::dp, gtool\+\_\+history\+\_\+nmlinfo\+\_\+internal\+::name\+\_\+delimiter, dc\+\_\+types\+::stdout, dc\+\_\+types\+::string, and dc\+\_\+types\+::token.


\begin{DoxyCode}
11     \textcolor{comment}{!}
12     \textcolor{comment}{! *gthstnml* が設定されている変数リストをカンマでつなげて}
13     \textcolor{comment}{! 返します. }
14     \textcolor{comment}{!}
15     \textcolor{comment}{! なお, 与えられた *gthstnml* が HstNmlInfoCreate によって初期設定}
16     \textcolor{comment}{! されていない場合, 空文字が返ります. }
17     \textcolor{comment}{!}
18     \textcolor{comment}{! List of variables registered in *gthstnml* is join with camma, }
19     \textcolor{comment}{! and returned. }
20     \textcolor{comment}{! }
21     \textcolor{comment}{! If *gthstnml* is not initialized by "HstNmlInfoCreate" yet, }
22     \textcolor{comment}{! blank is returned. }
23     \textcolor{comment}{!}
24     \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}
25     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__internal}{gtool\_history\_nmlinfo\_internal}\textcolor{keywordtype}{, only}: listsearch, listnext
26     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__internal}{gtool\_history\_nmlinfo\_internal}\textcolor{keywordtype}{, only}: 
      \hyperlink{namespacegtool__history__nmlinfo__internal_a70f5d905a8fb6970a88cf6bf122ab858}{name\_delimiter}
27     \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: putline, printf, split, strinclude, stoa, joinchar
28     \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}
29     \textcolor{keywordtype}{implicit none}
30     \textcolor{keywordtype}{character(STRING)}:: result
31     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo}{gthst\_nmlinfo}), \textcolor{keywordtype}{intent(in)}:: gthstnml
32 
33     \textcolor{comment}{!-----------------------------------}
34     \textcolor{comment}{!  作業変数}
35     \textcolor{comment}{!  Work variables}
36     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__nmlinfo__types_1_1gthst__nmlinfo__entry}{gthst\_nmlinfo\_entry}), \textcolor{keywordtype}{pointer}:: hptr =>null()
37     \textcolor{keywordtype}{logical}:: first
38 \textcolor{comment}{!!$    character(*), parameter:: subname = 'HstNmlInfoNames'}
39   \textcolor{keywordflow}{continue}
40 
41     result = \textcolor{stringliteral}{''}
42     first = .true.
43 
44     \textcolor{comment}{!-----------------------------------------------------------------}
45     \textcolor{comment}{!  初期設定のチェック}
46     \textcolor{comment}{!  Check initialization}
47     \textcolor{comment}{!-----------------------------------------------------------------}
48     \textcolor{keywordflow}{if} ( .not. gthstnml % initialized ) \textcolor{keywordflow}{goto} 999
49 
50     \textcolor{comment}{!-----------------------------------------------------------------}
51     \textcolor{comment}{!  情報の取り出し}
52     \textcolor{comment}{!  Fetch information}
53     \textcolor{comment}{!-----------------------------------------------------------------}
54     hptr => gthstnml % gthstnml\_list
55     \textcolor{keywordflow}{do} \textcolor{keywordflow}{while} ( \textcolor{keyword}{associated}( hptr % next ) )
56       \textcolor{keyword}{call }listnext( gthstnml\_list = hptr ) \textcolor{comment}{! (inout)}
57       \textcolor{keywordflow}{if} ( first ) \textcolor{keywordflow}{then}
58         result = adjustl( hptr % name )
59         first = .false.
60       \textcolor{keywordflow}{else}
61         result = trim( result ) // \hyperlink{namespacegtool__history__nmlinfo__internal_a70f5d905a8fb6970a88cf6bf122ab858}{name\_delimiter} // adjustl( hptr % name )
62 \textcolor{keywordflow}{      end if}
63 \textcolor{keywordflow}{    end do}
64 
65     \textcolor{comment}{!-----------------------------------------------------------------}
66     \textcolor{comment}{!  終了処理, 例外処理}
67     \textcolor{comment}{!  Termination and Exception handling}
68     \textcolor{comment}{!-----------------------------------------------------------------}
69 999 \textcolor{keywordflow}{continue}
70     \textcolor{keyword}{nullify}( hptr )
\end{DoxyCode}
