ESMF_ConfigNE Function

private impure elemental function ESMF_ConfigNE(Config1, Config2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Config), intent(in) :: Config1
type(ESMF_Config), intent(in) :: Config2

Return Value logical


Source Code

  impure elemental function ESMF_ConfigNE(Config1, Config2)
!
! !RETURN VALUE:
    logical :: ESMF_ConfigNE

! !ARGUMENTS:
    type(ESMF_Config), intent(in) :: Config1
    type(ESMF_Config), intent(in) :: Config2

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

    ESMF_ConfigNE = .not. associated (Config1%cptr, Config2%cptr)

  end function ESMF_ConfigNE