\hypertarget{namespacedc__date__internal}{}\section{dc\+\_\+date\+\_\+internal Module Reference}
\label{namespacedc__date__internal}\index{dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \hyperlink{namespacedc__date__internal_ac3f0935623089b447b453928ff99b788}{dcdate\+\_\+normalize} (day, sec, day\+\_\+seconds, nondim\+\_\+flag)
\item 
subroutine, public \hyperlink{namespacedc__date__internal_a986d1c2850053f05ac5e05101c3a898d}{dcdate\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl}
\item 
subroutine, public \hyperlink{namespacedc__date__internal_ad90bad9c02e4b49abc3d68572bb74798}{dcdate\+\_\+nondimcheck} (opr, diff1, diff2, rslt)
\item 
integer function \hyperlink{namespacedc__date__internal_a10cffe901f5bed8b5a2d7a6958ce63a9}{parsetimeunits} (str)
\item 
character(token) function, public \hyperlink{namespacedc__date__internal_a512c765dae0b63290c3e1af3cd94aedf}{dcdate\+\_\+parse\+\_\+unit} (str)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacedc__date__internal_ad90bad9c02e4b49abc3d68572bb74798}\label{namespacedc__date__internal_ad90bad9c02e4b49abc3d68572bb74798}} 
\index{dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}!dcdate\+\_\+nondimcheck@{dcdate\+\_\+nondimcheck}}
\index{dcdate\+\_\+nondimcheck@{dcdate\+\_\+nondimcheck}!dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}}
\subsubsection{\texorpdfstring{dcdate\+\_\+nondimcheck()}{dcdate\_nondimcheck()}}
{\footnotesize\ttfamily subroutine, public dc\+\_\+date\+\_\+internal\+::dcdate\+\_\+nondimcheck (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{opr,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff1,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff2,  }\item[{type(dc\+\_\+difftime), intent(inout)}]{rslt }\end{DoxyParamCaption})}



Definition at line 84 of file dc\+\_\+date\+\_\+internal.\+f90.



References dc\+\_\+error\+::dc\+\_\+edimtime, and dc\+\_\+error\+::storeerror().



Referenced by dcdatetime\+\_\+add\+\_\+fd(), dcdatetime\+\_\+add\+\_\+ff(), dcdatetime\+\_\+max\+\_\+ff(), dcdatetime\+\_\+min\+\_\+ff(), dcdatetime\+\_\+mod\+\_\+ff(), and dcdatetime\+\_\+sub\+\_\+ff().


\begin{DoxyCode}
84     \textcolor{comment}{!}
85     \textcolor{comment}{! このサブルーチンは内部向けなので dc\_date モジュール外では}
86     \textcolor{comment}{! 極力使用しないでください.}
87     \textcolor{comment}{!}
88     \textcolor{comment}{! diff1 と diff2 が両方とも有次元もしくは無次元かをチェックし, }
89     \textcolor{comment}{! 両方が同じであれば, その結果を rslt に適用します. }
90     \textcolor{comment}{! 2つの引数で片方が有次元, もう片方が無次元の場合には}
91     \textcolor{comment}{! エラーを発生させます. }
92     \textcolor{comment}{!}
93     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_ad5877d584d189e33a99626e982b02720}{dc\_edimtime}
94     \textcolor{keywordtype}{implicit none}
95     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: opr  \textcolor{comment}{! 演算子の名称}
96     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff1, diff2
97     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(inout)}:: rslt
98   \textcolor{keywordflow}{continue}
99     \textcolor{keywordflow}{if} (      (       diff1 % nondim\_flag .and. .not. diff2 % nondim\_flag ) &
100       &  .or. ( .not. diff1 % nondim\_flag .and.       diff2 % nondim\_flag ) ) \textcolor{keywordflow}{then}
101       \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(\hyperlink{namespacedc__error_ad5877d584d189e33a99626e982b02720}{dc\_edimtime}, opr)
102 \textcolor{keywordflow}{    end if}
103     rslt % nondim\_flag = diff1 % nondim\_flag
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__date__internal_ad90bad9c02e4b49abc3d68572bb74798_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=339pt]{namespacedc__date__internal_ad90bad9c02e4b49abc3d68572bb74798_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__date__internal_ac3f0935623089b447b453928ff99b788}\label{namespacedc__date__internal_ac3f0935623089b447b453928ff99b788}} 
\index{dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}!dcdate\+\_\+normalize@{dcdate\+\_\+normalize}}
\index{dcdate\+\_\+normalize@{dcdate\+\_\+normalize}!dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}}
\subsubsection{\texorpdfstring{dcdate\+\_\+normalize()}{dcdate\_normalize()}}
{\footnotesize\ttfamily subroutine, public dc\+\_\+date\+\_\+internal\+::dcdate\+\_\+normalize (\begin{DoxyParamCaption}\item[{type(dc\+\_\+scaled\+\_\+sec), intent(inout)}]{day,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(inout)}]{sec,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(in), optional}]{day\+\_\+seconds,  }\item[{logical, intent(in)}]{nondim\+\_\+flag }\end{DoxyParamCaption})}



Definition at line 27 of file dc\+\_\+date\+\_\+internal.\+f90.



References dc\+\_\+date\+\_\+types\+::day\+\_\+seconds\+\_\+scl, dcdate\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl(), and dc\+\_\+date\+\_\+types\+::flag\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl.



Referenced by dcdatetime\+\_\+add\+\_\+fd(), dcdatetime\+\_\+add\+\_\+ff(), dcdatetime\+\_\+div\+\_\+fd(), dcdatetime\+\_\+mod\+\_\+ff(), dcdatetime\+\_\+mul\+\_\+df(), dcdatetime\+\_\+mul\+\_\+if(), dcdatetime\+\_\+sub\+\_\+fd(), dcdatetime\+\_\+sub\+\_\+ff(), dcdatetime\+\_\+sub\+\_\+tt(), and dcdifftimecreate1().


\begin{DoxyCode}
27     \textcolor{comment}{!}
28     \textcolor{comment}{!=== 日と秒の正規化}
29     \textcolor{comment}{!}
30     \textcolor{comment}{! このサブルーチンは内部向けなので dc\_date モジュール外では}
31     \textcolor{comment}{! 極力使用しないでください.}
32     \textcolor{comment}{!}
33     \textcolor{comment}{! 日付 *day* と秒数 *sec* の正規化を行います. *sec* が *day\_seconds*}
34     \textcolor{comment}{! (省略される場合は dc\_date\_types#day\_seconds) を超える場合, *day*}
35     \textcolor{comment}{! に繰上げを行います.}
36     \textcolor{comment}{! また, *sec* と *day* の符号が逆の場合, 同符号になるよう}
37     \textcolor{comment}{! 設定します.}
38     \textcolor{comment}{!}
39     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: &
40       & \hyperlink{namespacedc__date__types_a76480c9f5c3830964e78f329d2cd0834}{flag\_set\_day\_seconds\_scl}, \hyperlink{namespacedc__date__types_a6639cadf54729d549ad335815ece6762}{day\_seconds\_scl}
41     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, &
42       & \textcolor{keyword}{operator}(<), \textcolor{keyword}{operator}(>), \textcolor{keyword}{operator}(<=), \textcolor{keyword}{operator}(>=), &
43       & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(-), \textcolor{keyword}{operator}(*), \textcolor{keyword}{operator}(/), &
44       & \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}, \hyperlink{interfacedc__scaledsec_1_1int}{int}, \hyperlink{interfacedc__scaledsec_1_1abs}{abs}, \hyperlink{interfacedc__scaledsec_1_1sign}{sign}
45     \textcolor{keywordtype}{implicit none}
46     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(inout)}:: day
47     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(inout)}:: sec
48     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: day\_seconds
49     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}:: nondim\_flag
50     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: sgn, day\_sec, zero\_sec
51   \textcolor{keywordflow}{continue}
52     \textcolor{keywordflow}{if} ( nondim\_flag ) \textcolor{keywordflow}{return}
53     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(day\_seconds)) \textcolor{keywordflow}{then}
54       day\_sec = day\_seconds
55     \textcolor{keywordflow}{else}
56       \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__date__types_a76480c9f5c3830964e78f329d2cd0834}{flag\_set\_day\_seconds\_scl} ) \textcolor{keyword}{call }dcdate\_set\_day\_seconds\_scl
57       day\_sec = \hyperlink{namespacedc__date__types_a6639cadf54729d549ad335815ece6762}{day\_seconds\_scl}
58 \textcolor{keywordflow}{    end if}
59     \textcolor{keywordflow}{if} (\hyperlink{interfacedc__scaledsec_1_1abs}{abs}(sec) >= day\_sec) \textcolor{keywordflow}{then}
60       day = day + \hyperlink{interfacedc__scaledsec_1_1int}{int}(sec / day\_sec)
61       sec = \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(sec, day\_sec)
62 \textcolor{keywordflow}{    end if}
63 \textcolor{comment}{!!    zero\_sec = 0  (デフォルト値 = 0 を使用する). }
64     \textcolor{keywordflow}{if} (      ( sec > zero\_sec .and. day < zero\_sec ) &
65       &  .or. ( sec < zero\_sec .and. day > zero\_sec )   ) \textcolor{keywordflow}{then}
66       sgn = \hyperlink{interfacedc__scaledsec_1_1sign}{sign}(day, 1)
67       day = day - sgn
68       sec = sec + sgn * day\_sec
69 \textcolor{keywordflow}{    endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__date__internal_ac3f0935623089b447b453928ff99b788_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=339pt]{namespacedc__date__internal_ac3f0935623089b447b453928ff99b788_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__date__internal_a512c765dae0b63290c3e1af3cd94aedf}\label{namespacedc__date__internal_a512c765dae0b63290c3e1af3cd94aedf}} 
\index{dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}!dcdate\+\_\+parse\+\_\+unit@{dcdate\+\_\+parse\+\_\+unit}}
\index{dcdate\+\_\+parse\+\_\+unit@{dcdate\+\_\+parse\+\_\+unit}!dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}}
\subsubsection{\texorpdfstring{dcdate\+\_\+parse\+\_\+unit()}{dcdate\_parse\_unit()}}
{\footnotesize\ttfamily character(token) function, public dc\+\_\+date\+\_\+internal\+::dcdate\+\_\+parse\+\_\+unit (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{str }\end{DoxyParamCaption})}



Definition at line 208 of file dc\+\_\+date\+\_\+internal.\+f90.



References dc\+\_\+types\+::token, dc\+\_\+date\+\_\+types\+::unit\+\_\+day, dc\+\_\+date\+\_\+types\+::unit\+\_\+hour, dc\+\_\+date\+\_\+types\+::unit\+\_\+min, dc\+\_\+date\+\_\+types\+::unit\+\_\+month, dc\+\_\+date\+\_\+types\+::unit\+\_\+nondim, dc\+\_\+date\+\_\+types\+::unit\+\_\+sec, and dc\+\_\+date\+\_\+types\+::unit\+\_\+year.


\begin{DoxyCode}
208     \textcolor{comment}{!}
209     \textcolor{comment}{! このサブルーチンは内部向けなので dc\_date モジュール外では}
210     \textcolor{comment}{! 極力使用しないでください.}
211     \textcolor{comment}{!}
212     \textcolor{comment}{! 引数 *str* に与えられた文字列を解釈し, 日時の単位を}
213     \textcolor{comment}{! 返します. それぞれ以下の文字列が日時の単位として解釈されます.}
214     \textcolor{comment}{! 大文字と小文字は区別されません.}
215     \textcolor{comment}{! 返る文字列は以下の文字型の配列の先頭の文字列です.}
216     \textcolor{comment}{! (例: *str* に 'hrs.' が与えられる場合, dc\_date\_types#UNIT\_HOUR}
217     \textcolor{comment}{! 配列の先頭の文字列 UNIT\_HOUR(1) が返ります.)}
218     \textcolor{comment}{!}
219     \textcolor{comment}{! 年         :: dc\_date\_types#UNIT\_YEAR}
220     \textcolor{comment}{! 月         :: dc\_date\_types#UNIT\_MONTH}
221     \textcolor{comment}{! 日         :: dc\_date\_types#UNIT\_DAY}
222     \textcolor{comment}{! 時         :: dc\_date\_types#UNIT\_HOUR}
223     \textcolor{comment}{! 分         :: dc\_date\_types#UNIT\_MIN}
224     \textcolor{comment}{! 秒         :: dc\_date\_types#UNIT\_SEC}
225     \textcolor{comment}{! 無次元時間 :: dc\_date\_types#UNIT\_NONDIM}
226     \textcolor{comment}{!}
227     \textcolor{comment}{! これらに該当しない文字列を *str* に与えた場合, 空文字が返ります.}
228     \textcolor{comment}{!}
229     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
230     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__date__types_aee434347343763e4315c88517a09dd17}{unit\_year}, \hyperlink{namespacedc__date__types_a0171673ef9705dc97fd12e5bffdf0810}{unit\_month}, 
      \hyperlink{namespacedc__date__types_a6da8cbb0bc9447d97e79e735460cc4ef}{unit\_day}, &
231       & \hyperlink{namespacedc__date__types_ac98b784dce5552f0b58038abbde0aab8}{unit\_hour}, \hyperlink{namespacedc__date__types_afb17aa2ee3d49744a510337afe27facf}{unit\_min}, \hyperlink{namespacedc__date__types_ac452eae56edaf57fe765430ef848a788}{unit\_sec}, \hyperlink{namespacedc__date__types_a3509f6cb130eb760ec4a1fc94dc7d3fe}{unit\_nondim}
232     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1strieq}{strieq}
233     \textcolor{keywordtype}{implicit none}
234     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: str
235     \textcolor{keywordtype}{integer} :: unit\_str\_size, i
236   \textcolor{keywordflow}{continue}
237     unit = adjustl(str)
238     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_a3509f6cb130eb760ec4a1fc94dc7d3fe}{unit\_nondim})
239     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
240       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_a3509f6cb130eb760ec4a1fc94dc7d3fe}{unit\_nondim}(i)))) \textcolor{keywordflow}{then}
241         unit = \hyperlink{namespacedc__date__types_a3509f6cb130eb760ec4a1fc94dc7d3fe}{unit\_nondim}(1)
242         \textcolor{keywordflow}{return}
243 \textcolor{keywordflow}{      end if}
244 \textcolor{keywordflow}{    end do}
245 
246     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_ac452eae56edaf57fe765430ef848a788}{unit\_sec})
247     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
248       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_ac452eae56edaf57fe765430ef848a788}{unit\_sec}(i)))) \textcolor{keywordflow}{then}
249         unit = \hyperlink{namespacedc__date__types_ac452eae56edaf57fe765430ef848a788}{unit\_sec}(1)
250         \textcolor{keywordflow}{return}
251 \textcolor{keywordflow}{      end if}
252 \textcolor{keywordflow}{    end do}
253 
254     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_afb17aa2ee3d49744a510337afe27facf}{unit\_min})
255     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
256       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_afb17aa2ee3d49744a510337afe27facf}{unit\_min}(i)))) \textcolor{keywordflow}{then}
257         unit = \hyperlink{namespacedc__date__types_afb17aa2ee3d49744a510337afe27facf}{unit\_min}(1)
258         \textcolor{keywordflow}{return}
259 \textcolor{keywordflow}{      end if}
260 \textcolor{keywordflow}{    end do}
261 
262     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_ac98b784dce5552f0b58038abbde0aab8}{unit\_hour})
263     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
264       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_ac98b784dce5552f0b58038abbde0aab8}{unit\_hour}(i)))) \textcolor{keywordflow}{then}
265         unit = \hyperlink{namespacedc__date__types_ac98b784dce5552f0b58038abbde0aab8}{unit\_hour}(1)
266         \textcolor{keywordflow}{return}
267 \textcolor{keywordflow}{      end if}
268 \textcolor{keywordflow}{    end do}
269 
270     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_a6da8cbb0bc9447d97e79e735460cc4ef}{unit\_day})
271     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
272       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_a6da8cbb0bc9447d97e79e735460cc4ef}{unit\_day}(i)))) \textcolor{keywordflow}{then}
273         unit = \hyperlink{namespacedc__date__types_a6da8cbb0bc9447d97e79e735460cc4ef}{unit\_day}(1)
274         \textcolor{keywordflow}{return}
275 \textcolor{keywordflow}{      end if}
276 \textcolor{keywordflow}{    end do}
277 
278     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_a0171673ef9705dc97fd12e5bffdf0810}{unit\_month})
279     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
280       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_a0171673ef9705dc97fd12e5bffdf0810}{unit\_month}(i)))) \textcolor{keywordflow}{then}
281         unit = \hyperlink{namespacedc__date__types_a0171673ef9705dc97fd12e5bffdf0810}{unit\_month}(1)
282         \textcolor{keywordflow}{return}
283 \textcolor{keywordflow}{      end if}
284 \textcolor{keywordflow}{    end do}
285 
286     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_aee434347343763e4315c88517a09dd17}{unit\_year})
287     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
288       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_aee434347343763e4315c88517a09dd17}{unit\_year}(i)))) \textcolor{keywordflow}{then}
289         unit = \hyperlink{namespacedc__date__types_aee434347343763e4315c88517a09dd17}{unit\_year}(1)
290         \textcolor{keywordflow}{return}
291 \textcolor{keywordflow}{      end if}
292 \textcolor{keywordflow}{    end do}
293 
294     unit = \textcolor{stringliteral}{''}
295 
\end{DoxyCode}
\mbox{\Hypertarget{namespacedc__date__internal_a986d1c2850053f05ac5e05101c3a898d}\label{namespacedc__date__internal_a986d1c2850053f05ac5e05101c3a898d}} 
\index{dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}!dcdate\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl@{dcdate\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl}}
\index{dcdate\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl@{dcdate\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl}!dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}}
\subsubsection{\texorpdfstring{dcdate\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl()}{dcdate\_set\_day\_seconds\_scl()}}
{\footnotesize\ttfamily subroutine, public dc\+\_\+date\+\_\+internal\+::dcdate\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



Definition at line 73 of file dc\+\_\+date\+\_\+internal.\+f90.



References dc\+\_\+date\+\_\+types\+::day\+\_\+seconds, dc\+\_\+date\+\_\+types\+::day\+\_\+seconds\+\_\+scl, and dc\+\_\+date\+\_\+types\+::flag\+\_\+set\+\_\+day\+\_\+seconds\+\_\+scl.



Referenced by dcdate\+\_\+normalize(), and dcdatetimecreate1().


\begin{DoxyCode}
73     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, \textcolor{keyword}{assignment}(=)
74     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__date__types_a4a0b5df0058a97b5f9e071ecb0fb7aa7}{day\_seconds},  &
75       & \hyperlink{namespacedc__date__types_a76480c9f5c3830964e78f329d2cd0834}{flag\_set\_day\_seconds\_scl}, \hyperlink{namespacedc__date__types_a6639cadf54729d549ad335815ece6762}{day\_seconds\_scl}
76   \textcolor{keywordflow}{continue}
77     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__date__types_a76480c9f5c3830964e78f329d2cd0834}{flag\_set\_day\_seconds\_scl} ) \textcolor{keywordflow}{then}
78       \hyperlink{namespacedc__date__types_a76480c9f5c3830964e78f329d2cd0834}{flag\_set\_day\_seconds\_scl} = .true.
79       \hyperlink{namespacedc__date__types_a6639cadf54729d549ad335815ece6762}{day\_seconds\_scl} = \hyperlink{namespacedc__date__types_a4a0b5df0058a97b5f9e071ecb0fb7aa7}{day\_seconds}
80 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacedc__date__internal_a986d1c2850053f05ac5e05101c3a898d_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacedc__date__internal_a10cffe901f5bed8b5a2d7a6958ce63a9}\label{namespacedc__date__internal_a10cffe901f5bed8b5a2d7a6958ce63a9}} 
\index{dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}!parsetimeunits@{parsetimeunits}}
\index{parsetimeunits@{parsetimeunits}!dc\+\_\+date\+\_\+internal@{dc\+\_\+date\+\_\+internal}}
\subsubsection{\texorpdfstring{parsetimeunits()}{parsetimeunits()}}
{\footnotesize\ttfamily integer function dc\+\_\+date\+\_\+internal\+::parsetimeunits (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{str }\end{DoxyParamCaption})}



Definition at line 107 of file dc\+\_\+date\+\_\+internal.\+f90.



References dc\+\_\+types\+::token, dc\+\_\+date\+\_\+types\+::unit\+\_\+day, dc\+\_\+date\+\_\+types\+::unit\+\_\+hour, dc\+\_\+date\+\_\+types\+::unit\+\_\+min, dc\+\_\+date\+\_\+types\+::unit\+\_\+month, dc\+\_\+date\+\_\+types\+::unit\+\_\+nondim, dc\+\_\+date\+\_\+types\+::unit\+\_\+sec, dc\+\_\+date\+\_\+types\+::unit\+\_\+symbol\+\_\+day, dc\+\_\+date\+\_\+types\+::unit\+\_\+symbol\+\_\+err, dc\+\_\+date\+\_\+types\+::unit\+\_\+symbol\+\_\+hour, dc\+\_\+date\+\_\+types\+::unit\+\_\+symbol\+\_\+min, dc\+\_\+date\+\_\+types\+::unit\+\_\+symbol\+\_\+month, dc\+\_\+date\+\_\+types\+::unit\+\_\+symbol\+\_\+nondim, dc\+\_\+date\+\_\+types\+::unit\+\_\+symbol\+\_\+sec, dc\+\_\+date\+\_\+types\+::unit\+\_\+symbol\+\_\+year, and dc\+\_\+date\+\_\+types\+::unit\+\_\+year.


\begin{DoxyCode}
107     \textcolor{comment}{!}
108     \textcolor{comment}{! 引数 *str* に与えられた文字列を解釈し, 日時の単位を示す}
109     \textcolor{comment}{! シンボルを返します. それぞれ以下の文字列が日時の単位として解釈されます.}
110     \textcolor{comment}{! 大文字と小文字は区別されません.}
111     \textcolor{comment}{!}
112     \textcolor{comment}{! 年         :: dc\_date\_types#UNIT\_YEAR}
113     \textcolor{comment}{! 月         :: dc\_date\_types#UNIT\_MONTH}
114     \textcolor{comment}{! 日         :: dc\_date\_types#UNIT\_DAY}
115     \textcolor{comment}{! 時         :: dc\_date\_types#UNIT\_HOUR}
116     \textcolor{comment}{! 分         :: dc\_date\_types#UNIT\_MIN}
117     \textcolor{comment}{! 秒         :: dc\_date\_types#UNIT\_SEC}
118     \textcolor{comment}{! 無次元時間 :: dc\_date\_types#UNIT\_NONDIM}
119     \textcolor{comment}{!}
120     \textcolor{comment}{! 返るシンボル (整数型) は以下の通りです. }
121     \textcolor{comment}{!}
122     \textcolor{comment}{! 年         :: dc\_date\_types#UNIT\_SYMBOL\_YEAR}
123     \textcolor{comment}{! 月         :: dc\_date\_types#UNIT\_SYMBOL\_MONTH}
124     \textcolor{comment}{! 日         :: dc\_date\_types#UNIT\_SYMBOL\_DAY}
125     \textcolor{comment}{! 時         :: dc\_date\_types#UNIT\_SYMBOL\_HOUR}
126     \textcolor{comment}{! 分         :: dc\_date\_types#UNIT\_SYMBOL\_MIN}
127     \textcolor{comment}{! 秒         :: dc\_date\_types#UNIT\_SYMBOL\_SEC}
128     \textcolor{comment}{! 無次元時間 :: dc\_date\_types#UNIT\_SYMBOL\_NONDIM}
129     \textcolor{comment}{!}
130     \textcolor{comment}{! これらに該当しない文字列を *str* に与えた場合, }
131     \textcolor{comment}{! dc\_date\_types#UNIT\_SYMBOL\_ERR が返ります. }
132     \textcolor{comment}{!}
133     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
134     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__date__types_aee434347343763e4315c88517a09dd17}{unit\_year}, \hyperlink{namespacedc__date__types_a0171673ef9705dc97fd12e5bffdf0810}{unit\_month}, 
      \hyperlink{namespacedc__date__types_a6da8cbb0bc9447d97e79e735460cc4ef}{unit\_day}, &
135       & \hyperlink{namespacedc__date__types_ac98b784dce5552f0b58038abbde0aab8}{unit\_hour}, \hyperlink{namespacedc__date__types_afb17aa2ee3d49744a510337afe27facf}{unit\_min}, \hyperlink{namespacedc__date__types_ac452eae56edaf57fe765430ef848a788}{unit\_sec}, \hyperlink{namespacedc__date__types_a3509f6cb130eb760ec4a1fc94dc7d3fe}{unit\_nondim}, &
136       & \hyperlink{namespacedc__date__types_af2214286fd54dcc9bc46201851b71794}{unit\_symbol\_year}, \hyperlink{namespacedc__date__types_a2854b3d01fa0384ce83a7eb5a46c0b63}{unit\_symbol\_month}, 
      \hyperlink{namespacedc__date__types_adc87b2279e8fefa8078ad877ad14194e}{unit\_symbol\_day}, &
137       & \hyperlink{namespacedc__date__types_a10df725fcb094ad0a2f868a93b6ce34c}{unit\_symbol\_hour}, \hyperlink{namespacedc__date__types_a129f0ebca6e22dfe96af2934e39eaae3}{unit\_symbol\_min}, 
      \hyperlink{namespacedc__date__types_a5dbd685bd8334def6bf91a9f86e6a2a3}{unit\_symbol\_sec}, &
138       & \hyperlink{namespacedc__date__types_a641f4a9cbf26e15fc8e026c9bdea5222}{unit\_symbol\_nondim}, \hyperlink{namespacedc__date__types_a079bd1036fe904752c0423b145cdff22}{unit\_symbol\_err}
139     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__string_1_1strieq}{strieq}
140     \textcolor{keywordtype}{implicit none}
141     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: str
142     \textcolor{keywordtype}{integer}:: symbol
143     \textcolor{keywordtype}{integer}:: unit\_str\_size, i
144     \textcolor{keywordtype}{character(TOKEN)}:: unit
145   \textcolor{keywordflow}{continue}
146     unit = adjustl(str)
147     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_a3509f6cb130eb760ec4a1fc94dc7d3fe}{unit\_nondim})
148     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
149       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_a3509f6cb130eb760ec4a1fc94dc7d3fe}{unit\_nondim}(i)))) \textcolor{keywordflow}{then}
150         symbol = \hyperlink{namespacedc__date__types_a641f4a9cbf26e15fc8e026c9bdea5222}{unit\_symbol\_nondim}
151         \textcolor{keywordflow}{return}
152 \textcolor{keywordflow}{      end if}
153 \textcolor{keywordflow}{    end do}
154 
155     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_ac452eae56edaf57fe765430ef848a788}{unit\_sec})
156     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
157       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_ac452eae56edaf57fe765430ef848a788}{unit\_sec}(i)))) \textcolor{keywordflow}{then}
158         symbol = \hyperlink{namespacedc__date__types_a5dbd685bd8334def6bf91a9f86e6a2a3}{unit\_symbol\_sec}
159         \textcolor{keywordflow}{return}
160 \textcolor{keywordflow}{      end if}
161 \textcolor{keywordflow}{    end do}
162 
163     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_afb17aa2ee3d49744a510337afe27facf}{unit\_min})
164     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
165       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_afb17aa2ee3d49744a510337afe27facf}{unit\_min}(i)))) \textcolor{keywordflow}{then}
166         symbol = \hyperlink{namespacedc__date__types_a129f0ebca6e22dfe96af2934e39eaae3}{unit\_symbol\_min}
167         \textcolor{keywordflow}{return}
168 \textcolor{keywordflow}{      end if}
169 \textcolor{keywordflow}{    end do}
170 
171     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_ac98b784dce5552f0b58038abbde0aab8}{unit\_hour})
172     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
173       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_ac98b784dce5552f0b58038abbde0aab8}{unit\_hour}(i)))) \textcolor{keywordflow}{then}
174         symbol = \hyperlink{namespacedc__date__types_a10df725fcb094ad0a2f868a93b6ce34c}{unit\_symbol\_hour}
175         \textcolor{keywordflow}{return}
176 \textcolor{keywordflow}{      end if}
177 \textcolor{keywordflow}{    end do}
178 
179     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_a6da8cbb0bc9447d97e79e735460cc4ef}{unit\_day})
180     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
181       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_a6da8cbb0bc9447d97e79e735460cc4ef}{unit\_day}(i)))) \textcolor{keywordflow}{then}
182         symbol = \hyperlink{namespacedc__date__types_adc87b2279e8fefa8078ad877ad14194e}{unit\_symbol\_day}
183         \textcolor{keywordflow}{return}
184 \textcolor{keywordflow}{      end if}
185 \textcolor{keywordflow}{    end do}
186 
187     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_a0171673ef9705dc97fd12e5bffdf0810}{unit\_month})
188     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
189       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_a0171673ef9705dc97fd12e5bffdf0810}{unit\_month}(i)))) \textcolor{keywordflow}{then}
190         symbol = \hyperlink{namespacedc__date__types_a2854b3d01fa0384ce83a7eb5a46c0b63}{unit\_symbol\_month}
191         \textcolor{keywordflow}{return}
192 \textcolor{keywordflow}{      end if}
193 \textcolor{keywordflow}{    end do}
194 
195     unit\_str\_size = \textcolor{keyword}{size}(\hyperlink{namespacedc__date__types_aee434347343763e4315c88517a09dd17}{unit\_year})
196     \textcolor{keywordflow}{do} i = 1, unit\_str\_size
197       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__string_1_1strieq}{strieq}(trim(unit), trim(\hyperlink{namespacedc__date__types_aee434347343763e4315c88517a09dd17}{unit\_year}(i)))) \textcolor{keywordflow}{then}
198         symbol = \hyperlink{namespacedc__date__types_af2214286fd54dcc9bc46201851b71794}{unit\_symbol\_year}
199         \textcolor{keywordflow}{return}
200 \textcolor{keywordflow}{      end if}
201 \textcolor{keywordflow}{    end do}
202 
203     symbol = \hyperlink{namespacedc__date__types_a079bd1036fe904752c0423b145cdff22}{unit\_symbol\_err}
204 
\end{DoxyCode}
