Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(ESMF_TimeInterval), | intent(in) | :: | timeinterval1 | |||
type(ESMF_TimeInterval), | intent(in) | :: | timeinterval2 |
impure elemental function ESMF_TimeIntervalEQ(timeinterval1, timeinterval2) ! ! !RETURN VALUE: logical :: ESMF_TimeIntervalEQ ! !ARGUMENTS: type(ESMF_TimeInterval), intent(in) :: timeinterval1 type(ESMF_TimeInterval), intent(in) :: timeinterval2 !DESCRIPTION: ! This method overloads the (==) operator for the {\tt ESMF\_TimeInterval} ! class. See "interface operator(==)" above for complete description. ! !EOPI integer :: localrc ! Initialize output value in case of error ESMF_TimeIntervalEQ = .false. ! check inputs ESMF_INIT_CHECK_SHALLOW_SHORT(ESMF_TimeIntervalGetInit,timeinterval1,localrc) ESMF_INIT_CHECK_SHALLOW_SHORT(ESMF_TimeIntervalGetInit,timeinterval2,localrc) ! invoke C to C++ entry point call c_ESMC_TimeIntervalEQ(timeinterval1, timeinterval2, & ESMF_TimeIntervalEQ) end function ESMF_TimeIntervalEQ