\hypertarget{interfacedc__clock_1_1dcclockstart}{}\section{dc\+\_\+clock\+:\+:dcclockstart Interface Reference}
\label{interfacedc__clock_1_1dcclockstart}\index{dc\+\_\+clock\+::dcclockstart@{dc\+\_\+clock\+::dcclockstart}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacedc__clock_1_1dcclockstart_af8efe3b8fd8b13b32a0eb0076ab9c8f4}{dcclockstart0} (clk, err)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



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



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


\begin{DoxyCode}
262     \textcolor{comment}{!}
263     \textcolor{comment}{!=== 計測の開始}
264     \textcolor{comment}{!}
265     \textcolor{comment}{! このサブルーチンを呼んだ時点で計測を開始します.}
266     \textcolor{comment}{!}
267     \textcolor{comment}{! 第一引数 *clk* に対して DCClockCreate による初期化が行われていない場合,}
268     \textcolor{comment}{! エラーを発生させます. *err* を与える場合には *err* に .true. が返り,}
269     \textcolor{comment}{! プログラムは続行されます.}
270     \textcolor{comment}{!}
271     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
272     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
273     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
274     \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}
275     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}
276     \textcolor{keywordtype}{implicit none}
277     \textcolor{keywordtype}{type}(clock), \textcolor{keywordtype}{intent(inout)}:: clk
278     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
279     \textcolor{keywordtype}{character(STRING)}:: cause\_c
280     \textcolor{keywordtype}{integer}:: stat
281     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCClockStart'}
282   \textcolor{keywordflow}{continue}
283     \textcolor{keyword}{call }beginsub(subname)
284     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
285     cause\_c = \textcolor{stringliteral}{'CLOCK'}
286     \textcolor{keywordflow}{if} (.not. clk % initialized) \textcolor{keywordflow}{then}
287       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, \textcolor{stringliteral}{'Call Create before Start in dc\_clock.'})
288       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'Ignored because input argument was not initialized.'})
289       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
290       \textcolor{keywordflow}{goto} 999
291 \textcolor{keywordflow}{    end if}
292     \textcolor{keyword}{call }cpu\_time(clk % start\_time) \textcolor{comment}{! (out)}
293     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'name=%c, cpu\_time=%f'}, &
294       & c1=trim(clk % name), d=(/clk % start\_time/) )
295 999 \textcolor{keywordflow}{continue}
296     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
297     \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}
