\hypertarget{dcdatetimelt_8f90}{}\section{dc\+\_\+utils/dcdatetimelt.f90 File Reference}
\label{dcdatetimelt_8f90}\index{dc\+\_\+utils/dcdatetimelt.\+f90@{dc\+\_\+utils/dcdatetimelt.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
logical function \hyperlink{dcdatetimelt_8f90_af64e49aa7a0cf54a18261eb35a2c05c0}{dcdatetime\+\_\+lt\+\_\+tt} (time1, time2)
\item 
logical function \hyperlink{dcdatetimelt_8f90_a77dd7d96a6e6091f8e285145f20eef34}{dcdatetime\+\_\+lt\+\_\+ff} (diff1, diff2)
\item 
logical function \hyperlink{dcdatetimelt_8f90_aec3d018bf0e0af6be6b39b3ad2e8e6fb}{dcdatetime\+\_\+lt\+\_\+fi} (diff, factor)
\item 
logical function \hyperlink{dcdatetimelt_8f90_aa7b6b744ccd7ae3a058a1219ffd16737}{dcdatetime\+\_\+lt\+\_\+if} (factor, diff)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{dcdatetimelt_8f90_a77dd7d96a6e6091f8e285145f20eef34}\label{dcdatetimelt_8f90_a77dd7d96a6e6091f8e285145f20eef34}} 
\index{dcdatetimelt.\+f90@{dcdatetimelt.\+f90}!dcdatetime\+\_\+lt\+\_\+ff@{dcdatetime\+\_\+lt\+\_\+ff}}
\index{dcdatetime\+\_\+lt\+\_\+ff@{dcdatetime\+\_\+lt\+\_\+ff}!dcdatetimelt.\+f90@{dcdatetimelt.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+lt\+\_\+ff()}{dcdatetime\_lt\_ff()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+lt\+\_\+ff (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff1,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff2 }\end{DoxyParamCaption})}



Definition at line 43 of file dcdatetimelt.\+f90.


\begin{DoxyCode}
43     \textcolor{comment}{!}
44     \textcolor{comment}{! 2 つの引数の日時差を比較します.}
45     \textcolor{comment}{! 2 つ目の引数に格納される日時差が 1 つ目の引数に格納される日時差}
46     \textcolor{comment}{! よりも大きい場合, .true. が返ります.}
47     \textcolor{comment}{!}
48     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}
49     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
50     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: &
51       & \textcolor{keyword}{operator}(<), \textcolor{keyword}{operator}(>), \textcolor{keyword}{operator}(<=), \textcolor{keyword}{operator}(>=), \textcolor{keyword}{operator}(==)
52     \textcolor{keywordtype}{implicit none}
53     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff1, diff2
54   \textcolor{keywordflow}{continue}
55     \textcolor{keywordflow}{if} ( diff1 % day\_seconds == diff2 % day\_seconds ) \textcolor{keywordflow}{then}
56 
57       \textcolor{keywordflow}{if} ( diff1 % mon < diff2 % mon ) \textcolor{keywordflow}{then}
58         result = .true.  ; \textcolor{keywordflow}{return}
59       \textcolor{keywordflow}{elseif} ( diff1 % mon > diff2 % mon ) \textcolor{keywordflow}{then}
60         result = .false. ; \textcolor{keywordflow}{return}
61 \textcolor{keywordflow}{      end if}
62       \textcolor{keywordflow}{if} ( diff1 % day < diff2 % day ) \textcolor{keywordflow}{then}
63         result = .true.  ; \textcolor{keywordflow}{return}
64       \textcolor{keywordflow}{elseif} ( diff1 % day > diff2 % day ) \textcolor{keywordflow}{then}
65         result = .false. ; \textcolor{keywordflow}{return}
66 \textcolor{keywordflow}{      end if}
67       \textcolor{keywordflow}{if} ( diff1 % sec < diff2 % sec ) \textcolor{keywordflow}{then}
68         result = .true.  ; \textcolor{keywordflow}{return}
69       \textcolor{keywordflow}{elseif} ( diff1 % sec > diff2 % sec ) \textcolor{keywordflow}{then}
70         result = .false. ; \textcolor{keywordflow}{return}
71 \textcolor{keywordflow}{      end if}
72       result = .false.
73     \textcolor{keywordflow}{else}
74 
75       \textcolor{keywordflow}{if} (\hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}(diff1) < \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}(diff2)) \textcolor{keywordflow}{then}
76         result = .true.
77       \textcolor{keywordflow}{else}
78         result = .false.
79 \textcolor{keywordflow}{      end if}
80 \textcolor{keywordflow}{    end if}
81 
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimelt_8f90_aec3d018bf0e0af6be6b39b3ad2e8e6fb}\label{dcdatetimelt_8f90_aec3d018bf0e0af6be6b39b3ad2e8e6fb}} 
\index{dcdatetimelt.\+f90@{dcdatetimelt.\+f90}!dcdatetime\+\_\+lt\+\_\+fi@{dcdatetime\+\_\+lt\+\_\+fi}}
\index{dcdatetime\+\_\+lt\+\_\+fi@{dcdatetime\+\_\+lt\+\_\+fi}!dcdatetimelt.\+f90@{dcdatetimelt.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+lt\+\_\+fi()}{dcdatetime\_lt\_fi()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+lt\+\_\+fi (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{integer, intent(in)}]{factor }\end{DoxyParamCaption})}



Definition at line 85 of file dcdatetimelt.\+f90.


\begin{DoxyCode}
85     \textcolor{comment}{!}
86     \textcolor{comment}{! 2 つの引数の日時差を比較します.}
87     \textcolor{comment}{! 2 つ目の引数に格納される日時差が 1 つ目の引数に格納される日時差}
88     \textcolor{comment}{! よりも大きい場合, .true. が返ります.}
89     \textcolor{comment}{!}
90     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}
91     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
92     \textcolor{keywordtype}{implicit none}
93     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
94     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
95   \textcolor{keywordflow}{continue}
96     result = \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}(diff) < factor
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimelt_8f90_aa7b6b744ccd7ae3a058a1219ffd16737}\label{dcdatetimelt_8f90_aa7b6b744ccd7ae3a058a1219ffd16737}} 
\index{dcdatetimelt.\+f90@{dcdatetimelt.\+f90}!dcdatetime\+\_\+lt\+\_\+if@{dcdatetime\+\_\+lt\+\_\+if}}
\index{dcdatetime\+\_\+lt\+\_\+if@{dcdatetime\+\_\+lt\+\_\+if}!dcdatetimelt.\+f90@{dcdatetimelt.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+lt\+\_\+if()}{dcdatetime\_lt\_if()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+lt\+\_\+if (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 100 of file dcdatetimelt.\+f90.


\begin{DoxyCode}
100     \textcolor{comment}{!}
101     \textcolor{comment}{! 2 つの引数の日時差を比較します.}
102     \textcolor{comment}{! 2 つ目の引数に格納される日時差が 1 つ目の引数に格納される日時差}
103     \textcolor{comment}{! よりも大きい場合, .true. が返ります.}
104     \textcolor{comment}{!}
105     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}
106     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
107     \textcolor{keywordtype}{implicit none}
108     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
109     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
110   \textcolor{keywordflow}{continue}
111     result = factor < \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}(diff)
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimelt_8f90_af64e49aa7a0cf54a18261eb35a2c05c0}\label{dcdatetimelt_8f90_af64e49aa7a0cf54a18261eb35a2c05c0}} 
\index{dcdatetimelt.\+f90@{dcdatetimelt.\+f90}!dcdatetime\+\_\+lt\+\_\+tt@{dcdatetime\+\_\+lt\+\_\+tt}}
\index{dcdatetime\+\_\+lt\+\_\+tt@{dcdatetime\+\_\+lt\+\_\+tt}!dcdatetimelt.\+f90@{dcdatetimelt.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+lt\+\_\+tt()}{dcdatetime\_lt\_tt()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+lt\+\_\+tt (\begin{DoxyParamCaption}\item[{type(dc\+\_\+datetime), intent(in)}]{time1,  }\item[{type(dc\+\_\+datetime), intent(in)}]{time2 }\end{DoxyParamCaption})}



Definition at line 11 of file dcdatetimelt.\+f90.


\begin{DoxyCode}
11     \textcolor{comment}{!}
12     \textcolor{comment}{! 2 つの引数の日時を比較します.}
13     \textcolor{comment}{! 2 つ目の引数に格納される日時が 1 つ目の引数に格納される日時}
14     \textcolor{comment}{! よりも進んでいる場合, .true. が返ります.}
15     \textcolor{comment}{!}
16     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1eval}{eval}, \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}, zonetodiff
17     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
18     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: dc\_scaled\_sec, &
19       & \textcolor{keyword}{operator}(==), \textcolor{keyword}{operator}(<), \textcolor{keyword}{operator}(>), \textcolor{keyword}{operator}(<=), \textcolor{keyword}{operator}(>=), &
20       & \textcolor{keyword}{operator}(+)
21     \textcolor{keywordtype}{implicit none}
22     \textcolor{keywordtype}{type}(dc\_datetime), \textcolor{keywordtype}{intent(in)}:: time1, time2
23     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: year1, year2, time1\_sec, time2\_sec
24   \textcolor{keywordflow}{continue}
25     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(time1, sclyear=year1)
26     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(time2, sclyear=year2)
27     \textcolor{keywordflow}{if} (year1 < year2) \textcolor{keywordflow}{then}
28       result = .true.
29     \textcolor{keywordflow}{elseif} (year1 > year2) \textcolor{keywordflow}{then}
30       result = .false.
31     \textcolor{keywordflow}{else}
32       time1\_sec = \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(time1) + \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(zonetodiff(time1 % zone))
33       time2\_sec = \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(time2) + \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(zonetodiff(time2 % zone))
34       \textcolor{keywordflow}{if} (time1\_sec < time2\_sec) \textcolor{keywordflow}{then}
35         result = .true.
36       \textcolor{keywordflow}{else}
37         result = .false.
38 \textcolor{keywordflow}{      end if}
39 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
