\hypertarget{dcdatetimeeval_8f90}{}\section{dc\+\_\+utils/dcdatetimeeval.f90 File Reference}
\label{dcdatetimeeval_8f90}\index{dc\+\_\+utils/dcdatetimeeval.\+f90@{dc\+\_\+utils/dcdatetimeeval.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{dcdatetimeeval_8f90_a21dc1adeeef3a2ca46b8f0723ab27494}{dcdatetimeeval1} (time, year, mon, day, hour, min, sec, caltype, zone, sclyear, sclmon, sclday, sclsec)
\item 
subroutine \hyperlink{dcdatetimeeval_8f90_a1124f7b066eb3e1d6a2b141212fa4acf}{dcdifftimeeval1} (diff, year, mon, day, hour, min, sec, nondim, sclyear, sclmon, sclday, sclsec, sclnondim, err)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_a5a983e140dcdab59508677f5b271976d}{dcdatetimeevalday} (time)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_aeecc94126bc18626192a63835f907925}{dcdifftimeevalday} (diff)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_a21b5f6440fae390ccff832a886ce1c6e}{dcdatetimeevalhour} (time)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_a931019d8bb26ad382c3a2e8285088db4}{dcdifftimeevalhour} (diff)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_ad05ca590ad278ada656dd74756c0af28}{dcdatetimeevalmin} (time)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_ab6e947d8d3c70e6e95de02d1d52a9441}{dcdifftimeevalmin} (diff)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_a446bf19c34840fd2b0f4961f6877f8cb}{dcdatetimeevalsec} (time)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_af44de8775ec83044064f127058c70f3e}{dcdifftimeevalsec} (diff)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_a556cf06696cd9905c859e829790c8cbb}{dcdifftimeevalnondim} (diff)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{dcdatetimeeval_8f90_ad25a94dfad355ce597673c5109b8cc15}{dcdatetimeevalsclsec} (time)
\item 
type(dc\+\_\+scaled\+\_\+sec) function \hyperlink{dcdatetimeeval_8f90_a1b2d387a94e9b378ba434073ad2cdf0e}{dcdifftimeevalsclsec} (diff)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_a6c3fa7cdd6fc896da2648b6993cb9c1b}{dcdatetimeevalbyunit} (time, unit, unit\+\_\+symbol)
\item 
real(dp) function \hyperlink{dcdatetimeeval_8f90_a20994a7e315e4f698791609bd8f40481}{dcdifftimeevalbyunit} (diff, unit, unit\+\_\+symbol)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a21dc1adeeef3a2ca46b8f0723ab27494}\label{dcdatetimeeval_8f90_a21dc1adeeef3a2ca46b8f0723ab27494}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdatetimeeval1@{dcdatetimeeval1}}
\index{dcdatetimeeval1@{dcdatetimeeval1}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimeeval1()}{dcdatetimeeval1()}}
{\footnotesize\ttfamily subroutine dcdatetimeeval1 (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time,  }\item[{integer, intent(out), optional}]{year,  }\item[{integer, intent(out), optional}]{mon,  }\item[{integer, intent(out), optional}]{day,  }\item[{integer, intent(out), optional}]{hour,  }\item[{integer, intent(out), optional}]{min,  }\item[{real(dp), intent(out), optional}]{sec,  }\item[{integer, intent(out), optional}]{caltype,  }\item[{character($\ast$), intent(out), optional}]{zone,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(out), optional}]{sclyear,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(out), optional}]{sclmon,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(out), optional}]{sclday,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(out), optional}]{sclsec }\end{DoxyParamCaption})}



Definition at line 14 of file dcdatetimeeval.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+date\+\_\+types\+::cal\+\_\+cyclic, dc\+\_\+date\+\_\+types\+::cal\+\_\+julian, dc\+\_\+date\+\_\+types\+::cal\+\_\+noleap, dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays, dc\+\_\+scaledsec\+::dcscaledsecputline(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+date\+\_\+types\+::four\+\_\+century, dc\+\_\+date\+\_\+types\+::four\+\_\+years, dc\+\_\+date\+\_\+types\+::hour\+\_\+seconds, dc\+\_\+date\+\_\+types\+::min\+\_\+seconds, dc\+\_\+date\+\_\+types\+::year\+\_\+days, and dc\+\_\+date\+\_\+types\+::year\+\_\+months.


\begin{DoxyCode}
14   \textcolor{comment}{!}
15   \textcolor{comment}{! dc\_date\_types#DC\_DATETIME 型変数 *time* を}
16   \textcolor{comment}{! 年 *year*, 月 *mon*, 日 *day*, 時間 *hour*, 分 *min*, 秒 *sec*,}
17   \textcolor{comment}{! 暦法 *caltype*, タイムゾーン *zone* に変換して返します.}
18   \textcolor{comment}{!}
19   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
20   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}, &
21     & \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}, \hyperlink{namespacedc__date__types_a17e592b1b1e371849a4ff1a83a5cc55d}{cal\_noleap}, \hyperlink{namespacedc__date__types_afc0b0bf5152bfd5a33e2677afe1d16ee}{cal\_julian}, 
      \hyperlink{namespacedc__date__types_a3ce8040b3f1b4d71f8e6eb194811daed}{cal\_cyclic}, &
22     & \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months}, \hyperlink{namespacedc__date__types_a7c9d3d37e559b52742c6c80be7f20af0}{year\_days}, \hyperlink{namespacedc__date__types_a3891fe74f25c5149084ff0860085326a}{four\_years}, 
      \hyperlink{namespacedc__date__types_aa8fd68120b593f32ef0e07fad0dd29f2}{four\_century}, &
23     & \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds}, \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds}
24   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}:  \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, &
25     & \textcolor{keyword}{assignment}(=), \hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline}, &
26     & \textcolor{keyword}{operator}(==), \textcolor{keyword}{operator}(>), \textcolor{keyword}{operator}(<), \textcolor{keyword}{operator}(>=), \textcolor{keyword}{operator}(<=), &
27     & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(-), \textcolor{keyword}{operator}(*), \textcolor{keyword}{operator}(/), \hyperlink{interfacedc__scaledsec_1_1mod}{mod}, \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}, &
28     & \hyperlink{interfacedc__scaledsec_1_1abs}{abs}, \hyperlink{interfacedc__scaledsec_1_1int}{int}, \hyperlink{interfacedc__scaledsec_1_1floor}{floor}, \hyperlink{interfacedc__scaledsec_1_1ceiling}{ceiling}
29   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
30   \textcolor{keywordtype}{implicit none}
31   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}:: time
32   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: year \textcolor{comment}{! 年}
33   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: mon  \textcolor{comment}{! 月}
34   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: day  \textcolor{comment}{! 日}
35   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: hour \textcolor{comment}{! 時}
36   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: \hyperlink{interfacedc__date__generic_1_1min}{min}  \textcolor{comment}{! 分}
37   \textcolor{keywordtype}{real(DP)},\textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sec  \textcolor{comment}{! 秒}
38   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: caltype \textcolor{comment}{! 暦法}
39   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: zone \textcolor{comment}{! タイムゾーン (UTC からの時差)}
40   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sclyear \textcolor{comment}{! 年 (DC\_SCALED\_SEC 型)}
41   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sclmon  \textcolor{comment}{! 月 (DC\_SCALED\_SEC 型)}
42   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sclday  \textcolor{comment}{! 日 (DC\_SCALED\_SEC 型)}
43   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sclsec  \textcolor{comment}{! 秒 (DC\_SCALED\_SEC 型)}
44 
45   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: iyear, month, iday, imon, isec
46   \textcolor{comment}{!character(*), parameter :: subname = 'DCDateTimeEval1'}
47 \textcolor{keywordflow}{continue}
48   \textcolor{comment}{!call BeginSub(subname)}
49   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(zone)) \textcolor{keywordflow}{then}
50     zone = time % zone
51 \textcolor{keywordflow}{  end if}
52   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(caltype)) \textcolor{keywordflow}{then}
53     caltype = time % caltype
54 \textcolor{keywordflow}{  end if}
55   isec = time % sec
56   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(hour)) \textcolor{keywordflow}{then}
57     hour = \hyperlink{interfacedc__scaledsec_1_1floor}{floor}(isec / \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds})
58     isec = \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(isec, \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds})
59 \textcolor{keywordflow}{  end if}
60   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(\hyperlink{interfacedc__date__generic_1_1min}{min})) \textcolor{keywordflow}{then}
61     \hyperlink{interfacedc__date__generic_1_1min}{min} = \hyperlink{interfacedc__scaledsec_1_1floor}{floor}(isec / \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds})
62     isec = \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(isec, \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds})
63 \textcolor{keywordflow}{  end if}
64   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sec)) \textcolor{keywordflow}{then}
65     sec = isec
66 \textcolor{keywordflow}{  end if}
67   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclsec)) \textcolor{keywordflow}{then}
68     sclsec = isec
69 \textcolor{keywordflow}{  end if}
70 
71   \textcolor{keywordflow}{if} (time % caltype == \hyperlink{namespacedc__date__types_a3ce8040b3f1b4d71f8e6eb194811daed}{cal\_cyclic}) \textcolor{keywordflow}{then}
72     iday = time % day
73     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(year)) year = 0
74     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclyear)) sclyear = 0
75     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclmon)) \textcolor{keywordflow}{then}
76       sclmon = \hyperlink{interfacedc__scaledsec_1_1floor}{floor}(iday / \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays})
77       iday = \hyperlink{interfacedc__scaledsec_1_1ceiling}{ceiling}( \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(iday, \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}) )
78     \textcolor{keywordflow}{elseif} (\textcolor{keyword}{present}(mon)) \textcolor{keywordflow}{then}
79       mon = \hyperlink{interfacedc__scaledsec_1_1floor}{floor}(iday / \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays})
80       iday = \hyperlink{interfacedc__scaledsec_1_1ceiling}{ceiling}( \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(iday, \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}) )
81 \textcolor{keywordflow}{    end if}
82     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(day)) day = iday
83     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclday)) sclday = iday
84     \textcolor{keywordflow}{goto} 999
85 \textcolor{keywordflow}{  endif}
86   \textcolor{keywordflow}{if} (time % caltype == \hyperlink{namespacedc__date__types_a17e592b1b1e371849a4ff1a83a5cc55d}{cal\_noleap}) \textcolor{keywordflow}{then}
87     iday = \hyperlink{interfacedc__scaledsec_1_1int}{int}( \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(time%day - 91, \hyperlink{namespacedc__date__types_a7c9d3d37e559b52742c6c80be7f20af0}{year\_days}) )
88     iyear = \hyperlink{interfacedc__scaledsec_1_1int}{int}( (time%day - 91 - iday) / \hyperlink{namespacedc__date__types_a7c9d3d37e559b52742c6c80be7f20af0}{year\_days} )
89   \textcolor{keywordflow}{else}
90     \textcolor{keywordflow}{if} (time % caltype == \hyperlink{namespacedc__date__types_afc0b0bf5152bfd5a33e2677afe1d16ee}{cal\_julian} .or. time%day < 640196) \textcolor{keywordflow}{then}
91       iday = \hyperlink{interfacedc__scaledsec_1_1int}{int}( \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(time%day - 92, \hyperlink{namespacedc__date__types_a3891fe74f25c5149084ff0860085326a}{four\_years}) )
92       iyear = \hyperlink{interfacedc__scaledsec_1_1int}{int}( (time%day - 92 - iday) / \hyperlink{namespacedc__date__types_a3891fe74f25c5149084ff0860085326a}{four\_years} ) * 4
93     \textcolor{keywordflow}{else}
94       iday = \hyperlink{interfacedc__scaledsec_1_1int}{int}( \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(time%day - 94, \hyperlink{namespacedc__date__types_aa8fd68120b593f32ef0e07fad0dd29f2}{four\_century}) )
95       iyear = \hyperlink{interfacedc__scaledsec_1_1int}{int}( (time%day - 94 - iday) / \hyperlink{namespacedc__date__types_aa8fd68120b593f32ef0e07fad0dd29f2}{four\_century} ) * 400
96       \textcolor{keywordflow}{if} (iday == \hyperlink{namespacedc__date__types_aa8fd68120b593f32ef0e07fad0dd29f2}{four\_century} - 1) \textcolor{keywordflow}{then}
97         iyear = iyear + 300
98         iday = 36525
99       \textcolor{keywordflow}{else}
100         iyear = iyear + \hyperlink{interfacedc__scaledsec_1_1int}{int}( iday / 36524 ) * 100
101         iday = \hyperlink{interfacedc__scaledsec_1_1int}{int}( \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(iday, 36524) )
102 \textcolor{keywordflow}{      endif}
103       iyear = iyear + \hyperlink{interfacedc__scaledsec_1_1int}{int}( iday / \hyperlink{namespacedc__date__types_a3891fe74f25c5149084ff0860085326a}{four\_years} ) * 4
104       iday = \hyperlink{interfacedc__scaledsec_1_1int}{int}( \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(iday, \hyperlink{namespacedc__date__types_a3891fe74f25c5149084ff0860085326a}{four\_years}) )
105 \textcolor{keywordflow}{    endif}
106     \textcolor{keywordflow}{if} (iday == \hyperlink{namespacedc__date__types_a3891fe74f25c5149084ff0860085326a}{four\_years} - 1) \textcolor{keywordflow}{then}
107       iyear = iyear + 3
108       iday = \hyperlink{namespacedc__date__types_a7c9d3d37e559b52742c6c80be7f20af0}{year\_days}
109     \textcolor{keywordflow}{else}
110       iyear = iyear + \hyperlink{interfacedc__scaledsec_1_1int}{int}( iday / \hyperlink{namespacedc__date__types_a7c9d3d37e559b52742c6c80be7f20af0}{year\_days} )
111       iday = \hyperlink{interfacedc__scaledsec_1_1int}{int}( \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}(iday, \hyperlink{namespacedc__date__types_a7c9d3d37e559b52742c6c80be7f20af0}{year\_days}) )
112 \textcolor{keywordflow}{    endif}
113 \textcolor{keywordflow}{  endif}
114 
115   iday = iday * 10 + 922
116   month = \hyperlink{interfacedc__scaledsec_1_1int}{int}( iday / 306 )
117 
118   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclyear)) \textcolor{keywordflow}{then}
119     imon = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}(month - 1, \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months}) + 1
120     sclyear = iyear + \hyperlink{interfacedc__scaledsec_1_1int}{int}( (month - imon) / \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months} )
121   \textcolor{keywordflow}{elseif} (\textcolor{keyword}{present}(year)) \textcolor{keywordflow}{then}
122     imon = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}(month - 1, \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months}) + 1
123     year = iyear + \hyperlink{interfacedc__scaledsec_1_1int}{int}( (month - imon) / \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months} )
124   \textcolor{keywordflow}{else}
125     imon = month
126 \textcolor{keywordflow}{  end if}
127   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclmon)) \textcolor{keywordflow}{then}
128     iday = \hyperlink{interfacedc__scaledsec_1_1int}{int}( \hyperlink{interfacedc__scaledsec_1_1mod}{mod}(iday, 306) / 10 ) + 1
129     sclmon = imon
130   \textcolor{keywordflow}{elseif} (\textcolor{keyword}{present}(mon)) \textcolor{keywordflow}{then}
131     iday = \hyperlink{interfacedc__scaledsec_1_1int}{int}( \hyperlink{interfacedc__scaledsec_1_1mod}{mod}(iday, 306) / 10 ) + 1
132     mon = imon
133   \textcolor{keywordflow}{else}
134     iday = \hyperlink{interfacedc__scaledsec_1_1int}{int}( iday / 10 )  + 1
135 \textcolor{keywordflow}{  end if}
136 
137   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(day)) day = iday
138   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclday)) sclday = iday
139 
140 999 \textcolor{keywordflow}{continue}
141   \textcolor{comment}{!call EndSub(subname)}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{dcdatetimeeval_8f90_a21dc1adeeef3a2ca46b8f0723ab27494_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a6c3fa7cdd6fc896da2648b6993cb9c1b}\label{dcdatetimeeval_8f90_a6c3fa7cdd6fc896da2648b6993cb9c1b}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdatetimeevalbyunit@{dcdatetimeevalbyunit}}
\index{dcdatetimeevalbyunit@{dcdatetimeevalbyunit}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimeevalbyunit()}{dcdatetimeevalbyunit()}}
{\footnotesize\ttfamily real(dp) function dcdatetimeevalbyunit (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time,  }\item[{character($\ast$), intent(in)}]{unit,  }\item[{integer, intent(in), optional}]{unit\+\_\+symbol }\end{DoxyParamCaption})}



Definition at line 500 of file dcdatetimeeval.\+f90.



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


\begin{DoxyCode}
500   \textcolor{comment}{!}
501   \textcolor{comment}{! dc\_date\_types#DC\_DATETIME 型変数の日時を *unit* または}
502   \textcolor{comment}{! *unit\_symbol* の単位}
503   \textcolor{comment}{! に換算して倍精度実数型変数で返します. }
504   \textcolor{comment}{! }
505   \textcolor{comment}{! *unit* には}
506   \textcolor{comment}{! 日 dc\_date\_types#UNIT\_DAY, 時 dc\_date\_types#UNIT\_HOUR,}
507   \textcolor{comment}{! 分 dc\_date\_types#UNIT\_MIN, 秒 dc\_date\_types#UNIT\_SEC }
508   \textcolor{comment}{! を与えることが可能です. }
509   \textcolor{comment}{!}
510   \textcolor{comment}{! *unit\_symbol* には}
511   \textcolor{comment}{! 日 dc\_date\_types#UNIT\_SYMBOL\_DAY, 時 dc\_date\_types#UNIT\_SYMBOL\_HOUR,}
512   \textcolor{comment}{! 分 dc\_date\_types#UNIT\_SYMBOL\_MIN, 秒 dc\_date\_types#UNIT\_SYMBOL\_SEC }
513   \textcolor{comment}{! を与えることが可能です. }
514   \textcolor{comment}{!}
515   \textcolor{comment}{! これらに該当しないものを *unit* または *unit\_symbol* }
516   \textcolor{comment}{! に与えた場合, もしくは引数を両方とも与えない場合, 0.0 が返ります.}
517   \textcolor{comment}{!}
518   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
519   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}, \hyperlink{interfacedc__date__generic_1_1evalmin}{evalmin}, 
      \hyperlink{interfacedc__date__generic_1_1evalhour}{evalhour}, \hyperlink{interfacedc__date__generic_1_1evalday}{evalday}, \hyperlink{interfacedc__date__generic_1_1parsetimeunits}{parsetimeunits}
520   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}, &
521     & \hyperlink{namespacedc__date__types_adc87b2279e8fefa8078ad877ad14194e}{unit\_symbol\_day}, \hyperlink{namespacedc__date__types_a10df725fcb094ad0a2f868a93b6ce34c}{unit\_symbol\_hour}, 
      \hyperlink{namespacedc__date__types_a129f0ebca6e22dfe96af2934e39eaae3}{unit\_symbol\_min}, \hyperlink{namespacedc__date__types_a5dbd685bd8334def6bf91a9f86e6a2a3}{unit\_symbol\_sec}, &
522     & \hyperlink{namespacedc__date__types_a079bd1036fe904752c0423b145cdff22}{unit\_symbol\_err}
523   \textcolor{keywordtype}{implicit none}
524   \textcolor{keywordtype}{real(DP)}:: result
525   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}:: time
526   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: unit
527   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit\_symbol
528   \textcolor{keywordtype}{integer}:: symbol
529 \textcolor{keywordflow}{continue}
530   symbol = \hyperlink{namespacedc__date__types_a079bd1036fe904752c0423b145cdff22}{unit\_symbol\_err}
531   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit\_symbol) ) \textcolor{keywordflow}{then}
532     symbol = unit\_symbol
533   \textcolor{keywordflow}{else}
534     symbol = \hyperlink{interfacedc__date__generic_1_1parsetimeunits}{parsetimeunits}(unit)
535 \textcolor{keywordflow}{  end if}
536 
537   \textcolor{keywordflow}{if} ( symbol == \hyperlink{namespacedc__date__types_a5dbd685bd8334def6bf91a9f86e6a2a3}{unit\_symbol\_sec} ) \textcolor{keywordflow}{then}
538     result = \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}(time)
539   \textcolor{keywordflow}{elseif} ( symbol == \hyperlink{namespacedc__date__types_a129f0ebca6e22dfe96af2934e39eaae3}{unit\_symbol\_min} ) \textcolor{keywordflow}{then}
540     result = \hyperlink{interfacedc__date__generic_1_1evalmin}{evalmin}(time)
541   \textcolor{keywordflow}{elseif} ( symbol == \hyperlink{namespacedc__date__types_a10df725fcb094ad0a2f868a93b6ce34c}{unit\_symbol\_hour} ) \textcolor{keywordflow}{then}
542     result = \hyperlink{interfacedc__date__generic_1_1evalhour}{evalhour}(time)
543   \textcolor{keywordflow}{elseif} ( symbol == \hyperlink{namespacedc__date__types_adc87b2279e8fefa8078ad877ad14194e}{unit\_symbol\_day} ) \textcolor{keywordflow}{then}
544     result = \hyperlink{interfacedc__date__generic_1_1evalday}{evalday}(time)
545   \textcolor{keywordflow}{else}
546     result = 0.0\_dp
547 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a5a983e140dcdab59508677f5b271976d}\label{dcdatetimeeval_8f90_a5a983e140dcdab59508677f5b271976d}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdatetimeevalday@{dcdatetimeevalday}}
\index{dcdatetimeevalday@{dcdatetimeevalday}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimeevalday()}{dcdatetimeevalday()}}
{\footnotesize\ttfamily real(dp) function dcdatetimeevalday (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time }\end{DoxyParamCaption})}



Definition at line 249 of file dcdatetimeeval.\+f90.



References dc\+\_\+types\+::dp.


\begin{DoxyCode}
249   \textcolor{comment}{!}
250   \textcolor{comment}{! dc\_date\_types#DC\_DATETIME 型変数の日時を日数に換算して}
251   \textcolor{comment}{! 倍精度実数型変数で返します. (例えば 12 時間は 0.5 日と換算されます).}
252   \textcolor{comment}{!}
253   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
254   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
255   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}
256   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, \textcolor{keyword}{assignment}(=), \textcolor{keyword}{operator}(/), \textcolor{keyword}{operator}(+)
257   \textcolor{keywordtype}{implicit none}
258   \textcolor{keywordtype}{real(DP)}:: result
259   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}:: time
260   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: day, sec
261 \textcolor{keywordflow}{continue}
262   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(time, sclday = day, sclsec = sec)
263   result = day + sec / time % day\_seconds
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a21b5f6440fae390ccff832a886ce1c6e}\label{dcdatetimeeval_8f90_a21b5f6440fae390ccff832a886ce1c6e}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdatetimeevalhour@{dcdatetimeevalhour}}
\index{dcdatetimeevalhour@{dcdatetimeevalhour}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimeevalhour()}{dcdatetimeevalhour()}}
{\footnotesize\ttfamily real(dp) function dcdatetimeevalhour (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time }\end{DoxyParamCaption})}



Definition at line 289 of file dcdatetimeeval.\+f90.



References dc\+\_\+types\+::dp, and dc\+\_\+date\+\_\+types\+::hour\+\_\+seconds.


\begin{DoxyCode}
289   \textcolor{comment}{!}
290   \textcolor{comment}{! dc\_date\_types#DC\_DATETIME 型変数の日時を時間に換算して}
291   \textcolor{comment}{! 倍精度実数型変数で返します.}
292   \textcolor{comment}{! (例えば 2 日は 48 時間に, 30 分 は 0.5 時間と換算されます).}
293   \textcolor{comment}{!}
294   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
295   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
296   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}, \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds}
297   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, \textcolor{keyword}{assignment}(=), \textcolor{keyword}{operator}(/), &
298     & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(*), \hyperlink{interfacedc__scaledsec_1_1int}{int}
299   \textcolor{keywordtype}{implicit none}
300   \textcolor{keywordtype}{real(DP)}:: result
301   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}:: time
302   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: day, sec
303 \textcolor{keywordflow}{continue}
304   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(time, sclday = day, sclsec = sec)
305   result = (day * time % day\_seconds + sec) / \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_ad05ca590ad278ada656dd74756c0af28}\label{dcdatetimeeval_8f90_ad05ca590ad278ada656dd74756c0af28}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdatetimeevalmin@{dcdatetimeevalmin}}
\index{dcdatetimeevalmin@{dcdatetimeevalmin}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimeevalmin()}{dcdatetimeevalmin()}}
{\footnotesize\ttfamily real(dp) function dcdatetimeevalmin (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time }\end{DoxyParamCaption})}



Definition at line 333 of file dcdatetimeeval.\+f90.



References dc\+\_\+types\+::dp, and dc\+\_\+date\+\_\+types\+::min\+\_\+seconds.


\begin{DoxyCode}
333   \textcolor{comment}{!}
334   \textcolor{comment}{! dc\_date\_types#DC\_DATETIME 型変数の日時を分に換算して}
335   \textcolor{comment}{! 倍精度実数型変数で返します.}
336   \textcolor{comment}{! (例えば 1 日は 3600 分に, 30 秒 は 0.5 分と換算されます).}
337   \textcolor{comment}{!}
338   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
339   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
340   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}, \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds}
341   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, \textcolor{keyword}{assignment}(=), \textcolor{keyword}{operator}(/), &
342     & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(*), \hyperlink{interfacedc__scaledsec_1_1int}{int}
343   \textcolor{keywordtype}{implicit none}
344   \textcolor{keywordtype}{real(DP)}:: result
345   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}:: time
346   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: day, sec
347 \textcolor{keywordflow}{continue}
348   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(time, sclday = day, sclsec = sec)
349   result = (day * time % day\_seconds + sec) / \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_ad25a94dfad355ce597673c5109b8cc15}\label{dcdatetimeeval_8f90_ad25a94dfad355ce597673c5109b8cc15}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdatetimeevalsclsec@{dcdatetimeevalsclsec}}
\index{dcdatetimeevalsclsec@{dcdatetimeevalsclsec}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimeevalsclsec()}{dcdatetimeevalsclsec()}}
{\footnotesize\ttfamily type(dc\+\_\+scaled\+\_\+sec) function dcdatetimeevalsclsec (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time }\end{DoxyParamCaption})}



Definition at line 446 of file dcdatetimeeval.\+f90.



References dc\+\_\+types\+::dp.


\begin{DoxyCode}
446   \textcolor{comment}{!}
447   \textcolor{comment}{! dc\_date\_types#DC\_DATETIME 型変数の日時を秒に換算して}
448   \textcolor{comment}{! DC\_SCALED\_SEC 型で返します.}
449   \textcolor{comment}{!}
450   \textcolor{comment}{! 年の要素は無視されます. すなわち, 1999-01-01 が格納された time と}
451   \textcolor{comment}{! 2007-01-01 が格納された time からは同じ値が返ります.}
452   \textcolor{comment}{! (これはもしかすると望ましく無い動作かもしれません).}
453   \textcolor{comment}{!}
454   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
455   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
456   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}
457   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, \textcolor{keyword}{operator}(/), &
458     & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(*), \hyperlink{interfacedc__scaledsec_1_1int}{int}
459   \textcolor{keywordtype}{implicit none}
460   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: result
461   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}:: time
462   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: day, sec
463 \textcolor{keywordflow}{continue}
464   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(time, sclday = day, sclsec = sec)
465   result = day * time % day\_seconds + sec
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a446bf19c34840fd2b0f4961f6877f8cb}\label{dcdatetimeeval_8f90_a446bf19c34840fd2b0f4961f6877f8cb}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdatetimeevalsec@{dcdatetimeevalsec}}
\index{dcdatetimeevalsec@{dcdatetimeevalsec}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdatetimeevalsec()}{dcdatetimeevalsec()}}
{\footnotesize\ttfamily real(dp) function dcdatetimeevalsec (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time }\end{DoxyParamCaption})}



Definition at line 377 of file dcdatetimeeval.\+f90.



References dc\+\_\+types\+::dp.


\begin{DoxyCode}
377   \textcolor{comment}{!}
378   \textcolor{comment}{! dc\_date\_types#DC\_DATETIME 型変数の日時を秒に換算して}
379   \textcolor{comment}{! 倍精度実数型変数で返します.}
380   \textcolor{comment}{!}
381   \textcolor{comment}{! 年の要素は無視されます. すなわち, 1999-01-01 が格納された time と}
382   \textcolor{comment}{! 2007-01-01 が格納された time からは同じ値が返ります.}
383   \textcolor{comment}{! (これはもしかすると望ましく無い動作かもしれません).}
384   \textcolor{comment}{!}
385   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
386   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
387   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}
388   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \textcolor{keyword}{assignment}(=)
389   \textcolor{keywordtype}{implicit none}
390   \textcolor{keywordtype}{real(DP)}:: result
391   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}:: time
392   \textcolor{keywordtype}{integer}:: day
393   \textcolor{keywordtype}{real(DP)}:: sec, day\_seconds
394 \textcolor{keywordflow}{continue}
395   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(time, day = day, sec = sec)
396   day\_seconds = time % day\_seconds
397   result = day * day\_seconds + sec
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a1124f7b066eb3e1d6a2b141212fa4acf}\label{dcdatetimeeval_8f90_a1124f7b066eb3e1d6a2b141212fa4acf}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdifftimeeval1@{dcdifftimeeval1}}
\index{dcdifftimeeval1@{dcdifftimeeval1}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeeval1()}{dcdifftimeeval1()}}
{\footnotesize\ttfamily subroutine dcdifftimeeval1 (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{integer, intent(out), optional}]{year,  }\item[{integer, intent(out), optional}]{mon,  }\item[{integer, intent(out), optional}]{day,  }\item[{integer, intent(out), optional}]{hour,  }\item[{integer, intent(out), optional}]{min,  }\item[{real(dp), intent(out), optional}]{sec,  }\item[{real(dp), intent(out), optional}]{nondim,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(out), optional}]{sclyear,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(out), optional}]{sclmon,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(out), optional}]{sclday,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(out), optional}]{sclsec,  }\item[{type(dc\+\_\+scaled\+\_\+sec), intent(out), optional}]{sclnondim,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 148 of file dcdatetimeeval.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+edimtime, dc\+\_\+error\+::dc\+\_\+enodimtime, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+scaledsec\+::dcscaledsecputline(), dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+date\+\_\+types\+::hour\+\_\+seconds, dc\+\_\+date\+\_\+types\+::min\+\_\+seconds, dc\+\_\+error\+::storeerror(), and dc\+\_\+date\+\_\+types\+::year\+\_\+months.


\begin{DoxyCode}
148   \textcolor{comment}{!}
149   \textcolor{comment}{! dc\_date\_types#DC\_DIFFTIME 型変数 *diff* を}
150   \textcolor{comment}{! 年 *year*, 月 *mon*, 日 *day*, 時間 *hour*, 分 *min*, 秒 *sec*,}
151   \textcolor{comment}{! 無次元時間 *nondim* に変換して返します.}
152   \textcolor{comment}{!}
153   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
154   \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
155   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a28d807ff6fc306b8995b3dd382494be3}{dc\_enodimtime}, \hyperlink{namespacedc__error_ad5877d584d189e33a99626e982b02720}{dc\_edimtime}
156   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, &
157     & \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds}, \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds}, \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months}
158   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}:  \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, &
159     & \textcolor{keyword}{assignment}(=), \hyperlink{namespacedc__scaledsec_ab5dc51f7cad44a7944e7ea3953a18b25}{dcscaledsecputline}, &
160     & \textcolor{keyword}{operator}(==), \textcolor{keyword}{operator}(>), \textcolor{keyword}{operator}(<), \textcolor{keyword}{operator}(>=), \textcolor{keyword}{operator}(<=), &
161     & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(-), \textcolor{keyword}{operator}(*), \textcolor{keyword}{operator}(/), \hyperlink{interfacedc__scaledsec_1_1mod}{mod}, \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}, &
162     & \hyperlink{interfacedc__scaledsec_1_1abs}{abs}, \hyperlink{interfacedc__scaledsec_1_1int}{int}, \hyperlink{interfacedc__scaledsec_1_1floor}{floor}, \hyperlink{interfacedc__scaledsec_1_1ceiling}{ceiling}
163   \textcolor{keywordtype}{implicit none}
164   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff
165   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: year \textcolor{comment}{! 年}
166   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: mon  \textcolor{comment}{! 月}
167   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: day  \textcolor{comment}{! 日}
168   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: hour \textcolor{comment}{! 時}
169   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: \hyperlink{interfacedc__date__generic_1_1min}{min}  \textcolor{comment}{! 分}
170   \textcolor{keywordtype}{real(DP)},\textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sec  \textcolor{comment}{! 秒}
171   \textcolor{keywordtype}{real(DP)},\textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: nondim  \textcolor{comment}{! 無次元時間. Nondimensional time}
172   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sclyear \textcolor{comment}{! 年 (DC\_SCALED\_SEC 型)}
173   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sclmon  \textcolor{comment}{! 月 (DC\_SCALED\_SEC 型)}
174   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sclday  \textcolor{comment}{! 日 (DC\_SCALED\_SEC 型)}
175   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sclsec  \textcolor{comment}{! 秒 (DC\_SCALED\_SEC 型)}
176   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}), \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: sclnondim  \textcolor{comment}{! 無次元時間 (DC\_SCALED\_SEC 型)}
177   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional} :: err
178   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: imon, isec
179   \textcolor{keywordtype}{integer}:: stat
180   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter} :: subname = \textcolor{stringliteral}{'DCDiffTimeEval1'}
181 \textcolor{keywordflow}{continue}
182   \textcolor{comment}{!call BeginSub(subname)}
183   stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
184   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(sclnondim) ) \textcolor{keywordflow}{then}
185     \textcolor{keywordflow}{if} ( .not. diff % nondim\_flag ) \textcolor{keywordflow}{then}
186       stat = \hyperlink{namespacedc__error_ad5877d584d189e33a99626e982b02720}{dc\_edimtime}
187       \textcolor{keywordflow}{goto} 999
188 \textcolor{keywordflow}{    end if}
189     sclnondim = diff % sec
190   \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(nondim) ) \textcolor{keywordflow}{then}
191     \textcolor{keywordflow}{if} ( .not. diff % nondim\_flag ) \textcolor{keywordflow}{then}
192       stat = \hyperlink{namespacedc__error_ad5877d584d189e33a99626e982b02720}{dc\_edimtime}
193       \textcolor{keywordflow}{goto} 999
194 \textcolor{keywordflow}{    end if}
195     nondim = diff % sec
196   \textcolor{keywordflow}{else}
197     \textcolor{keywordflow}{if} ( diff % nondim\_flag ) \textcolor{keywordflow}{then}
198       stat = \hyperlink{namespacedc__error_a28d807ff6fc306b8995b3dd382494be3}{dc\_enodimtime}
199       \textcolor{keywordflow}{goto} 999
200 \textcolor{keywordflow}{    end if}
201 \textcolor{keywordflow}{  end if}
202 
203   imon = diff % mon
204   isec = diff % sec
205   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclyear)) \textcolor{keywordflow}{then}
206     sclyear = \hyperlink{interfacedc__scaledsec_1_1int}{int}( imon / \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months} )
207     imon = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}(imon, \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months})
208   \textcolor{keywordflow}{elseif} (\textcolor{keyword}{present}(year)) \textcolor{keywordflow}{then}
209     year = \hyperlink{interfacedc__scaledsec_1_1int}{int}( imon / \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months} )
210     imon = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}(imon, \hyperlink{namespacedc__date__types_a94f04fc15c5b633e99505d4b1741e6bf}{year\_months})
211 \textcolor{keywordflow}{  endif}
212 
213   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclmon)) \textcolor{keywordflow}{then}
214     sclmon = imon
215   \textcolor{keywordflow}{elseif} (\textcolor{keyword}{present}(mon)) \textcolor{keywordflow}{then}
216     mon = imon
217 \textcolor{keywordflow}{  endif}
218 
219   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclday)) \textcolor{keywordflow}{then}
220     sclday = diff % day
221   \textcolor{keywordflow}{elseif} (\textcolor{keyword}{present}(day)) \textcolor{keywordflow}{then}
222     day = diff % day
223   \textcolor{keywordflow}{else}
224     isec = isec + diff % day * diff % day\_seconds
225 \textcolor{keywordflow}{  endif}
226 
227   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(hour)) \textcolor{keywordflow}{then}
228     hour = \hyperlink{interfacedc__scaledsec_1_1int}{int}(isec / \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds})
229     isec = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}(isec, \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds})
230 \textcolor{keywordflow}{  endif}
231   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(\hyperlink{interfacedc__date__generic_1_1min}{min})) \textcolor{keywordflow}{then}
232     \hyperlink{interfacedc__date__generic_1_1min}{min} = \hyperlink{interfacedc__scaledsec_1_1int}{int}(isec / \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds})
233     isec = \hyperlink{interfacedc__scaledsec_1_1mod}{mod}(isec, \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds})
234 \textcolor{keywordflow}{  endif}
235 
236   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sec)) \textcolor{keywordflow}{then}
237     sec = isec
238 \textcolor{keywordflow}{  endif}
239   \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(sclsec)) \textcolor{keywordflow}{then}
240     sclsec = isec
241 \textcolor{keywordflow}{  endif}
242 999 \textcolor{keywordflow}{continue}
243   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, err)
244   \textcolor{comment}{!call EndSub(subname)}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{dcdatetimeeval_8f90_a1124f7b066eb3e1d6a2b141212fa4acf_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a20994a7e315e4f698791609bd8f40481}\label{dcdatetimeeval_8f90_a20994a7e315e4f698791609bd8f40481}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdifftimeevalbyunit@{dcdifftimeevalbyunit}}
\index{dcdifftimeevalbyunit@{dcdifftimeevalbyunit}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeevalbyunit()}{dcdifftimeevalbyunit()}}
{\footnotesize\ttfamily real(dp) function dcdifftimeevalbyunit (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{character($\ast$), intent(in)}]{unit,  }\item[{integer, intent(in), optional}]{unit\+\_\+symbol }\end{DoxyParamCaption})}



Definition at line 552 of file dcdatetimeeval.\+f90.



References dc\+\_\+types\+::dp, dc\+\_\+types\+::token, 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\+\_\+nondim, and dc\+\_\+date\+\_\+types\+::unit\+\_\+symbol\+\_\+sec.


\begin{DoxyCode}
552   \textcolor{comment}{!}
553   \textcolor{comment}{! dc\_date\_types#DC\_DIFFTIME 型変数の日時を *unit* の単位}
554   \textcolor{comment}{! に換算して倍精度実数型変数で返します. }
555   \textcolor{comment}{! }
556   \textcolor{comment}{! *unit* には}
557   \textcolor{comment}{! 日 dc\_date\_types#UNIT\_DAY, 時 dc\_date\_types#UNIT\_HOUR,}
558   \textcolor{comment}{! 分 dc\_date\_types#UNIT\_MIN, 秒 dc\_date\_types#UNIT\_SEC, }
559   \textcolor{comment}{! 無次元時間 dc\_date\_types#UNIT\_NONDIM}
560   \textcolor{comment}{! を与えることが可能です. }
561   \textcolor{comment}{! }
562   \textcolor{comment}{! *unit\_symbol* には}
563   \textcolor{comment}{! 日 dc\_date\_types#UNIT\_SYMBOL\_DAY, 時 dc\_date\_types#UNIT\_SYMBOL\_HOUR,}
564   \textcolor{comment}{! 分 dc\_date\_types#UNIT\_SYMBOL\_MIN, 秒 dc\_date\_types#UNIT\_SYMBOL\_SEC }
565   \textcolor{comment}{! 無次元時間 dc\_date\_types#UNIT\_SYMBOL\_NONDIM}
566   \textcolor{comment}{! を与えることが可能です. }
567   \textcolor{comment}{!}
568   \textcolor{comment}{! これらに該当しないものを *unit* または *unit\_symbol* }
569   \textcolor{comment}{! に与えた場合, もしくは引数を両方とも与えない場合, 0.0 が返ります.}
570   \textcolor{comment}{!}
571   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
572   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalnondim}{evalnondim}, \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}, 
      \hyperlink{interfacedc__date__generic_1_1evalmin}{evalmin}, \hyperlink{interfacedc__date__generic_1_1evalhour}{evalhour}, \hyperlink{interfacedc__date__generic_1_1evalday}{evalday}, &
573     & \hyperlink{interfacedc__date__generic_1_1parsetimeunits}{parsetimeunits}
574   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, &
575     & \hyperlink{namespacedc__date__types_adc87b2279e8fefa8078ad877ad14194e}{unit\_symbol\_day}, \hyperlink{namespacedc__date__types_a10df725fcb094ad0a2f868a93b6ce34c}{unit\_symbol\_hour}, 
      \hyperlink{namespacedc__date__types_a129f0ebca6e22dfe96af2934e39eaae3}{unit\_symbol\_min}, &
576     & \hyperlink{namespacedc__date__types_a5dbd685bd8334def6bf91a9f86e6a2a3}{unit\_symbol\_sec}, \hyperlink{namespacedc__date__types_a641f4a9cbf26e15fc8e026c9bdea5222}{unit\_symbol\_nondim}, 
      \hyperlink{namespacedc__date__types_a079bd1036fe904752c0423b145cdff22}{unit\_symbol\_err}
577   \textcolor{keywordtype}{implicit none}
578   \textcolor{keywordtype}{real(DP)}:: result
579   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff
580   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: unit
581   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: unit\_symbol
582   \textcolor{keywordtype}{integer}:: symbol
583 \textcolor{keywordflow}{continue}
584   symbol = \hyperlink{namespacedc__date__types_a079bd1036fe904752c0423b145cdff22}{unit\_symbol\_err}
585   \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(unit\_symbol) ) \textcolor{keywordflow}{then}
586     symbol = unit\_symbol
587   \textcolor{keywordflow}{else}
588     symbol = \hyperlink{interfacedc__date__generic_1_1parsetimeunits}{parsetimeunits}(unit)
589 \textcolor{keywordflow}{  end if}
590 
591   \textcolor{keywordflow}{if} ( symbol == \hyperlink{namespacedc__date__types_a641f4a9cbf26e15fc8e026c9bdea5222}{unit\_symbol\_nondim} ) \textcolor{keywordflow}{then}
592     result = \hyperlink{interfacedc__date__generic_1_1evalnondim}{evalnondim}(diff)
593   \textcolor{keywordflow}{elseif} ( symbol == \hyperlink{namespacedc__date__types_a5dbd685bd8334def6bf91a9f86e6a2a3}{unit\_symbol\_sec} ) \textcolor{keywordflow}{then}
594     result = \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}(diff)
595   \textcolor{keywordflow}{elseif} ( symbol == \hyperlink{namespacedc__date__types_a129f0ebca6e22dfe96af2934e39eaae3}{unit\_symbol\_min} ) \textcolor{keywordflow}{then}
596     result = \hyperlink{interfacedc__date__generic_1_1evalmin}{evalmin}(diff)
597   \textcolor{keywordflow}{elseif} ( symbol == \hyperlink{namespacedc__date__types_a10df725fcb094ad0a2f868a93b6ce34c}{unit\_symbol\_hour} ) \textcolor{keywordflow}{then}
598     result = \hyperlink{interfacedc__date__generic_1_1evalhour}{evalhour}(diff)
599   \textcolor{keywordflow}{elseif} ( symbol == \hyperlink{namespacedc__date__types_adc87b2279e8fefa8078ad877ad14194e}{unit\_symbol\_day} ) \textcolor{keywordflow}{then}
600     result = \hyperlink{interfacedc__date__generic_1_1evalday}{evalday}(diff)
601   \textcolor{keywordflow}{else}
602     result = 0.0\_dp
603 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_aeecc94126bc18626192a63835f907925}\label{dcdatetimeeval_8f90_aeecc94126bc18626192a63835f907925}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdifftimeevalday@{dcdifftimeevalday}}
\index{dcdifftimeevalday@{dcdifftimeevalday}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeevalday()}{dcdifftimeevalday()}}
{\footnotesize\ttfamily real(dp) function dcdifftimeevalday (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 267 of file dcdatetimeeval.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays, and dc\+\_\+types\+::dp.


\begin{DoxyCode}
267   \textcolor{comment}{!}
268   \textcolor{comment}{! dc\_date\_types#DC\_DIFFTIME 型変数の日時を日数に換算して}
269   \textcolor{comment}{! 倍精度実数型変数で返します. (例えば 12 時間は 0.5 日と換算されます).}
270   \textcolor{comment}{!}
271   \textcolor{comment}{! 1 ヶ月は dc\_date\_types#CYCLIC\_MDAYS と換算します.}
272   \textcolor{comment}{!}
273   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
274   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
275   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}
276   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, \textcolor{keyword}{assignment}(=), \textcolor{keyword}{operator}(/), &
277     & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(*), \hyperlink{interfacedc__scaledsec_1_1int}{int}
278   \textcolor{keywordtype}{implicit none}
279   \textcolor{keywordtype}{real(DP)}:: result
280   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff
281   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: day, mon, sec
282 \textcolor{keywordflow}{continue}
283   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(diff, sclmon = mon, sclday = day, sclsec = sec)
284   result = \hyperlink{interfacedc__scaledsec_1_1int}{int}(mon * \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}) + day + sec / diff % day\_seconds
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a931019d8bb26ad382c3a2e8285088db4}\label{dcdatetimeeval_8f90_a931019d8bb26ad382c3a2e8285088db4}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdifftimeevalhour@{dcdifftimeevalhour}}
\index{dcdifftimeevalhour@{dcdifftimeevalhour}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeevalhour()}{dcdifftimeevalhour()}}
{\footnotesize\ttfamily real(dp) function dcdifftimeevalhour (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 309 of file dcdatetimeeval.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays, dc\+\_\+types\+::dp, and dc\+\_\+date\+\_\+types\+::hour\+\_\+seconds.


\begin{DoxyCode}
309   \textcolor{comment}{!}
310   \textcolor{comment}{! dc\_date\_types#DC\_DIFFTIME 型変数の日時を時間に換算して}
311   \textcolor{comment}{! 倍精度実数型変数で返します. }
312   \textcolor{comment}{! (例えば 2 日は 48 時間に, 30 分 は 0.5 時間と換算されます).}
313   \textcolor{comment}{!}
314   \textcolor{comment}{! 1 ヶ月は dc\_date\_types#CYCLIC\_MDAYS と換算します.}
315   \textcolor{comment}{!}
316   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
317   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
318   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds}, 
      \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}
319   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, \textcolor{keyword}{assignment}(=), \textcolor{keyword}{operator}(/), &
320     & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(*), \hyperlink{interfacedc__scaledsec_1_1int}{int}
321   \textcolor{keywordtype}{implicit none}
322   \textcolor{keywordtype}{real(DP)}:: result
323   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff
324   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: mon, day, sec
325 \textcolor{keywordflow}{continue}
326   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(diff, sclmon = mon, sclday = day, sclsec = sec)
327   result = ( \hyperlink{interfacedc__scaledsec_1_1int}{int}(mon * \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}) + day &
328     &         * diff % day\_seconds + sec) / \hyperlink{namespacedc__date__types_a22b42c8ad86c45a1343d4c285277067d}{hour\_seconds}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_ab6e947d8d3c70e6e95de02d1d52a9441}\label{dcdatetimeeval_8f90_ab6e947d8d3c70e6e95de02d1d52a9441}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdifftimeevalmin@{dcdifftimeevalmin}}
\index{dcdifftimeevalmin@{dcdifftimeevalmin}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeevalmin()}{dcdifftimeevalmin()}}
{\footnotesize\ttfamily real(dp) function dcdifftimeevalmin (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 353 of file dcdatetimeeval.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays, dc\+\_\+types\+::dp, and dc\+\_\+date\+\_\+types\+::min\+\_\+seconds.


\begin{DoxyCode}
353   \textcolor{comment}{!}
354   \textcolor{comment}{! dc\_date\_types#DC\_DIFFTIME 型変数の日時を分に換算して}
355   \textcolor{comment}{! 倍精度実数型変数で返します. }
356   \textcolor{comment}{! (例えば 1 日は 3600 分に, 30 秒 は 0.5 分と換算されます).}
357   \textcolor{comment}{!}
358   \textcolor{comment}{! 1 ヶ月は dc\_date\_types#CYCLIC\_MDAYS と換算します.}
359   \textcolor{comment}{!}
360   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
361   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
362   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds}, 
      \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}
363   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, \textcolor{keyword}{assignment}(=), \textcolor{keyword}{operator}(/), &
364     & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(*), \hyperlink{interfacedc__scaledsec_1_1int}{int}
365   \textcolor{keywordtype}{implicit none}
366   \textcolor{keywordtype}{real(DP)}:: result
367   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff
368   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: mon, day, sec
369 \textcolor{keywordflow}{continue}
370   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(diff, sclmon = mon, sclday = day, sclsec = sec)
371   result = ( \hyperlink{interfacedc__scaledsec_1_1int}{int}(mon * \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}) + day &
372     &         * diff % day\_seconds + sec) / \hyperlink{namespacedc__date__types_ab8d0e537d5aeeaaeb9c0023a54deeee4}{min\_seconds}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a556cf06696cd9905c859e829790c8cbb}\label{dcdatetimeeval_8f90_a556cf06696cd9905c859e829790c8cbb}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdifftimeevalnondim@{dcdifftimeevalnondim}}
\index{dcdifftimeevalnondim@{dcdifftimeevalnondim}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeevalnondim()}{dcdifftimeevalnondim()}}
{\footnotesize\ttfamily real(dp) function dcdifftimeevalnondim (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 427 of file dcdatetimeeval.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays, and dc\+\_\+types\+::dp.


\begin{DoxyCode}
427   \textcolor{comment}{!}
428   \textcolor{comment}{! dc\_date\_types#DC\_DIFFTIME 型変数の日時を無時限時間に換算して}
429   \textcolor{comment}{! 倍精度実数型変数で返します.}
430   \textcolor{comment}{!}
431   \textcolor{comment}{! 1 ヶ月は dc\_date\_types#CYCLIC\_MDAYS と換算します.}
432   \textcolor{comment}{!}
433   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
434   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
435   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}
436   \textcolor{keywordtype}{implicit none}
437   \textcolor{keywordtype}{real(DP)}:: result
438   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff
439   \textcolor{keywordtype}{real(DP)}:: nondim
440 \textcolor{keywordflow}{continue}
441   \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(diff, nondim=nondim)
442   result = nondim
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_a1b2d387a94e9b378ba434073ad2cdf0e}\label{dcdatetimeeval_8f90_a1b2d387a94e9b378ba434073ad2cdf0e}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdifftimeevalsclsec@{dcdifftimeevalsclsec}}
\index{dcdifftimeevalsclsec@{dcdifftimeevalsclsec}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeevalsclsec()}{dcdifftimeevalsclsec()}}
{\footnotesize\ttfamily type(dc\+\_\+scaled\+\_\+sec) function dcdifftimeevalsclsec (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 469 of file dcdatetimeeval.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays, and dc\+\_\+types\+::dp.


\begin{DoxyCode}
469   \textcolor{comment}{!}
470   \textcolor{comment}{! dc\_date\_types#DC\_DIFFTIME 型変数の日時を秒に換算して}
471   \textcolor{comment}{! DC\_SCALED\_SEC 型で返します.}
472   \textcolor{comment}{!}
473   \textcolor{comment}{! 1 ヶ月は dc\_date\_types#CYCLIC\_MDAYS と換算します.}
474   \textcolor{comment}{!}
475   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
476   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
477   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}
478   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, \textcolor{keyword}{operator}(/), &
479     & \textcolor{keyword}{operator}(==), \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(*), \hyperlink{interfacedc__scaledsec_1_1int}{int}
480   \textcolor{keywordtype}{implicit none}
481   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: result
482   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff
483   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: mon, day, sec
484   \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: zero\_sec
485 \textcolor{keywordflow}{continue}
486   \textcolor{keywordflow}{if} ( .not. diff % nondim\_flag ) \textcolor{keywordflow}{then}
487     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(diff, sclmon = mon, sclday = day, sclsec = sec)
488     \textcolor{keywordflow}{if} ( mon == zero\_sec ) \textcolor{keywordflow}{then}
489       result = day * diff % day\_seconds + sec
490     \textcolor{keywordflow}{else}
491       result = ( \hyperlink{interfacedc__scaledsec_1_1int}{int}(mon * \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}) + day ) * diff % day\_seconds + sec
492 \textcolor{keywordflow}{    end if}
493   \textcolor{keywordflow}{else}
494     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(diff, sclnondim = sec)
495     result = sec
496 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeval_8f90_af44de8775ec83044064f127058c70f3e}\label{dcdatetimeeval_8f90_af44de8775ec83044064f127058c70f3e}} 
\index{dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}!dcdifftimeevalsec@{dcdifftimeevalsec}}
\index{dcdifftimeevalsec@{dcdifftimeevalsec}!dcdatetimeeval.\+f90@{dcdatetimeeval.\+f90}}
\subsubsection{\texorpdfstring{dcdifftimeevalsec()}{dcdifftimeevalsec()}}
{\footnotesize\ttfamily real(dp) function dcdifftimeevalsec (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 401 of file dcdatetimeeval.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays, and dc\+\_\+types\+::dp.


\begin{DoxyCode}
401   \textcolor{comment}{!}
402   \textcolor{comment}{! dc\_date\_types#DC\_DIFFTIME 型変数の日時を秒に換算して}
403   \textcolor{comment}{! 倍精度実数型変数で返します.}
404   \textcolor{comment}{!}
405   \textcolor{comment}{! 1 ヶ月は dc\_date\_types#CYCLIC\_MDAYS と換算します.}
406   \textcolor{comment}{!}
407   \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
408   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}
409   \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}
410   \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \textcolor{keyword}{assignment}(=)
411   \textcolor{keywordtype}{implicit none}
412   \textcolor{keywordtype}{real(DP)}:: result
413   \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff
414   \textcolor{keywordtype}{integer}:: mon, day
415   \textcolor{keywordtype}{real(DP)}:: sec, day\_seconds
416 \textcolor{keywordflow}{continue}
417   \textcolor{keywordflow}{if} ( .not. diff % nondim\_flag ) \textcolor{keywordflow}{then}
418     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(diff, mon = mon, day = day, sec = sec)
419     day\_seconds = diff % day\_seconds
420     result = \hyperlink{interfacedc__scaledsec_1_1int}{int}(mon * \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}) + day * day\_seconds + sec
421   \textcolor{keywordflow}{else}
422     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(diff, nondim = result)
423 \textcolor{keywordflow}{  end if}
\end{DoxyCode}
