\hypertarget{interfacedc__clock_1_1dcclockcreate}{}\section{dc\+\_\+clock\+:\+:dcclockcreate Interface Reference}
\label{interfacedc__clock_1_1dcclockcreate}\index{dc\+\_\+clock\+::dcclockcreate@{dc\+\_\+clock\+::dcclockcreate}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacedc__clock_1_1dcclockcreate_ad9ee9188fa6dfbe76dade546eee3e17f}{dcclockcreate0} (clk, name)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



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



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


\begin{DoxyCode}
216     \textcolor{comment}{!}
217     \textcolor{comment}{!=== CLOCK の初期化用サブルーチン}
218     \textcolor{comment}{!}
219     \textcolor{comment}{! CLOCK 型の変数を利用する際にはまずこのサブルーチンによって}
220     \textcolor{comment}{! 初期化を行ってください. *name* には計測内容を与えてください.}
221     \textcolor{comment}{!}
222     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
223     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1dcdatetimecreate}{dcdatetimecreate}
224     \textcolor{keywordtype}{implicit none}
225     \textcolor{keywordtype}{type}(clock), \textcolor{keywordtype}{intent(out)}:: clk
226     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: name
227     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCClockCreate'}
228   \textcolor{keywordflow}{continue}
229     \textcolor{keyword}{call }beginsub(subname, \textcolor{stringliteral}{'name=%c'}, c1=trim(name), version=version)
230     \textcolor{keywordflow}{if} (clk % initialized) \textcolor{keywordflow}{then}
231       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, \textcolor{stringliteral}{'This argument (type CLOCK) is already initialized.'})
232       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'already initialized'})
233       \textcolor{keywordflow}{goto} 999
234 \textcolor{keywordflow}{    end if}
235     clk % name = name
236     clk % elapsed\_time = 0.0
237     clk % start\_time = - 1.0
238     clk % initialized = .true.
239     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdatetimecreate}{dcdatetimecreate}(clk % start\_date)
240     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'normal initialized'})
241 999 \textcolor{keywordflow}{continue}
242     \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}
