\hypertarget{dcdatetimemul_8f90}{}\section{dc\+\_\+utils/dcdatetimemul.f90 File Reference}
\label{dcdatetimemul_8f90}\index{dc\+\_\+utils/dcdatetimemul.\+f90@{dc\+\_\+utils/dcdatetimemul.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
type(dc\+\_\+difftime) function \hyperlink{dcdatetimemul_8f90_a0a2d88b972c1c895125a8ff492b8cf55}{dcdatetime\+\_\+mul\+\_\+if} (factor, diff)
\item 
type(dc\+\_\+difftime) function \hyperlink{dcdatetimemul_8f90_acfa9fce483f1f19700514c9707a22c68}{dcdatetime\+\_\+mul\+\_\+fi} (diff, factor)
\item 
type(dc\+\_\+difftime) function \hyperlink{dcdatetimemul_8f90_a1d2471e2317fa90c9c570531781a3e74}{dcdatetime\+\_\+mul\+\_\+rf} (factor, diff)
\item 
type(dc\+\_\+difftime) function \hyperlink{dcdatetimemul_8f90_a9a8de2c4e623cba5cd1177605fe28b21}{dcdatetime\+\_\+mul\+\_\+fr} (diff, factor)
\item 
type(dc\+\_\+difftime) function \hyperlink{dcdatetimemul_8f90_a235c307da96a3dbfab40fad41fa25fdb}{dcdatetime\+\_\+mul\+\_\+df} (factor, diff)
\item 
type(dc\+\_\+difftime) function \hyperlink{dcdatetimemul_8f90_a52ef526126ca490628dc130e8595f66f}{dcdatetime\+\_\+mul\+\_\+fd} (diff, factor)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{dcdatetimemul_8f90_a235c307da96a3dbfab40fad41fa25fdb}\label{dcdatetimemul_8f90_a235c307da96a3dbfab40fad41fa25fdb}} 
\index{dcdatetimemul.\+f90@{dcdatetimemul.\+f90}!dcdatetime\+\_\+mul\+\_\+df@{dcdatetime\+\_\+mul\+\_\+df}}
\index{dcdatetime\+\_\+mul\+\_\+df@{dcdatetime\+\_\+mul\+\_\+df}!dcdatetimemul.\+f90@{dcdatetimemul.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+mul\+\_\+df()}{dcdatetime\_mul\_df()}}
{\footnotesize\ttfamily type(dc\+\_\+difftime) function dcdatetime\+\_\+mul\+\_\+df (\begin{DoxyParamCaption}\item[{real(dp), intent(in)}]{factor,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 69 of file dcdatetimemul.\+f90.



References dc\+\_\+date\+\_\+types\+::cyclic\+\_\+mdays, dc\+\_\+date\+\_\+internal\+::dcdate\+\_\+normalize(), and dc\+\_\+types\+::dp.


\begin{DoxyCode}
69     \textcolor{comment}{!}
70     \textcolor{comment}{! ※ 注意 : 月差を非整数倍すると近似的結果になるおそれがあります}
71     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__internal}{dc\_date\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__date__internal_ac3f0935623089b447b453928ff99b788}{dcdate\_normalize}
72     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays}, dc\_datetime, dc\_difftime
73     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: dc\_scaled\_sec, &
74       & \textcolor{keyword}{operator}(<), \textcolor{keyword}{operator}(>), \textcolor{keyword}{operator}(<=), \textcolor{keyword}{operator}(>=), &
75       & \textcolor{keyword}{operator}(+), \textcolor{keyword}{operator}(-), \textcolor{keyword}{operator}(*), \textcolor{keyword}{operator}(/), &
76       & modulo, int, abs, sign
77     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
78     \textcolor{keywordtype}{implicit none}
79     \textcolor{keywordtype}{type}(dc\_difftime):: result
80     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
81     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
82     \textcolor{keywordtype}{type}(dc\_scaled\_sec):: month, day
83   \textcolor{keywordflow}{continue}
84     month = factor * diff % mon
85     result % mon = int(month)
86     day = factor * diff % day + int(\hyperlink{namespacedc__date__types_a1b048467a83d24231df41029f3d8f30e}{cyclic\_mdays} * (month - result % mon))
87     result % day = int(day)
88     result % sec = &
89       & factor * diff % sec + (day - result % day) * diff % day\_seconds
90     result % day\_seconds = diff % day\_seconds
91     result % nondim\_flag = diff % nondim\_flag
92     \textcolor{keyword}{call }\hyperlink{namespacedc__date__internal_ac3f0935623089b447b453928ff99b788}{dcdate\_normalize}(result % day, result % sec, result % day\_seconds, result %
       nondim\_flag)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{dcdatetimemul_8f90_a235c307da96a3dbfab40fad41fa25fdb_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcdatetimemul_8f90_a52ef526126ca490628dc130e8595f66f}\label{dcdatetimemul_8f90_a52ef526126ca490628dc130e8595f66f}} 
\index{dcdatetimemul.\+f90@{dcdatetimemul.\+f90}!dcdatetime\+\_\+mul\+\_\+fd@{dcdatetime\+\_\+mul\+\_\+fd}}
\index{dcdatetime\+\_\+mul\+\_\+fd@{dcdatetime\+\_\+mul\+\_\+fd}!dcdatetimemul.\+f90@{dcdatetimemul.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+mul\+\_\+fd()}{dcdatetime\_mul\_fd()}}
{\footnotesize\ttfamily type(dc\+\_\+difftime) function dcdatetime\+\_\+mul\+\_\+fd (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{real(dp), intent(in)}]{factor }\end{DoxyParamCaption})}



Definition at line 96 of file dcdatetimemul.\+f90.



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


\begin{DoxyCode}
96     \textcolor{comment}{!}
97     \textcolor{comment}{! ※ 注意 : 月差を非整数倍すると近似的結果になるおそれがあります}
98     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(*)
99     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
100     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
101     \textcolor{keywordtype}{implicit none}
102     \textcolor{keywordtype}{type}(dc\_difftime):: result
103     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
104     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: factor
105   \textcolor{keywordflow}{continue}
106     result = factor * diff
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimemul_8f90_acfa9fce483f1f19700514c9707a22c68}\label{dcdatetimemul_8f90_acfa9fce483f1f19700514c9707a22c68}} 
\index{dcdatetimemul.\+f90@{dcdatetimemul.\+f90}!dcdatetime\+\_\+mul\+\_\+fi@{dcdatetime\+\_\+mul\+\_\+fi}}
\index{dcdatetime\+\_\+mul\+\_\+fi@{dcdatetime\+\_\+mul\+\_\+fi}!dcdatetimemul.\+f90@{dcdatetimemul.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+mul\+\_\+fi()}{dcdatetime\_mul\_fi()}}
{\footnotesize\ttfamily type(dc\+\_\+difftime) function dcdatetime\+\_\+mul\+\_\+fi (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{integer, intent(in)}]{factor }\end{DoxyParamCaption})}



Definition at line 31 of file dcdatetimemul.\+f90.


\begin{DoxyCode}
31     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(*)
32     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
33     \textcolor{keywordtype}{implicit none}
34     \textcolor{keywordtype}{type}(dc\_difftime):: result
35     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
36     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
37   \textcolor{keywordflow}{continue}
38     result = factor * diff
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimemul_8f90_a9a8de2c4e623cba5cd1177605fe28b21}\label{dcdatetimemul_8f90_a9a8de2c4e623cba5cd1177605fe28b21}} 
\index{dcdatetimemul.\+f90@{dcdatetimemul.\+f90}!dcdatetime\+\_\+mul\+\_\+fr@{dcdatetime\+\_\+mul\+\_\+fr}}
\index{dcdatetime\+\_\+mul\+\_\+fr@{dcdatetime\+\_\+mul\+\_\+fr}!dcdatetimemul.\+f90@{dcdatetimemul.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+mul\+\_\+fr()}{dcdatetime\_mul\_fr()}}
{\footnotesize\ttfamily type(dc\+\_\+difftime) function dcdatetime\+\_\+mul\+\_\+fr (\begin{DoxyParamCaption}\item[{type(dc\+\_\+difftime), intent(in)}]{diff,  }\item[{real, intent(in)}]{factor }\end{DoxyParamCaption})}



Definition at line 56 of file dcdatetimemul.\+f90.


\begin{DoxyCode}
56     \textcolor{comment}{!}
57     \textcolor{comment}{! ※ 注意 : 月差を非整数倍すると近似的結果になるおそれがあります}
58     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(*)
59     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
60     \textcolor{keywordtype}{implicit none}
61     \textcolor{keywordtype}{type}(dc\_difftime):: result
62     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
63     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
64   \textcolor{keywordflow}{continue}
65     result = factor * diff
\end{DoxyCode}
\mbox{\Hypertarget{dcdatetimemul_8f90_a0a2d88b972c1c895125a8ff492b8cf55}\label{dcdatetimemul_8f90_a0a2d88b972c1c895125a8ff492b8cf55}} 
\index{dcdatetimemul.\+f90@{dcdatetimemul.\+f90}!dcdatetime\+\_\+mul\+\_\+if@{dcdatetime\+\_\+mul\+\_\+if}}
\index{dcdatetime\+\_\+mul\+\_\+if@{dcdatetime\+\_\+mul\+\_\+if}!dcdatetimemul.\+f90@{dcdatetimemul.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+mul\+\_\+if()}{dcdatetime\_mul\_if()}}
{\footnotesize\ttfamily type(dc\+\_\+difftime) function dcdatetime\+\_\+mul\+\_\+if (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{factor,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



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



References dc\+\_\+date\+\_\+internal\+::dcdate\+\_\+normalize().


\begin{DoxyCode}
11     \textcolor{comment}{!}
12     \textcolor{comment}{! 日時差 *diff* と *facter* とを乗算した結果を返します.}
13     \textcolor{comment}{!}
14     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
15     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__internal}{dc\_date\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__date__internal_ac3f0935623089b447b453928ff99b788}{dcdate\_normalize}
16     \textcolor{keywordtype}{use }\hyperlink{namespacedc__scaledsec}{dc\_scaledsec}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(*)
17     \textcolor{keywordtype}{implicit none}
18     \textcolor{keywordtype}{type}(dc\_difftime):: result
19     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: factor
20     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
21   \textcolor{keywordflow}{continue}
22     result % mon = factor * diff % mon
23     result % day = factor * diff % day
24     result % sec = factor * diff % sec
25     result % day\_seconds = diff % day\_seconds
26     result % nondim\_flag = diff % nondim\_flag
27     \textcolor{keyword}{call }\hyperlink{namespacedc__date__internal_ac3f0935623089b447b453928ff99b788}{dcdate\_normalize}(result % day, result % sec, result % day\_seconds, result %
       nondim\_flag)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{dcdatetimemul_8f90_a0a2d88b972c1c895125a8ff492b8cf55_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{dcdatetimemul_8f90_a1d2471e2317fa90c9c570531781a3e74}\label{dcdatetimemul_8f90_a1d2471e2317fa90c9c570531781a3e74}} 
\index{dcdatetimemul.\+f90@{dcdatetimemul.\+f90}!dcdatetime\+\_\+mul\+\_\+rf@{dcdatetime\+\_\+mul\+\_\+rf}}
\index{dcdatetime\+\_\+mul\+\_\+rf@{dcdatetime\+\_\+mul\+\_\+rf}!dcdatetimemul.\+f90@{dcdatetimemul.\+f90}}
\subsubsection{\texorpdfstring{dcdatetime\+\_\+mul\+\_\+rf()}{dcdatetime\_mul\_rf()}}
{\footnotesize\ttfamily type(dc\+\_\+difftime) function dcdatetime\+\_\+mul\+\_\+rf (\begin{DoxyParamCaption}\item[{real, intent(in)}]{factor,  }\item[{type(dc\+\_\+difftime), intent(in)}]{diff }\end{DoxyParamCaption})}



Definition at line 42 of file dcdatetimemul.\+f90.



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


\begin{DoxyCode}
42     \textcolor{comment}{!}
43     \textcolor{comment}{! ※ 注意 : 月差を非整数倍すると近似的結果になるおそれがあります}
44     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__generic}{dc\_date\_generic}\textcolor{keywordtype}{, only}: \textcolor{keyword}{operator}(*)
45     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: dc\_datetime, dc\_difftime
46     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}
47     \textcolor{keywordtype}{implicit none}
48     \textcolor{keywordtype}{type}(dc\_difftime):: result
49     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: factor
50     \textcolor{keywordtype}{type}(dc\_difftime), \textcolor{keywordtype}{intent(in)}:: diff
51   \textcolor{keywordflow}{continue}
52     result = \textcolor{keywordtype}{real(factor, DP)} * diff
\end{DoxyCode}
