\hypertarget{dcdatetimeeq_8f90}{}\section{dc\+\_\+utils/dcdatetimeeq.f90 File Reference}
\label{dcdatetimeeq_8f90}\index{dc\+\_\+utils/dcdatetimeeq.\+f90@{dc\+\_\+utils/dcdatetimeeq.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
logical function \hyperlink{dcdatetimeeq_8f90_a662b6817fa9d3c2a9cd02b3a2a8282fb}{dcdatetime\+\_\+eq\+\_\+tt} (time1, time2)
\item 
logical function \hyperlink{dcdatetimeeq_8f90_a515516de50a378acd4ed4183502b11d2}{dcdatetime\+\_\+eq\+\_\+ff} (diff1, diff2)
\item 
logical function \hyperlink{dcdatetimeeq_8f90_a79882f03195e359a070c798ff0fda9d0}{dcdatetime\+\_\+eq\+\_\+if} (i, diff)
\item 
logical function \hyperlink{dcdatetimeeq_8f90_ac2c55f4c1415963fe09079857938960a}{dcdatetime\+\_\+eq\+\_\+fi} (diff, i)
\item 
logical function \hyperlink{dcdatetimeeq_8f90_a9e89b8af3e051ece82290d1a9a9c9a83}{dcdatetime\+\_\+eq\+\_\+rf} (r, diff)
\item 
logical function \hyperlink{dcdatetimeeq_8f90_a8f88b5c6d1ff92d6cfb379470a1169c3}{dcdatetime\+\_\+eq\+\_\+fr} (diff, r)
\item 
logical function \hyperlink{dcdatetimeeq_8f90_a0b82f81d224451ba8dfa1ffee20bac2e}{dcdatetime\+\_\+eq\+\_\+df} (d, diff)
\item 
logical function \hyperlink{dcdatetimeeq_8f90_a290bc26e2798981d67620d24c9d14700}{dcdatetime\+\_\+eq\+\_\+fd} (diff, d)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{dcdatetimeeq_8f90_a0b82f81d224451ba8dfa1ffee20bac2e}\label{dcdatetimeeq_8f90_a0b82f81d224451ba8dfa1ffee20bac2e}} 
\index{dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}!dcdatetime\+\_\+eq\+\_\+df@{dcdatetime\+\_\+eq\+\_\+df}}
\index{dcdatetime\+\_\+eq\+\_\+df@{dcdatetime\+\_\+eq\+\_\+df}!dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+eq\+\_\+df()}{dcdatetime\_eq\_df()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+eq\+\_\+df (\begin{DoxyParamCaption}\item[{real(dp), intent(in)}]{d,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 111 of file dcdatetimeeq.\+f90.



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


\begin{DoxyCode}
111     \textcolor{comment}{!}
112     \textcolor{comment}{! 引数 *diff* の日時差が *d* と等しいかどうかを比較します. *diff*}
113     \textcolor{comment}{! を秒数に換算した値と *d* とが等しい場合, .true. が返ります.}
114     \textcolor{comment}{!}
115     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}
116     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
117     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==)
118     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
119     \textcolor{keywordtype}{implicit none}
120     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
121     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: d
122   \textcolor{keywordflow}{continue}
123     \textcolor{keywordflow}{if} (\hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(diff) == d) \textcolor{keywordflow}{then}
124       result = .true.
125     \textcolor{keywordflow}{else}
126       result = .false.
127 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeq_8f90_a290bc26e2798981d67620d24c9d14700}\label{dcdatetimeeq_8f90_a290bc26e2798981d67620d24c9d14700}} 
\index{dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}!dcdatetime\+\_\+eq\+\_\+fd@{dcdatetime\+\_\+eq\+\_\+fd}}
\index{dcdatetime\+\_\+eq\+\_\+fd@{dcdatetime\+\_\+eq\+\_\+fd}!dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+eq\+\_\+fd()}{dcdatetime\_eq\_fd()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+eq\+\_\+fd (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{real(dp), intent(in)}]{d }\end{DoxyParamCaption})}



Definition at line 131 of file dcdatetimeeq.\+f90.



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


\begin{DoxyCode}
131     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==)
132     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
133     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
134     \textcolor{keywordtype}{implicit none}
135     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
136     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: d
137   \textcolor{keywordflow}{continue}
138     result = d == diff
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeq_8f90_a515516de50a378acd4ed4183502b11d2}\label{dcdatetimeeq_8f90_a515516de50a378acd4ed4183502b11d2}} 
\index{dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}!dcdatetime\+\_\+eq\+\_\+ff@{dcdatetime\+\_\+eq\+\_\+ff}}
\index{dcdatetime\+\_\+eq\+\_\+ff@{dcdatetime\+\_\+eq\+\_\+ff}!dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+eq\+\_\+ff()}{dcdatetime\_eq\_ff()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+eq\+\_\+ff (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff1,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff2 }\end{DoxyParamCaption})}



Definition at line 38 of file dcdatetimeeq.\+f90.


\begin{DoxyCode}
38     \textcolor{comment}{!}
39     \textcolor{comment}{! 2 つの引数の日時差を比較します.}
40     \textcolor{comment}{! 1 つ目の引数に格納される日時差が 2 つ目の引数に格納される日時差}
41     \textcolor{comment}{! と同じ場合, .true. が返ります.}
42     \textcolor{comment}{!}
43     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==)
44     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
45     \textcolor{keywordtype}{implicit none}
46     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff1, diff2
47   \textcolor{keywordflow}{continue}
48     \textcolor{keywordflow}{if} (       diff1 % mon == diff2 % mon &
49       &  .and. diff1 % day == diff2 % day &
50       &  .and. diff1 % sec == diff2 % sec   ) \textcolor{keywordflow}{then}
51       result = .true.
52     \textcolor{keywordflow}{else}
53       result = .false.
54 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeq_8f90_ac2c55f4c1415963fe09079857938960a}\label{dcdatetimeeq_8f90_ac2c55f4c1415963fe09079857938960a}} 
\index{dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}!dcdatetime\+\_\+eq\+\_\+fi@{dcdatetime\+\_\+eq\+\_\+fi}}
\index{dcdatetime\+\_\+eq\+\_\+fi@{dcdatetime\+\_\+eq\+\_\+fi}!dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+eq\+\_\+fi()}{dcdatetime\_eq\_fi()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+eq\+\_\+fi (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{integer, intent(in)}]{i }\end{DoxyParamCaption})}



Definition at line 72 of file dcdatetimeeq.\+f90.


\begin{DoxyCode}
72     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==)
73     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
74     \textcolor{keywordtype}{implicit none}
75     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
76     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: i
77   \textcolor{keywordflow}{continue}
78     result = i == diff
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeq_8f90_a8f88b5c6d1ff92d6cfb379470a1169c3}\label{dcdatetimeeq_8f90_a8f88b5c6d1ff92d6cfb379470a1169c3}} 
\index{dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}!dcdatetime\+\_\+eq\+\_\+fr@{dcdatetime\+\_\+eq\+\_\+fr}}
\index{dcdatetime\+\_\+eq\+\_\+fr@{dcdatetime\+\_\+eq\+\_\+fr}!dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+eq\+\_\+fr()}{dcdatetime\_eq\_fr()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+eq\+\_\+fr (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{real, intent(in)}]{r }\end{DoxyParamCaption})}



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


\begin{DoxyCode}
101     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==)
102     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
103     \textcolor{keywordtype}{implicit none}
104     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
105     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: r
106   \textcolor{keywordflow}{continue}
107     result = r == diff
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeq_8f90_a79882f03195e359a070c798ff0fda9d0}\label{dcdatetimeeq_8f90_a79882f03195e359a070c798ff0fda9d0}} 
\index{dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}!dcdatetime\+\_\+eq\+\_\+if@{dcdatetime\+\_\+eq\+\_\+if}}
\index{dcdatetime\+\_\+eq\+\_\+if@{dcdatetime\+\_\+eq\+\_\+if}!dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+eq\+\_\+if()}{dcdatetime\_eq\_if()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+eq\+\_\+if (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{i,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 58 of file dcdatetimeeq.\+f90.


\begin{DoxyCode}
58     \textcolor{comment}{!}
59     \textcolor{comment}{! 引数 *diff* の日時差が *i* と等しいかどうかを比較します. *diff*}
60     \textcolor{comment}{! を秒数に換算した値と *i* とが等しい場合, .true. が返ります.}
61     \textcolor{comment}{!}
62     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==)
63     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
64     \textcolor{keywordtype}{implicit none}
65     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
66     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: i
67   \textcolor{keywordflow}{continue}
68     result = \textcolor{keywordtype}{real(i)} == diff
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeq_8f90_a9e89b8af3e051ece82290d1a9a9c9a83}\label{dcdatetimeeq_8f90_a9e89b8af3e051ece82290d1a9a9c9a83}} 
\index{dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}!dcdatetime\+\_\+eq\+\_\+rf@{dcdatetime\+\_\+eq\+\_\+rf}}
\index{dcdatetime\+\_\+eq\+\_\+rf@{dcdatetime\+\_\+eq\+\_\+rf}!dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+eq\+\_\+rf()}{dcdatetime\_eq\_rf()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+eq\+\_\+rf (\begin{DoxyParamCaption}\item[{real, intent(in)}]{r,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 82 of file dcdatetimeeq.\+f90.


\begin{DoxyCode}
82     \textcolor{comment}{!}
83     \textcolor{comment}{! 引数 *diff* の日時差が *r* と等しいかどうかを比較します. *diff*}
84     \textcolor{comment}{! を秒数に換算した値と *r* とが等しい場合, .true. が返ります.}
85     \textcolor{comment}{!}
86     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(==)
87     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}
88     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
89     \textcolor{keywordtype}{implicit none}
90     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
91     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: r
92   \textcolor{keywordflow}{continue}
93     \textcolor{keywordflow}{if} (\hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(diff) == r) \textcolor{keywordflow}{then}
94       result = .true.
95     \textcolor{keywordflow}{else}
96       result = .false.
97 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimeeq_8f90_a662b6817fa9d3c2a9cd02b3a2a8282fb}\label{dcdatetimeeq_8f90_a662b6817fa9d3c2a9cd02b3a2a8282fb}} 
\index{dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}!dcdatetime\+\_\+eq\+\_\+tt@{dcdatetime\+\_\+eq\+\_\+tt}}
\index{dcdatetime\+\_\+eq\+\_\+tt@{dcdatetime\+\_\+eq\+\_\+tt}!dcdatetimeeq.\+f90@{dcdatetimeeq.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+eq\+\_\+tt()}{dcdatetime\_eq\_tt()}}
{\footnotesize\ttfamily logical function dcdatetime\+\_\+eq\+\_\+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 dcdatetimeeq.\+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}, 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}(+), \textcolor{keyword}{assignment}(=)
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     time1\_sec = \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(time1) + \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(zonetodiff(time1 % zone))
28     time2\_sec = \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(time2) + \hyperlink{interfacedc__date__generic_1_1evalsclsec}{evalsclsec}(zonetodiff(time2 % zone))
29     \textcolor{keywordflow}{if} (year1 == year2 .and. time1\_sec == time2\_sec) \textcolor{keywordflow}{then}
30       result = .true.
31     \textcolor{keywordflow}{else}
32       result = .false.
33 \textcolor{keywordflow}{    end if}
\end{DoxyCode}
