ESMF_GeomNE Function

private impure elemental function ESMF_GeomNE(geom1, geom2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Geom), intent(in) :: geom1
type(ESMF_Geom), intent(in) :: geom2

Return Value logical


Calls

proc~~esmf_geomne~~CallsGraph proc~esmf_geomne ESMF_GeomNE proc~esmf_geomeq ESMF_GeomEQ proc~esmf_geomne->proc~esmf_geomeq proc~esmf_geomgetinit ESMF_GeomGetInit proc~esmf_geomeq->proc~esmf_geomgetinit

Called by

proc~~esmf_geomne~~CalledByGraph proc~esmf_geomne ESMF_GeomNE interface~operator(SLASH=)~23 operator(/=) interface~operator(SLASH=)~23->proc~esmf_geomne

Source Code

  impure elemental function ESMF_GeomNE(geom1, geom2)
!
! !RETURN VALUE:
    logical :: ESMF_GeomNE

! !ARGUMENTS:
    type(ESMF_Geom), intent(in) :: geom1
    type(ESMF_Geom), intent(in) :: geom2

! !DESCRIPTION:
!   Test if both {\tt geom1} and {\tt geom2} alias the same ESMF Geom
!   object.
!
!EOPI
!-------------------------------------------------------------------------------

    ESMF_INIT_TYPE ginit1, ginit2
    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_GeomNE = .not.ESMF_GeomEQ(geom1, geom2)

  end function ESMF_GeomNE