ESMF_LogNE Function

private impure elemental function ESMF_LogNE(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_LogNE(log1, log2)
!
! !RETURN VALUE:
    logical :: ESMF_LogNE

! !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_LogNE = log1%logTableIndex /= log2%logTableIndex

  end function ESMF_LogNE