private function Inequality(time1, time2) result(isInequal)
return true if time1 is different from time2
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
type(DateTime),
|
intent(in) |
|
|
:: |
time1 |
|
|
type(DateTime),
|
intent(in) |
|
|
:: |
time2 |
|
Return Value
logical
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
type(DateTime),
|
public |
|
:: |
tempTime1 |
|
|
|
|
type(DateTime),
|
public |
|
:: |
tempTime2 |
|
|
|
Source Code
FUNCTION Inequality &
!
(time1, time2) &
!
RESULT (isInequal)
IMPLICIT NONE
! Arguments with intent(in):
TYPE (DateTime), INTENT(IN) :: time1, time2
! Local declarations:
LOGICAL :: isInequal
TYPE (DateTime) :: tempTime1, tempTime2
!------------end of declaration------------------------------------------------
!converto to utc
tempTime1 = ToUtc (time1)
tempTime2 = ToUtc (time2)
IF( tempTime1 % year /= tempTime2 % year .OR. &
tempTime1 % month /= tempTime2 % month .OR. &
tempTime1 % day /= tempTime2 % day .OR. &
tempTime1 % hour /= tempTime2 % hour .OR. &
tempTime1 % minute /= tempTime2 % minute .OR. &
tempTime1 % second /= tempTime2 % second ) THEN
isInequal = .TRUE.
ELSE
isInequal = .FALSE.
END IF
END FUNCTION Inequality
