dcdatetimelt.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	dcdatetime_lt_tt (time1, time2)
	利用者定義演算子 (<) のための関数
logical function	dcdatetime_lt_ff (diff1, diff2)
logical function	dcdatetime_lt_fi (diff, factor)
logical function	dcdatetime_lt_if (factor, diff)

Function/Subroutine Documentation

dcdatetime_lt_ff()

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

2つの DC_DIFFTIME 変数の比較 (<)

2 つの引数の日時差を比較します. 2 つ目の引数に格納される日時差が 1 つ目の引数に格納される日時差 よりも大きい場合, .true. が返ります.

Parameters

[in]	diff1	比較する1番目の日時差
[in]	diff2	比較する2番目の日時差

Returns

diff1 < diff2 の場合 .true., それ以外は .false.

Definition at line 98 of file dcdatetimelt.f90.

 
  use dc_date_generic, only: evalsec
  use dc_date_types, only: dc_datetime, dc_difftime
  use dc_scaledsec, only: &
    & operator(<), operator(>), operator(<=), operator(>=), operator(==)
  implicit none
  type(DC_DIFFTIME), intent(in):: diff1, diff2
continue
  if ( diff1 % day_seconds == diff2 % day_seconds ) then
 
    if ( diff1 % mon < diff2 % mon ) then
      result = .true.  ; return
    elseif ( diff1 % mon > diff2 % mon ) then
      result = .false. ; return
    end if
    if ( diff1 % day < diff2 % day ) then
      result = .true.  ; return
    elseif ( diff1 % day > diff2 % day ) then
      result = .false. ; return
    end if
    if ( diff1 % sec < diff2 % sec ) then
      result = .true.  ; return
    elseif ( diff1 % sec > diff2 % sec ) then
      result = .false. ; return
    end if
    result = .false.
  else
 
    if (evalsec(diff1) < evalsec(diff2)) then
      result = .true.
    else
      result = .false.
    end if
  end if
 

dcdatetime_lt_fi()

logical function dcdatetime_lt_fi	(	type(dc_difftime), intent(in)	diff,
		integer, intent(in)	factor )

DC_DIFFTIME と整数の比較 (<)

2 つの引数の日時差を比較します. 2 つ目の引数に格納される日時差が 1 つ目の引数に格納される日時差 よりも大きい場合, .true. が返ります.

Parameters

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

Returns

diff < factor の場合 .true., それ以外は .false.

Definition at line 159 of file dcdatetimelt.f90.

 
  use dc_date_generic, only: evalsec
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  type(DC_DIFFTIME), intent(in):: diff
  integer, intent(in):: factor
continue
  result = evalsec(diff) < factor

dcdatetime_lt_if()

logical function dcdatetime_lt_if	(	integer, intent(in)	factor,
		type(dc_difftime), intent(in)	diff )

整数と DC_DIFFTIME の比較 (<)

2 つの引数の日時差を比較します. 2 つ目の引数に格納される日時差が 1 つ目の引数に格納される日時差 よりも大きい場合, .true. が返ります.

Parameters

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

Returns

factor < diff の場合 .true., それ以外は .false.

Definition at line 193 of file dcdatetimelt.f90.

 
  use dc_date_generic, only: evalsec
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  integer, intent(in):: factor
  type(DC_DIFFTIME), intent(in):: diff
continue
  result = factor < evalsec(diff)

dcdatetime_lt_tt()

logical function dcdatetime_lt_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

このファイルには dc_date_types#DC_DATETIME および dc_date_types#DC_DIFFTIME の小なり比較の実装手続きが含まれています。

2つの DC_DATETIME 変数の比較 (<)

2 つの引数の日時を比較します. 2 つ目の引数に格納される日時が 1 つ目の引数に格納される日時 よりも進んでいる場合, .true. が返ります.

Parameters

[in]	time1	比較する1番目の日時
[in]	time2	比較する2番目の日時

Returns

time1 < time2 の場合 .true., それ以外は .false.

Definition at line 47 of file dcdatetimelt.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(+)
  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)
  if (year1 < year2) then
    result = .true.
  elseif (year1 > year2) then
    result = .false.
  else
    time1_sec = evalsclsec(time1) + evalsclsec(zonetodiff(time1 % zone))
    time2_sec = evalsclsec(time2) + evalsclsec(zonetodiff(time2 % zone))
    if (time1_sec < time2_sec) then
      result = .true.
    else
      result = .false.
    end if
  end if