\hypertarget{interfacedc__clock_1_1dcclockstop}{}\section{dc\+\_\+clock\+:\+:dcclockstop Interface Reference}
\label{interfacedc__clock_1_1dcclockstop}\index{dc\+\_\+clock\+::dcclockstop@{dc\+\_\+clock\+::dcclockstop}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacedc__clock_1_1dcclockstop_a4534de0cd31a7e65e03919b44cbc1b18}{dcclockstop0} (clk, err)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__clock_1_1dcclockstop_a4534de0cd31a7e65e03919b44cbc1b18}\label{interfacedc__clock_1_1dcclockstop_a4534de0cd31a7e65e03919b44cbc1b18}} 
\index{dc\+\_\+clock\+::dcclockstop@{dc\+\_\+clock\+::dcclockstop}!dcclockstop0@{dcclockstop0}}
\index{dcclockstop0@{dcclockstop0}!dc\+\_\+clock\+::dcclockstop@{dc\+\_\+clock\+::dcclockstop}}
\subsubsection{\texorpdfstring{dcclockstop0()}{dcclockstop0()}}
{\footnotesize\ttfamily subroutine dc\+\_\+clock\+::dcclockstop\+::dcclockstop0 (\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 300 of file dc\+\_\+clock.\+f90.


\begin{DoxyCode}
300     \textcolor{comment}{!}
301     \textcolor{comment}{!=== 計測の一時停止}
302     \textcolor{comment}{!}
303     \textcolor{comment}{! このサブルーチンを呼んだ時点で計測を一時停止します.}
304     \textcolor{comment}{!}
305     \textcolor{comment}{! 第一引数 *clk* に対して DCClockCreate による初期化が行われていない場合,}
306     \textcolor{comment}{! エラーを発生させます. *err* を与える場合には *err* に .true. が返り,}
307     \textcolor{comment}{! プログラムは続行されます.}
308     \textcolor{comment}{!}
309     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
310     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1tochar}{tochar}
311     \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}
312     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}, \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(-)
313     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
314     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
315     \textcolor{keywordtype}{implicit none}
316     \textcolor{keywordtype}{type}(clock), \textcolor{keywordtype}{intent(inout)}:: clk
317     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
318     \textcolor{keywordtype}{character(STRING)}:: cause\_c
319     \textcolor{keywordtype}{real}:: stop\_time
320     \textcolor{keywordtype}{integer}:: stat
321     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCClockStop'}
322   \textcolor{keywordflow}{continue}
323     \textcolor{keyword}{call }beginsub(subname)
324     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
325     cause\_c = \textcolor{stringliteral}{'CLOCK'}
326     \textcolor{keywordflow}{if} (.not. clk % initialized) \textcolor{keywordflow}{then}
327       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, \textcolor{stringliteral}{'Call Create before Stop in dc\_clock.'})
328       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'Ignored because input argument was not initialized.'})
329       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
330       \textcolor{keywordflow}{goto} 999
331     \textcolor{keywordflow}{elseif} (clk % start\_time < 0.0\_dp) \textcolor{keywordflow}{then}
332       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, \textcolor{stringliteral}{'Call Start before Stop in dc\_clock.'})
333       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'Ignored because input argument was not started.'})
334       \textcolor{keywordflow}{goto} 999
335 \textcolor{keywordflow}{    end if}
336     \textcolor{keyword}{call }cpu\_time(stop\_time)
337     clk % elapsed\_time = clk % elapsed\_time + stop\_time - clk % start\_time
338     clk % start\_time = - 1.0
339     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'name=%c, cpu\_time=%r, elapsed\_time=%f'}, &
340       & c1=trim(clk % name), r=(/stop\_time/), d=(/clk % elapsed\_time/))
341 999 \textcolor{keywordflow}{continue}
342     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
343     \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}
