dcdatetimele.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
logical function	dcdatetime_le_tt (time1, time2)
	Functions for user defined operation (<=).
logical function	dcdatetime_le_ff (diff1, diff2)
logical function	dcdatetime_le_fi (diff, factor)
logical function	dcdatetime_le_if (factor, diff)

Function/Subroutine Documentation

dcdatetime_le_ff()

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

Compare two DC_DIFFTIME variables (<=)

Compare two time difference values. Returns .true. if the time difference stored in the second argument is greater than or equal to the time difference stored in the first argument.

Parameters

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

Returns

.true. if diff1 <= diff2, .false. otherwise

Definition at line 80 of file dcdatetimele.f90.

 
  use dc_date_generic, only: operator(>)
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  type(DC_DIFFTIME), intent(in):: diff1, diff2
continue
  result = .not. diff1 > diff2

dcdatetime_le_fi()

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

Compare DC_DIFFTIME with integer (<=)

Compare a time difference value with an integer. Returns .true. if the time difference stored in the first argument is less than or equal to the integer stored in the second argument.

Parameters

[in]	diff	Time difference to compare
[in]	factor	Integer value to compare

Returns

.true. if diff <= factor, .false. otherwise

Definition at line 113 of file dcdatetimele.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):: factor
continue
  result = .not. diff > factor

dcdatetime_le_if()

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

Compare integer with DC_DIFFTIME (<=)

Compare an integer with a time difference value. Returns .true. if the integer stored in the first argument is less than or equal to the time difference stored in the second argument.

Parameters

[in]	factor	Integer value to compare
[in]	diff	Time difference to compare

Returns

.true. if factor <= diff, .false. otherwise

Definition at line 147 of file dcdatetimele.f90.

 
  use dc_date_generic, only: operator(>)
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  integer, intent(in):: factor
  type(DC_DIFFTIME), intent(in):: diff
continue
  result = .not. factor > diff

dcdatetime_le_tt()

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

This file contains implementation procedures of less-than-or-equal comparison for dc_date_types#DC_DATETIME and dc_date_types#DC_DIFFTIME.

Compare two DC_DATETIME variables (<=)

Compare two datetime values. Returns .true. if the datetime stored in the second argument is later than or equal to the datetime stored in the first argument.

Parameters

[in]	time1	First datetime to compare
[in]	time2	Second datetime to compare

Returns

.true. if time1 <= time2, .false. otherwise

Definition at line 47 of file dcdatetimele.f90.

 
  use dc_date_generic, only: operator(>)
  use dc_date_types, only: dc_datetime, dc_difftime
  implicit none
  type(DC_DATETIME), intent(in):: time1, time2
continue
  result = .not. time1 > time2