dcdatetimeeq.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	dcdatetime_eq_tt (time1, time2)
	利用者定義演算子 (==) のための関数
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
	)

倍精度実数と DC_DIFFTIME が等しいか比較

引数 diff の日時差が d と等しいかどうかを比較します. diff を秒数に換算した値と d とが等しい場合, .true. が返ります.

Parameters

[in]	d	比較する倍精度実数
[in]	diff	日時差

Returns

result 等しい場合 .true., そうでなければ .false.

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
	)

DC_DIFFTIME と倍精度実数が等しいか比較

Parameters

[in]	diff	日時差
[in]	d	比較する倍精度実数

Returns

result 等しい場合 .true., そうでなければ .false.

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
	)

2つの DC_DIFFTIME 値が等しいか比較

2 つの引数の日時差を比較します. 1 つ目の引数に格納される日時差が 2 つ目の引数に格納される日時差 と同じ場合, .true. が返ります.

Parameters

[in]	diff1	1つ目の日時差
[in]	diff2	2つ目の日時差

Returns

result 等しい場合 .true., そうでなければ .false.

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
	)

DC_DIFFTIME と整数が等しいか比較

Parameters

[in]	diff	日時差
[in]	i	比較する整数

Returns

result 等しい場合 .true., そうでなければ .false.

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
	)

DC_DIFFTIME と単精度実数が等しいか比較

Parameters

[in]	diff	日時差
[in]	r	比較する実数

Returns

result 等しい場合 .true., そうでなければ .false.

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
	)

整数と DC_DIFFTIME が等しいか比較

引数 diff の日時差が i と等しいかどうかを比較します. diff を秒数に換算した値と i とが等しい場合, .true. が返ります.

Parameters

[in]	i	比較する整数
[in]	diff	日時差

Returns

result 等しい場合 .true., そうでなければ .false.

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
	)

単精度実数と DC_DIFFTIME が等しいか比較

引数 diff の日時差が r と等しいかどうかを比較します. diff を秒数に換算した値と r とが等しい場合, .true. が返ります.

Parameters

[in]	r	比較する実数
[in]	diff	日時差

Returns

result 等しい場合 .true., そうでなければ .false.

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
	)

利用者定義演算子 (==) のための関数

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