\hypertarget{interfacedc__scaledsec_1_1putline}{}\section{dc\+\_\+scaledsec\+:\+:putline Interface Reference}
\label{interfacedc__scaledsec_1_1putline}\index{dc\+\_\+scaledsec\+::putline@{dc\+\_\+scaledsec\+::putline}}
\subsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{interfacedc__scaledsec_1_1putline_a685848ee9f98b4fa0c322d556a4c0dbc}{dcscaledsecputline} (sclsec, unit, indent)
\end{DoxyCompactItemize}


\subsection{Detailed Description}


Definition at line 82 of file dc\+\_\+scaledsec.\+f90.



\subsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacedc__scaledsec_1_1putline_a685848ee9f98b4fa0c322d556a4c0dbc}\label{interfacedc__scaledsec_1_1putline_a685848ee9f98b4fa0c322d556a4c0dbc}} 
\index{dc\+\_\+scaledsec\+::putline@{dc\+\_\+scaledsec\+::putline}!dcscaledsecputline@{dcscaledsecputline}}
\index{dcscaledsecputline@{dcscaledsecputline}!dc\+\_\+scaledsec\+::putline@{dc\+\_\+scaledsec\+::putline}}
\subsubsection{\texorpdfstring{dcscaledsecputline()}{dcscaledsecputline()}}
{\footnotesize\ttfamily subroutine dc\+\_\+scaledsec\+::putline\+::dcscaledsecputline (\begin{DoxyParamCaption}\item[{type(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\+\_\+scaled\+\_\+sec}), intent(in)}]{sclsec,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 343 of file dc\+\_\+scaledsec.\+f90.


\begin{DoxyCode}
343     \textcolor{comment}{!}
344     \textcolor{comment}{! 引数 *sclsec* に設定されている情報を印字します. }
345     \textcolor{comment}{! デフォルトではメッセージは標準出力に出力されます. }
346     \textcolor{comment}{! *unit* に装置番号を指定することで, 出力先を変更することが可能です. }
347     \textcolor{comment}{!}
348     \textcolor{comment}{! Print information of *sclsec*. }
349     \textcolor{comment}{! By default messages are output to standard output. }
350     \textcolor{comment}{! Unit number for output can be changed by *unit* argument. }
351     \textcolor{comment}{!}
352     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1tochar}{tochar}
353     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
354     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
355     \textcolor{keywordtype}{implicit none}
356     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)} :: sclsec
357     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: unit
358                               \textcolor{comment}{! 出力先の装置番号. }
359                               \textcolor{comment}{! デフォルトの出力先は標準出力. }
360                               \textcolor{comment}{!}
361                               \textcolor{comment}{! Unit number for output. }
362                               \textcolor{comment}{! Default value is standard output. }
363     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
364                               \textcolor{comment}{! 表示されるメッセージの字下げ. }
365                               \textcolor{comment}{!}
366                               \textcolor{comment}{! Indent of displayed messages. }
367 
368     \textcolor{keywordtype}{integer} :: out\_unit, sec\_ary\_rev(imin:imax)
369     \textcolor{keywordtype}{integer}:: indent\_len
370     \textcolor{keywordtype}{character(STRING)}:: indent\_str
371     \textcolor{keywordtype}{character(1)}:: \hyperlink{interfacedc__scaledsec_1_1sign}{sign}
372     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'DCScaledSecPutLine'}
373   \textcolor{keywordflow}{continue}
374     \textcolor{comment}{!call BeginSub(subname)}
375 
376     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(unit)) \textcolor{keywordflow}{then}
377       out\_unit = unit
378     \textcolor{keywordflow}{else}
379       out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
380 \textcolor{keywordflow}{    end if}
381 
382     indent\_len = 0
383     indent\_str = \textcolor{stringliteral}{''}
384     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
385       \textcolor{keywordflow}{if} ( len(indent) /= 0 ) \textcolor{keywordflow}{then}
386         indent\_len = len(indent)
387         indent\_str(1:indent\_len) = indent
388 \textcolor{keywordflow}{      end if}
389 \textcolor{keywordflow}{    end if}
390 
391     sec\_ary\_rev(imin:imax) = sclsec % sec\_ary(imax:imin:-1)
392     \textcolor{keywordflow}{if} ( sclsec % flag\_negative ) \textcolor{keywordflow}{then}
393       \hyperlink{interfacedc__scaledsec_1_1sign}{sign} = \textcolor{stringliteral}{'-'}
394     \textcolor{keywordflow}{else}
395       \hyperlink{interfacedc__scaledsec_1_1sign}{sign} = \textcolor{stringliteral}{'+'}
396 \textcolor{keywordflow}{    end if}
397     \textcolor{keywordflow}{if} ( imax - imin + 1 == 6 ) \textcolor{keywordflow}{then}
398       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
399         & indent\_str(1:indent\_len) // &
400         & \textcolor{stringliteral}{'#<DC\_SCALED\_SEC:: @sign=%c @yotta=%d @exa=%d @tera=%d @mega=%d @base=%d @micro=%d>'}, &
401         & i = sec\_ary\_rev, c1 = \hyperlink{interfacedc__scaledsec_1_1sign}{sign} )
402     \textcolor{keywordflow}{elseif} ( imax - imin + 1 == 11 ) \textcolor{keywordflow}{then}
403       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
404         & indent\_str(1:indent\_len) // &
405         & \textcolor{stringliteral}{'#<DC\_SCALED\_SEC:: @sign=%c @yotta=%d @zetta=%d @exa=%d @peta=%d @tera=%d'}, &
406         & i = sec\_ary\_rev(imin:imin+4), c1 = \hyperlink{interfacedc__scaledsec_1_1sign}{sign} )
407       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
408         & indent\_str(1:indent\_len) // &
409         & \textcolor{stringliteral}{'                          @giga=%d @mega=%d @kilo=%d @base=%d @milli=%d @micro=%d>'}, &
410         & i = sec\_ary\_rev(imax-5:imax) )
411     \textcolor{keywordflow}{else}
412       \textcolor{keyword}{call }\hyperlink{interfacedc__string_1_1printf}{printf}(out\_unit, &
413         & indent\_str(1:indent\_len) // &
414         & \textcolor{stringliteral}{'#<DC\_SCALED\_SEC:: @sign=%c @sec\_ary=%*d>'}, &
415         & i = sec\_ary\_rev, n = (/ imax - imin + 1 /), c1 = \hyperlink{interfacedc__scaledsec_1_1sign}{sign} )
416 \textcolor{keywordflow}{    end if}
417   999 \textcolor{keywordflow}{continue}
418     \textcolor{comment}{!call EndSub(subname)}
\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
dc\+\_\+utils/\hyperlink{dc__scaledsec_8f90}{dc\+\_\+scaledsec.\+f90}\end{DoxyCompactItemize}
