ESMF_CplCompNE Function

private impure elemental function ESMF_CplCompNE(cplcomp1, cplcomp2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_CplComp), intent(in) :: cplcomp1
type(ESMF_CplComp), intent(in) :: cplcomp2

Return Value logical


Calls

proc~~esmf_cplcompne~~CallsGraph proc~esmf_cplcompne ESMF_CplCompNE proc~esmf_cplcompeq ESMF_CplCompEQ proc~esmf_cplcompne->proc~esmf_cplcompeq proc~esmf_cplcompgetinit ESMF_CplCompGetInit proc~esmf_cplcompeq->proc~esmf_cplcompgetinit

Called by

proc~~esmf_cplcompne~~CalledByGraph proc~esmf_cplcompne ESMF_CplCompNE interface~operator(SLASH=)~19 operator(/=) interface~operator(SLASH=)~19->proc~esmf_cplcompne

Source Code

  impure elemental function ESMF_CplCompNE(cplcomp1, cplcomp2)
!
! !RETURN VALUE:
    logical :: ESMF_CplCompNE

! !ARGUMENTS:
    type(ESMF_CplComp), intent(in) :: cplcomp1
    type(ESMF_CplComp), intent(in) :: cplcomp2

! !DESCRIPTION:
!   Test if both {\tt cplcomp1} and {\tt cplcomp2} alias the same ESMF CplComp
!   object.
!
!EOPI
!-------------------------------------------------------------------------------

    ESMF_INIT_TYPE ccinit1, ccinit2
    integer :: localrc1, localrc2
    logical :: lval1, lval2

    ! Use the following logic, rather than "ESMF-INIT-CHECK-DEEP", to gain
    ! init checks on both args, and in the case where both are uninitialized,
    ! to distinguish equality based on uninitialized type (uncreated,
    ! deleted).

    ESMF_CplCompNE = .not.ESMF_CplCompEQ(cplcomp1, cplcomp2)

  end function ESMF_CplCompNE