dcdatetimeeq.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	dcdatetime_eq_tt (time1, time2)
	Functions for user defined operation (==)
logical function	dcdatetime_eq_ff (diff1, diff2)
logical function	dcdatetime_eq_if (i, diff)
logical function	dcdatetime_eq_fi (diff, i)
logical function	dcdatetime_eq_rf (r, diff)
logical function	dcdatetime_eq_fr (diff, r)
logical function	dcdatetime_eq_df (d, diff)
logical function	dcdatetime_eq_fd (diff, d)

Function/Subroutine Documentation

dcdatetime_eq_df()

logical function dcdatetime_eq_df	(	real(dp), intent(in)	d,
		type(dc_difftime), intent(in)	diff
	)

Compare double precision real with DC_DIFFTIME for equality

Compares whether time difference diff equals d. Returns .true. if diff converted to seconds equals d.

Parameters

[in]	d	Double precision real to compare
[in]	diff	Time difference

Returns

result .true. if equal, .false. otherwise

Definition at line 239 of file dcdatetimeeq.f90.

  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

References dc_types::dp.

dcdatetime_eq_fd()

logical function dcdatetime_eq_fd	(	type(dc_difftime), intent(in)	diff,
		real(dp), intent(in)	d
	)

Compare DC_DIFFTIME with double precision real for equality

Parameters

[in]	diff	Time difference
[in]	d	Double precision real to compare

Returns

result .true. if equal, .false. otherwise

Definition at line 268 of file dcdatetimeeq.f90.

  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

References dc_types::dp.

dcdatetime_eq_ff()

logical function dcdatetime_eq_ff	(	type(dc_difftime), intent(in)	diff1,
		type(dc_difftime), intent(in)	diff2
	)

Compare two DC_DIFFTIME values for equality

Compares two time difference arguments. Returns .true. if the time difference stored in the first argument is equal to the time difference stored in the second argument.

Parameters

[in]	diff1	First time difference
[in]	diff2	Second time difference

Returns

result .true. if equal, .false. otherwise

Definition at line 90 of file dcdatetimeeq.f90.

  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

dcdatetime_eq_fi()

logical function dcdatetime_eq_fi	(	type(dc_difftime), intent(in)	diff,
		integer, intent(in)	i
	)

Compare DC_DIFFTIME with integer for equality

Parameters

[in]	diff	Time difference
[in]	i	Integer to compare

Returns

result .true. if equal, .false. otherwise

Definition at line 149 of file dcdatetimeeq.f90.

  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

dcdatetime_eq_fr()

logical function dcdatetime_eq_fr	(	type(dc_difftime), intent(in)	diff,
		real, intent(in)	r
	)

Compare DC_DIFFTIME with single precision real for equality

Parameters

[in]	diff	Time difference
[in]	r	Real to compare

Returns

result .true. if equal, .false. otherwise

Definition at line 208 of file dcdatetimeeq.f90.

  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

dcdatetime_eq_if()

logical function dcdatetime_eq_if	(	integer, intent(in)	i,
		type(dc_difftime), intent(in)	diff
	)

Compare integer with DC_DIFFTIME for equality

Compares whether time difference diff equals i. Returns .true. if diff converted to seconds equals i.

Parameters

[in]	i	Integer to compare
[in]	diff	Time difference

Returns

result .true. if equal, .false. otherwise

Definition at line 126 of file dcdatetimeeq.f90.

  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

dcdatetime_eq_rf()

logical function dcdatetime_eq_rf	(	real, intent(in)	r,
		type(dc_difftime), intent(in)	diff
	)

Compare single precision real with DC_DIFFTIME for equality

Compares whether time difference diff equals r. Returns .true. if diff converted to seconds equals r.

Parameters

[in]	r	Real to compare
[in]	diff	Time difference

Returns

result .true. if equal, .false. otherwise

Definition at line 180 of file dcdatetimeeq.f90.

  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

dcdatetime_eq_tt()

logical function dcdatetime_eq_tt	(	type(dc_datetime), intent(in)	time1,
		type(dc_datetime), intent(in)	time2
	)

Functions for user defined operation (==)

Author

Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

Definition at line 45 of file dcdatetimeeq.f90.

  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