dcdatetimeeq.f90

Go to the documentation of this file.

! -*- mode: f90; coding: utf-8 -*-
!-----------------------------------------------------------------------
! Copyright (c) 2000-2026 Gtool Development Group. All rights reserved.
!-----------------------------------------------------------------------
 
logical function dcdatetime_eq_tt(time1, time2) result(result)
  use dc_date_generic, only: eval, evalsclsec, zonetodiff
  use dc_date_types, only: dc_datetime, dc_difftime
  use dc_scaledsec, only: dc_scaled_sec, &
    & operator(==), operator(<), operator(>), operator(<=), operator(>=), &
    & operator(+), assignment(=)
  implicit none
  type(dc_datetime), intent(in):: time1, time2
  type(dc_scaled_sec):: year1, year2, time1_sec, time2_sec
continue
  call eval(time1, sclyear=year1)
  call eval(time2, sclyear=year2)
  time1_sec = evalsclsec(time1) + evalsclsec(zonetodiff(time1 % zone))
  time2_sec = evalsclsec(time2) + evalsclsec(zonetodiff(time2 % zone))
  if (year1 == year2 .and. time1_sec == time2_sec) then
    result = .true.
  else
    result = .false.
  end if
end function dcdatetime_eq_tt
 
 
logical function dcdatetime_eq_ff(diff1, diff2) result(result)
  use dc_scaledsec, only: operator(==)
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  type(dc_difftime), intent(in):: diff1, diff2
continue
  if (       diff1 % mon == diff2 % mon &
    &  .and. diff1 % day == diff2 % day &
    &  .and. diff1 % sec == diff2 % sec   ) then
    result = .true.
  else
    result = .false.
  end if
end function dcdatetime_eq_ff
 
logical function dcdatetime_eq_if(i, diff) result(result)
  use dc_date_generic, only: operator(==)
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  type(dc_difftime), intent(in):: diff
  integer, intent(in):: i
continue
  result = real(i) == diff
end function dcdatetime_eq_if
 
logical function dcdatetime_eq_fi(diff, i) result(result)
  use dc_date_generic, only: operator(==)
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  type(dc_difftime), intent(in):: diff
  integer, intent(in):: i
continue
  result = i == diff
end function dcdatetime_eq_fi
 
logical function dcdatetime_eq_rf(r, diff) result(result)
  use dc_scaledsec, only: operator(==)
  use dc_date_generic, only: evalsclsec
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  type(dc_difftime), intent(in):: diff
  real, intent(in):: r
continue
  if (evalsclsec(diff) == r) then
    result = .true.
  else
    result = .false.
  end if
end function dcdatetime_eq_rf
 
logical function dcdatetime_eq_fr(diff, r) result(result)
  use dc_date_generic, only: operator(==)
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  type(dc_difftime), intent(in):: diff
  real, intent(in):: r
continue
  result = r == diff
end function dcdatetime_eq_fr
 
logical function dcdatetime_eq_df(d, diff) result(result)
  use dc_date_generic, only: evalsclsec
  use dc_date_types, only: dc_datetime, dc_difftime
  use dc_scaledsec, only: operator(==)
  use dc_types, only: dp
  implicit none
  type(dc_difftime), intent(in):: diff
  real(dp), intent(in):: d
continue
  if (evalsclsec(diff) == d) then
    result = .true.
  else
    result = .false.
  end if
end function dcdatetime_eq_df
 
logical function dcdatetime_eq_fd(diff, d) result(result)
  use dc_date_generic, only: operator(==)
  use dc_types, only: dp
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  type(dc_difftime), intent(in):: diff
  real(dp), intent(in):: d
continue
  result = d == diff
end function dcdatetime_eq_fd