\hypertarget{interfacedc__clock_1_1get}{}\section{dc\+\_\+clock\+:\+:get Interface Reference}
\label{interfacedc__clock_1_1get}\index{dc\+\_\+clock\+::get@{dc\+\_\+clock\+::get}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacedc__clock_1_1get_aeadafa6e03ca563a2fa234309ca64d1a}{dcclockgetr} (clk, sec, err)
\item 
subroutine \hyperlink{interfacedc__clock_1_1get_ab8f2157216128cfb0e6587a20e3cb9dd}{dcclockgetd} (clk, sec, err)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



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



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


\begin{DoxyCode}
385     \textcolor{comment}{!}
386     \textcolor{comment}{!=== CPU 時間 (単位: 秒) の取得}
387     \textcolor{comment}{!}
388     \textcolor{comment}{! CPU 時間 (単位: 秒) を *sec* に取得します.}
389     \textcolor{comment}{!}
390     \textcolor{comment}{! 第一引数 *clk* に対して DCClockCreate による初期化が行われていない場合,}
391     \textcolor{comment}{! エラーを発生させます.}
392     \textcolor{comment}{! 第二引数 *err* を与える場合には *err* に .true. が返り,}
393     \textcolor{comment}{! プログラムは続行されます.}
394     \textcolor{comment}{!}
395     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
396     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
397     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
398     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}
399     \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}
400     \textcolor{keywordtype}{implicit none}
401     \textcolor{keywordtype}{type}(clock), \textcolor{keywordtype}{intent(in)}:: clk
402     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}:: sec
403     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
404     \textcolor{keywordtype}{character(STRING)}:: cause\_c
405     \textcolor{keywordtype}{integer}:: stat
406     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCClockGetD'}
407   \textcolor{keywordflow}{continue}
408     \textcolor{keyword}{call }beginsub(subname)
409     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
410     cause\_c = \textcolor{stringliteral}{'CLOCK'}
411     \textcolor{keywordflow}{if} (.not. clk % initialized) \textcolor{keywordflow}{then}
412       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, \textcolor{stringliteral}{'Call Create before Get in dc\_clock.'})
413       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'Ignored because input argument was not initialized.'})
414       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
415       \textcolor{keywordflow}{goto} 999
416 \textcolor{keywordflow}{    end if}
417     sec = clk % elapsed\_time
418     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'name=%c, return sec=<%f>'}, &
419       & c1=trim(clk % name), d=(/sec/))
420 999 \textcolor{keywordflow}{continue}
421     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
422     \textcolor{keyword}{call }endsub(subname)
\end{DoxyCode}
\mbox{\Hypertarget{interfacedc__clock_1_1get_aeadafa6e03ca563a2fa234309ca64d1a}\label{interfacedc__clock_1_1get_aeadafa6e03ca563a2fa234309ca64d1a}} 
\index{dc\+\_\+clock\+::get@{dc\+\_\+clock\+::get}!dcclockgetr@{dcclockgetr}}
\index{dcclockgetr@{dcclockgetr}!dc\+\_\+clock\+::get@{dc\+\_\+clock\+::get}}
\subsubsection{\texorpdfstring{dcclockgetr()}{dcclockgetr()}}
{\footnotesize\ttfamily subroutine dc\+\_\+clock\+::get\+::dcclockgetr (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__clock_1_1clock}{clock}), intent(in)}]{clk,  }\item[{real, intent(out)}]{sec,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}
346     \textcolor{comment}{!}
347     \textcolor{comment}{!=== CPU 時間 (単位: 秒) の取得}
348     \textcolor{comment}{!}
349     \textcolor{comment}{! CPU 時間 (単位: 秒) を *sec* に取得します.}
350     \textcolor{comment}{!}
351     \textcolor{comment}{! 第一引数 *clk* に対して DCClockCreate による初期化が行われていない場合,}
352     \textcolor{comment}{! エラーを発生させます. *err* を与える場合には *err* に .true. が返り,}
353     \textcolor{comment}{! プログラムは続行されます.}
354     \textcolor{comment}{!}
355     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
356     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
357     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}
358     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
359     \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}
360     \textcolor{keywordtype}{implicit none}
361     \textcolor{keywordtype}{type}(clock), \textcolor{keywordtype}{intent(in)}:: clk
362     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(out)}:: sec
363     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
364     \textcolor{keywordtype}{character(STRING)}:: cause\_c
365     \textcolor{keywordtype}{integer}:: stat
366     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCClockGetR'}
367   \textcolor{keywordflow}{continue}
368     \textcolor{keyword}{call }beginsub(subname)
369     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
370     cause\_c = \textcolor{stringliteral}{'CLOCK'}
371     \textcolor{keywordflow}{if} (.not. clk % initialized) \textcolor{keywordflow}{then}
372       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, \textcolor{stringliteral}{'Call Create before Get in dc\_clock.'})
373       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'Ignored because input argument was not initialized.'})
374       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
375       \textcolor{keywordflow}{goto} 999
376 \textcolor{keywordflow}{    end if}
377     sec = clk % elapsed\_time
378     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'name=%c, return sec=<%r>'}, &
379       & c1=trim(clk % name), r=(/sec/))
380 999 \textcolor{keywordflow}{continue}
381     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
382     \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}
