\hypertarget{dcdatetimeputline_8f90}{}\section{dc\+\_\+utils/dcdatetimeputline.f90 File Reference}
\label{dcdatetimeputline_8f90}\index{dc\+\_\+utils/dcdatetimeputline.\+f90@{dc\+\_\+utils/dcdatetimeputline.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{dcdatetimeputline_8f90_ac54ce8761297baf8f6d0e6a8ccb0ca0b}{dcdatetimeputline} (time, unit, indent)
\item 
subroutine \hyperlink{dcdatetimeputline_8f90_a8faf137963e5d4e514f0c46560cdc0d7}{dcdifftimeputline} (diff, unit, indent)
\item 
subroutine \hyperlink{dcdatetimeputline_8f90_a83ed140279282076f8a21b5202ff4203}{dcdatetimeputline\+\_\+bc} (time, unit)
\item 
subroutine \hyperlink{dcdatetimeputline_8f90_a786f938f8dea064bafcf10e024ae4799}{dcdifftimeputline\+\_\+bc} (diff, unit)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{dcdatetimeputline_8f90_ac54ce8761297baf8f6d0e6a8ccb0ca0b}\label{dcdatetimeputline_8f90_ac54ce8761297baf8f6d0e6a8ccb0ca0b}} 
\index{dcdatetimeputline.\+f90@{dcdatetimeputline.\+f90}!dcdatetimeputline@{dcdatetimeputline}}
\index{dcdatetimeputline@{dcdatetimeputline}!dcdatetimeputline.\+f90@{dcdatetimeputline.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimeputline()}{dcdatetimeputline()}}
{\footnotesize\ttfamily subroutine dcdatetimeputline (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent }\end{DoxyParamCaption})}



Definition at line 13 of file dcdatetimeputline.\+f90.



References dc\+\_\+scaledsec\+::dcscaledsecputline(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
13   \textcolor{comment}{!}
14   \textcolor{comment}{! 引数 *time* に設定されている情報を印字します. }
15   \textcolor{comment}{! デフォルトではメッセージは標準出力に出力されます. }
16   \textcolor{comment}{! *unit* に装置番号を指定することで, 出力先を変更することが可能です. }
17   \textcolor{comment}{!}
18   \textcolor{comment}{! Print information of *time*. }
19   \textcolor{comment}{! By default messages are output to standard output. }
20   \textcolor{comment}{! Unit number for output can be changed by *unit* argument. }
21   \textcolor{comment}{!}
22   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime
23   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
24   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: printf
25   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub
26   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
27   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline}
28   \textcolor{keywordtype}{implicit none}
29   \textcolor{keywordtype}{type}(dc\_datetime), \textcolor{keywordtype}{intent(in)} :: time
30   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: unit
31                               \textcolor{comment}{! 出力先の装置番号. }
32                               \textcolor{comment}{! デフォルトの出力先は標準出力. }
33                               \textcolor{comment}{!}
34                               \textcolor{comment}{! Unit number for output. }
35                               \textcolor{comment}{! Default value is standard output. }
36   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
37                               \textcolor{comment}{! 表示されるメッセージの字下げ. }
38                               \textcolor{comment}{!}
39                               \textcolor{comment}{! Indent of displayed messages. }
40 
41   \textcolor{keywordtype}{integer} :: out\_unit
42   \textcolor{keywordtype}{integer}:: indent\_len
43   \textcolor{keywordtype}{character(STRING)}:: indent\_str
44   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'DCDateTimePutLine'}
45 \textcolor{keywordflow}{continue}
46   \textcolor{keyword}{call }beginsub(subname)
47   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(unit)) \textcolor{keywordflow}{then}
48     out\_unit = unit
49   \textcolor{keywordflow}{else}
50     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
51 \textcolor{keywordflow}{  end if}
52 
53   indent\_len = 0
54   indent\_str = \textcolor{stringliteral}{''}
55   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
56     \textcolor{keywordflow}{if} ( len(indent) /= 0 ) \textcolor{keywordflow}{then}
57       indent\_len = len(indent)
58       indent\_str(1:indent\_len) = indent
59 \textcolor{keywordflow}{    end if}
60 \textcolor{keywordflow}{  end if}
61 
62   \textcolor{keyword}{call }printf(out\_unit, &
63     & indent\_str(1:indent\_len) // &
64     & \textcolor{stringliteral}{'#<DC\_DATETIME:: @date=%c @caltype=%d @zone=%c'}, &
65     & i=(/time % caltype/), c1=trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(time)), c2=trim(time % zone) )
66 
67   \textcolor{keyword}{call }printf(out\_unit, &
68     & indent\_str(1:indent\_len) // &
69     & \textcolor{stringliteral}{'                @day='} )
70   \textcolor{keyword}{call }\hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline}( time % day, unit = unit, &
71     & indent = indent\_str(1:indent\_len) // &
72     & \textcolor{stringliteral}{'                     '} )
73 
74   \textcolor{keyword}{call }printf(out\_unit, &
75     & indent\_str(1:indent\_len) // &
76     & \textcolor{stringliteral}{'                @sec='} )
77   \textcolor{keyword}{call }\hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline}( time % sec, unit = unit, &
78     & indent = indent\_str(1:indent\_len) // &
79     & \textcolor{stringliteral}{'                     '} )
80 
81   \textcolor{keyword}{call }printf(out\_unit, &
82     & indent\_str(1:indent\_len) // \textcolor{stringliteral}{'>'} )
83 
84 999 \textcolor{keywordflow}{continue}
85   \textcolor{keyword}{call }endsub(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{dcdatetimeputline_8f90_ac54ce8761297baf8f6d0e6a8ccb0ca0b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcdatetimeputline_8f90_a83ed140279282076f8a21b5202ff4203}\label{dcdatetimeputline_8f90_a83ed140279282076f8a21b5202ff4203}} 
\index{dcdatetimeputline.\+f90@{dcdatetimeputline.\+f90}!dcdatetimeputline\+\_\+bc@{dcdatetimeputline\+\_\+bc}}
\index{dcdatetimeputline\+\_\+bc@{dcdatetimeputline\+\_\+bc}!dcdatetimeputline.\+f90@{dcdatetimeputline.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimeputline\+\_\+bc()}{dcdatetimeputline\_bc()}}
{\footnotesize\ttfamily subroutine dcdatetimeputline\+\_\+bc (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time,  }\item[{integer, intent(in), optional}]{unit }\end{DoxyParamCaption})}



Definition at line 176 of file dcdatetimeputline.\+f90.


\begin{DoxyCode}
176   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime
177   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1dcdatetimeputline}{dcdatetimeputline}
178   \textcolor{keywordtype}{type}(dc\_datetime), \textcolor{keywordtype}{intent(in)} :: time
179   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: unit
180 \textcolor{keywordflow}{continue}
181   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdatetimeputline}{dcdatetimeputline}( time, unit )
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeputline_8f90_a8faf137963e5d4e514f0c46560cdc0d7}\label{dcdatetimeputline_8f90_a8faf137963e5d4e514f0c46560cdc0d7}} 
\index{dcdatetimeputline.\+f90@{dcdatetimeputline.\+f90}!dcdifftimeputline@{dcdifftimeputline}}
\index{dcdifftimeputline@{dcdifftimeputline}!dcdatetimeputline.\+f90@{dcdatetimeputline.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeputline()}{dcdifftimeputline()}}
{\footnotesize\ttfamily subroutine dcdifftimeputline (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{integer, intent(in), optional}]{unit,  }\item[{character($\ast$), intent(in), optional}]{indent }\end{DoxyParamCaption})}



Definition at line 89 of file dcdatetimeputline.\+f90.



References dc\+\_\+scaledsec\+::dcscaledsecputline(), dc\+\_\+types\+::stdout, and dc\+\_\+types\+::string.


\begin{DoxyCode}
89   \textcolor{comment}{!}
90   \textcolor{comment}{! 引数 *diff* に設定されている情報を印字します. }
91   \textcolor{comment}{! デフォルトではメッセージは標準出力に出力されます. }
92   \textcolor{comment}{! *unit* に装置番号を指定することで, 出力先を変更することが可能です. }
93   \textcolor{comment}{!}
94   \textcolor{comment}{! Print information of *diff*. }
95   \textcolor{comment}{! By default messages are output to standard output. }
96   \textcolor{comment}{! Unit number for output can be changed by *unit* argument. }
97   \textcolor{comment}{!}
98   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_difftime
99   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1tochar}{tochar}
100   \textcolor{keywordtype}{use }dc\_string\textcolor{keywordtype}{, only}: printf
101   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub
102   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}
103   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline}
104   \textcolor{keywordtype}{implicit none}
105   \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)} :: diff
106   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: unit
107                               \textcolor{comment}{! 出力先の装置番号. }
108                               \textcolor{comment}{! デフォルトの出力先は標準出力. }
109                               \textcolor{comment}{!}
110                               \textcolor{comment}{! Unit number for output. }
111                               \textcolor{comment}{! Default value is standard output. }
112   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: indent
113                               \textcolor{comment}{! 表示されるメッセージの字下げ. }
114                               \textcolor{comment}{!}
115                               \textcolor{comment}{! Indent of displayed messages. }
116 
117   \textcolor{keywordtype}{integer} :: out\_unit
118   \textcolor{keywordtype}{integer}:: indent\_len
119   \textcolor{keywordtype}{character(STRING)}:: indent\_str
120   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'DCDiffTimePutLine'}
121 \textcolor{keywordflow}{continue}
122   \textcolor{keyword}{call }beginsub(subname)
123   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(unit)) \textcolor{keywordflow}{then}
124     out\_unit = unit
125   \textcolor{keywordflow}{else}
126     out\_unit = \hyperlink{namespacedc__types_a5d5ccca8cc2b447f2a0546da0a22efdc}{stdout}
127 \textcolor{keywordflow}{  end if}
128 
129   indent\_len = 0
130   indent\_str = \textcolor{stringliteral}{''}
131   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(indent) ) \textcolor{keywordflow}{then}
132     \textcolor{keywordflow}{if} ( len(indent) /= 0 ) \textcolor{keywordflow}{then}
133       indent\_len = len(indent)
134       indent\_str(1:indent\_len) = indent
135 \textcolor{keywordflow}{    end if}
136 \textcolor{keywordflow}{  end if}
137 
138   \textcolor{keyword}{call }printf(out\_unit, &
139     & indent\_str(1:indent\_len) // &
140     & \textcolor{stringliteral}{'#<DC\_DIFFTIME:: @diff=%c @nondim=%b'}, &
141     & c1 = trim(\hyperlink{interfacedc__date__generic_1_1tochar}{tochar}(diff)), l = (/ diff % nondim\_flag /) )
142 
143   \textcolor{keyword}{call }printf(out\_unit, &
144     & indent\_str(1:indent\_len) // &
145     & \textcolor{stringliteral}{'                @mon='} )
146   \textcolor{keyword}{call }\hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline}( diff % mon, unit = unit, &
147     & indent = indent\_str(1:indent\_len) // &
148     & \textcolor{stringliteral}{'                     '} )
149 
150   \textcolor{keyword}{call }printf(out\_unit, &
151     & indent\_str(1:indent\_len) // &
152     & \textcolor{stringliteral}{'                @day='} )
153   \textcolor{keyword}{call }\hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline}( diff % day, unit = unit, &
154     & indent = indent\_str(1:indent\_len) // &
155     & \textcolor{stringliteral}{'                     '} )
156 
157   \textcolor{keyword}{call }printf(out\_unit, &
158     & indent\_str(1:indent\_len) // &
159     & \textcolor{stringliteral}{'                @sec='} )
160   \textcolor{keyword}{call }\hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline}( diff % sec, unit = unit, &
161     & indent = indent\_str(1:indent\_len) // &
162     & \textcolor{stringliteral}{'                     '} )
163 
164   \textcolor{keyword}{call }printf(out\_unit, &
165     & indent\_str(1:indent\_len) // \textcolor{stringliteral}{'>'} )
166 
167 999 \textcolor{keywordflow}{continue}
168   \textcolor{keyword}{call }endsub(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{dcdatetimeputline_8f90_a8faf137963e5d4e514f0c46560cdc0d7_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcdatetimeputline_8f90_a786f938f8dea064bafcf10e024ae4799}\label{dcdatetimeputline_8f90_a786f938f8dea064bafcf10e024ae4799}} 
\index{dcdatetimeputline.\+f90@{dcdatetimeputline.\+f90}!dcdifftimeputline\+\_\+bc@{dcdifftimeputline\+\_\+bc}}
\index{dcdifftimeputline\+\_\+bc@{dcdifftimeputline\+\_\+bc}!dcdatetimeputline.\+f90@{dcdatetimeputline.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeputline\+\_\+bc()}{dcdifftimeputline\_bc()}}
{\footnotesize\ttfamily subroutine dcdifftimeputline\+\_\+bc (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{integer, intent(in), optional}]{unit }\end{DoxyParamCaption})}



Definition at line 185 of file dcdatetimeputline.\+f90.


\begin{DoxyCode}
185   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_difftime
186   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1dcdifftimeputline}{dcdifftimeputline}
187   \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)} :: diff
188   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: unit
189 \textcolor{keywordflow}{continue}
190   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdifftimeputline}{dcdifftimeputline}( diff, unit )
\end{DoxyCode}
