\hypertarget{dcdatetimegt_8f90}{}\section{dc\+\_\+utils/dcdatetimegt.f90 File Reference}
\label{dcdatetimegt_8f90}\index{dc\+\_\+utils/dcdatetimegt.\+f90@{dc\+\_\+utils/dcdatetimegt.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
logical function \hyperlink{dcdatetimegt_8f90_a5612363f9a3407634af7272a8f697042}{dcdatetime\+\_\+gt\+\_\+tt} (time1, time2)
\item 
logical function \hyperlink{dcdatetimegt_8f90_adb8cb425ecc726a94af8c96738471dc6}{dcdatetime\+\_\+gt\+\_\+ff} (diff1, diff2)
\item 
logical function \hyperlink{dcdatetimegt_8f90_ac3464bf10c12f2b1349f76ae78f0ba8c}{dcdatetime\+\_\+gt\+\_\+fi} (diff, factor)
\item 
logical function \hyperlink{dcdatetimegt_8f90_abd1a63ed295a9892d59bcc2cf9c8dcd0}{dcdatetime\+\_\+gt\+\_\+if} (factor, diff)
\end{DoxyCompactItemize}


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



Definition at line 44 of file dcdatetimegt.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays.


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



Definition at line 86 of file dcdatetimegt.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays.


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



Definition at line 101 of file dcdatetimegt.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays.


\begin{DoxyCode}
101     \textcolor{comment}{!}
102     \textcolor{comment}{! 2 つの引数の日時差を比較します.}
103     \textcolor{comment}{! 1 つ目の引数に格納される日時差が 2 つ目の引数に格納される日時差}
104     \textcolor{comment}{! よりも大きい場合, .true. が返ります.}
105     \textcolor{comment}{!}
106     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}
107     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}, \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}, 
      \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
108     \textcolor{keywordtype}{implicit none}
109     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
110     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: diff
111   \textcolor{keywordflow}{continue}
112     result = factor > \hyperlink{interfacedc__date__generic_1_1evalsec}{evalsec}(diff)
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimegt_8f90_a5612363f9a3407634af7272a8f697042}\label{dcdatetimegt_8f90_a5612363f9a3407634af7272a8f697042}} 
\index{dcdatetimegt.\+f90@{dcdatetimegt.\+f90}!dcdatetime\+\_\+gt\+\_\+tt@{dcdatetime\+\_\+gt\+\_\+tt}}
\index{dcdatetime\+\_\+gt\+\_\+tt@{dcdatetime\+\_\+gt\+\_\+tt}!dcdatetimegt.\+f90@{dcdatetimegt.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+gt\+\_\+tt()}{dcdatetime\_gt\_tt()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+gt\+\_\+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 dcdatetimegt.\+f90.


\begin{DoxyCode}
11     \textcolor{comment}{!}
12     \textcolor{comment}{! 2 つの引数の日時を比較します.}
13     \textcolor{comment}{! 1 つ目の引数に格納される日時が 2 つ目の引数に格納される日時}
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}, 
      \hyperlink{interfacedc__date__generic_1_1zonetodiff}{zonetodiff}
17     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}, \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}
18     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}, &
19       & \textcolor{keyword}{operator}(==), \textcolor{keyword}{operator}(<), \textcolor{keyword}{operator}(>), \textcolor{keyword}{operator}(<=), \textcolor{keyword}{operator}(>=), &
20       & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(-), \textcolor{keyword}{operator}(*), \textcolor{keyword}{operator}(/), &
21       & \hyperlink{interfacedc__scaledsec_1_1modulo}{modulo}, \hyperlink{interfacedc__scaledsec_1_1int}{int}, \hyperlink{interfacedc__scaledsec_1_1abs}{abs}, \hyperlink{interfacedc__scaledsec_1_1sign}{sign}
22     \textcolor{keywordtype}{implicit none}
23     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}:: time1, time2
24     \textcolor{keywordtype}{type}(\hyperlink{structdc__scaledsec_1_1dc__scaled__sec}{dc\_scaled\_sec}):: year1, year2, time1\_sec, time2\_sec
25   \textcolor{keywordflow}{continue}
26     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(time1, sclyear=year1)
27     \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}(time2, sclyear=year2)
28     \textcolor{keywordflow}{if} (year1 > year2) \textcolor{keywordflow}{then}
29       result = .true.
30     \textcolor{keywordflow}{elseif} (year1 < year2) \textcolor{keywordflow}{then}
31       result = .false.
32     \textcolor{keywordflow}{else}
33       time1\_sec = \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(time1) + \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(\hyperlink{interfacedc__date__generic_1_1zonetodiff}{zonetodiff}(time1 % zone))
34       time2\_sec = \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(time2) + \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(\hyperlink{interfacedc__date__generic_1_1zonetodiff}{zonetodiff}(time2 % zone))
35       \textcolor{keywordflow}{if} (time1\_sec > time2\_sec) \textcolor{keywordflow}{then}
36         result = .true.
37       \textcolor{keywordflow}{else}
38         result = .false.
39 \textcolor{keywordflow}{      end if}
40 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
