\hypertarget{interfacedc__clock_1_1set__name}{}\section{dc\+\_\+clock\+:\+:set\+\_\+name Interface Reference}
\label{interfacedc__clock_1_1set__name}\index{dc\+\_\+clock\+::set\+\_\+name@{dc\+\_\+clock\+::set\+\_\+name}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacedc__clock_1_1set__name_a871e1d5d7ec78fdd0358cb964432a5fb}{dcclocksetname0} (clk, name, err)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


Definition at line 205 of file dc\+\_\+clock.\+f90.



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__clock_1_1set__name_a871e1d5d7ec78fdd0358cb964432a5fb}\label{interfacedc__clock_1_1set__name_a871e1d5d7ec78fdd0358cb964432a5fb}} 
\index{dc\+\_\+clock\+::set\+\_\+name@{dc\+\_\+clock\+::set\+\_\+name}!dcclocksetname0@{dcclocksetname0}}
\index{dcclocksetname0@{dcclocksetname0}!dc\+\_\+clock\+::set\+\_\+name@{dc\+\_\+clock\+::set\+\_\+name}}
\subsubsection{\texorpdfstring{dcclocksetname0()}{dcclocksetname0()}}
{\footnotesize\ttfamily subroutine dc\+\_\+clock\+::set\+\_\+name\+::dcclocksetname0 (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__clock_1_1clock}{clock}), intent(inout)}]{clk,  }\item[{character($\ast$), intent(in)}]{name,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 818 of file dc\+\_\+clock.\+f90.


\begin{DoxyCode}
818     \textcolor{comment}{!}
819     \textcolor{comment}{!=== 測定内容の名称を変更する.}
820     \textcolor{comment}{!}
821     \textcolor{comment}{! CLOCK 変数 *clk* の計測内容の名称を変更します.}
822     \textcolor{comment}{! この名称は Create の *name* 引数で指定されたものです.}
823     \textcolor{comment}{!}
824     \textcolor{comment}{! 第一引数 *clk* に対して DCClockCreate による初期化が行われていない場合,}
825     \textcolor{comment}{! エラーを発生させます. *err* を与える場合には *err* に .true. が返り,}
826     \textcolor{comment}{! プログラムは続行されます.}
827     \textcolor{comment}{!}
828     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
829     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
830     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}, 
      \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
831     \textcolor{keywordtype}{implicit none}
832     \textcolor{keywordtype}{type}(clock), \textcolor{keywordtype}{intent(inout)}:: clk
833     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: name
834     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
835     \textcolor{keywordtype}{character(STRING)}:: cause\_c
836     \textcolor{keywordtype}{integer}:: stat
837     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCClockSetName'}
838   \textcolor{keywordflow}{continue}
839     \textcolor{keyword}{call }beginsub(subname)
840     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
841     cause\_c = \textcolor{stringliteral}{'CLOCK'}
842     \textcolor{keywordflow}{if} (.not. clk % initialized) \textcolor{keywordflow}{then}
843       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, \textcolor{stringliteral}{'Call Create before Set\_Name in dc\_clock.'})
844       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'Ignored because input argument was not initialized.'})
845       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
846       \textcolor{keywordflow}{goto} 999
847 \textcolor{keywordflow}{    end if}
848     clk % name = name
849     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'set new name "%c"'}, c1=trim(clk % name))
850 999 \textcolor{keywordflow}{continue}
851     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
852     \textcolor{keyword}{call }endsub(subname)
\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
dc\+\_\+utils/\hyperlink{dc__clock_8f90}{dc\+\_\+clock.\+f90}\end{DoxyCompactItemize}
