ESMF_LogEQ Function

private impure elemental function ESMF_LogEQ(log1, log2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Log), intent(in) :: log1
type(ESMF_Log), intent(in) :: log2

Return Value logical


Source Code

  impure elemental function ESMF_LogEQ(log1, log2)
!
! !RETURN VALUE:
    logical :: ESMF_LogEQ

! !ARGUMENTS:
    type(ESMF_Log), intent(in) :: log1
    type(ESMF_Log), intent(in) :: log2

! !DESCRIPTION:
!     This method overloads the (==) operator for the {\tt ESMF\_Log}
!     class.  See "interface operator(==)" above for complete description.
!
!EOPI

    ESMF_LogEQ = log1%logTableIndex == log2%logTableIndex

  end function ESMF_LogEQ