17 &
operator(<),
operator(>),
operator(<=),
operator(>=), &
18 &
operator(+),
operator(-),
operator(*),
operator(/), &
19 & modscl => mod, modulo, int, abs, sign
22 type(dc_difftime):: result
23 type(dc_difftime),
intent(in):: diff
24 integer,
intent(in):: denominator
26 result % mon = int( diff % mon / denominator )
29 & int( diff % day / denominator ) &
30 & + int( (cyclic_mdays * modscl(diff % mon, denominator)) / denominator )
31 result % sec = diff % sec / denominator + &
32 & (diff % day_seconds * modscl(diff % day, denominator)) / &
34 result % nondim_flag = diff % nondim_flag
44 type(dc_difftime):: result
45 type(dc_difftime),
intent(in):: diff
46 real,
intent(in):: denominator
48 result = diff /
real(denominator,
dp)
57 &
operator(<),
operator(>),
operator(<=),
operator(>=), &
58 &
operator(+),
operator(-),
operator(*),
operator(/), &
59 & modulo, int, abs, sign
62 type(dc_difftime):: result
63 type(dc_difftime),
intent(in):: diff
64 real(DP),
intent(in):: denominator
65 type(dc_scaled_sec):: month, day
67 month = int( diff % mon / denominator )
68 result % mon = int(month)
69 day = int( diff % day / denominator ) &
71 result % day = int(day)
73 & diff % sec / denominator + (day - result % day) * diff % day_seconds
74 result % day_seconds = diff % day_seconds
75 result % nondim_flag = diff % nondim_flag
76 call dcdate_normalize(result % day, result % sec, result % day_seconds, result % nondim_flag)
84 &
operator(<),
operator(>),
operator(<=),
operator(>=), &
85 &
operator(+),
operator(-),
operator(*),
operator(/), &
86 & modulo, int, abs, sign
91 type(dc_difftime),
intent(in):: diff1, diff2
95 & (diff1 % day_seconds * (cyclic_mdays * diff1 % mon + diff1 % day) &
97 & (diff2 % day_seconds * (cyclic_mdays * diff2 % mon + diff2 % day) &
type(dc_difftime) function dcdatetime_div_fr(diff, denominator)
real(dp), parameter, public cyclic_mdays
integer, parameter, public dp
Double Precision Real number.
real(dp) function dcdatetime_div_ff(diff1, diff2)
type(dc_difftime) function dcdatetime_div_fd(diff, denominator)
Provides kind type parameter values.
type(dc_difftime) function dcdatetime_div_fi(diff, denominator)
subroutine, public dcdate_normalize(day, sec, day_seconds, nondim_flag)