\hypertarget{interfacedc__clock_1_1putline}{}\section{dc\+\_\+clock\+:\+:putline Interface Reference}
\label{interfacedc__clock_1_1putline}\index{dc\+\_\+clock\+::putline@{dc\+\_\+clock\+::putline}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacedc__clock_1_1putline_a7a5ca7ac15a40ebb265364980f3186f6}{dcclockputline0} (clk, unit, indent, err)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


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



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



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


\begin{DoxyCode}
468     \textcolor{comment}{!}
469     \textcolor{comment}{!=== 構造型 CLOCK 変数の情報を表示}
470     \textcolor{comment}{!}
471     \textcolor{comment}{! 構造型 CLOCK 変数に関する情報を表示します. *unit* には出力先の装置番号を}
472     \textcolor{comment}{! 与えてください. *unit* を与えない場合, 標準出力へ表示されます.}
473     \textcolor{comment}{!}
474     \textcolor{comment}{! 第一引数 *clk* に対して DCClockCreate による初期化が行われていない場合,}
475     \textcolor{comment}{! エラーを発生させます. *err* を与える場合には *err* に .true. が返り,}
476     \textcolor{comment}{! プログラムは続行されます.}
477     \textcolor{comment}{!}
478     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
479     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
480     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__string_1_1cprintf}{cprintf}
481     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}, \hyperlink{interfacedc__date__generic_1_1evalday}{evalday}, \hyperlink{interfacedc__string_1_1tochar}{tochar}
482     \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}
483     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
484     \textcolor{keywordtype}{implicit none}
485     \textcolor{keywordtype}{type}(clock), \textcolor{keywordtype}{intent(in)}:: clk
486     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit
487     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
488                               \textcolor{comment}{! 表示されるメッセージの字下げ.}
489                               \textcolor{comment}{!}
490                               \textcolor{comment}{! Indent of displayed messages.}
491     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
492     \textcolor{keywordtype}{integer}:: out\_unit
493     \textcolor{keywordtype}{character(STRING)}:: cause\_c
494     \textcolor{keywordtype}{integer}:: stat
495     \textcolor{keywordtype}{integer}:: indent\_len
496     \textcolor{keywordtype}{character(STRING)}:: indent\_str
497     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCClockPutLine'}
498   \textcolor{keywordflow}{continue}
499     \textcolor{keyword}{call }beginsub(subname)
500     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
501     cause\_c = \textcolor{stringliteral}{'CLOCK'}
502     \textcolor{keywordflow}{if} (.not. clk % initialized) \textcolor{keywordflow}{then}
503       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}(\textcolor{stringliteral}{'W'}, subname, \textcolor{stringliteral}{'Call Create before PutLine in dc\_clock.'})
504       \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'Ignored because input argument was not initialized.'})
505       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
506       \textcolor{keywordflow}{goto} 999
507 \textcolor{keywordflow}{    end if}
508     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(unit)) \textcolor{keywordflow}{then}
509       out\_unit = unit
510     \textcolor{keywordflow}{else}
511       out\_unit = stdout
512 \textcolor{keywordflow}{    end if}
513     indent\_len = 0
514     indent\_str = \textcolor{stringliteral}{''}
515     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(indent)) \textcolor{keywordflow}{then}
516       \textcolor{keywordflow}{if} (len(indent) /= 0) \textcolor{keywordflow}{then}
517         indent\_len = len(indent)
518         indent\_str(1:indent\_len) = indent
519 \textcolor{keywordflow}{      end if}
520 \textcolor{keywordflow}{    end if}
521     \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
522       & indent\_str(1:indent\_len) // &
523       & \textcolor{stringliteral}{'#<CLOCK:: @name=%c @clocking=%y @elapsed\_time=%f sec. %c @start\_date=%c>'}, &
524       & c1=trim(clk % name), l=(/clk % start\_time > 0.0\_dp/), &
525       & d=(/clk % elapsed\_time/), &
526       & c2=trim(fit\_unit\_value(clk % elapsed\_time)), &
527       & c3=trim(\hyperlink{interfacedc__string_1_1tochar}{tochar}(clk % start\_date)))
528     \textcolor{keyword}{call }dbgmessage(\textcolor{stringliteral}{'name=%c, output to device number %d'}, &
529       & c1=trim(clk % name), i=(/out\_unit/))
530 999 \textcolor{keywordflow}{continue}
531     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err, cause\_c)
532     \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}
