ESMF_VMNE Function

private impure elemental function ESMF_VMNE(vm1, vm2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_VM), intent(in) :: vm1
type(ESMF_VM), intent(in) :: vm2

Return Value logical


Calls

proc~~esmf_vmne~~CallsGraph proc~esmf_vmne ESMF_VMNE proc~esmf_vmeq ESMF_VMEQ proc~esmf_vmne->proc~esmf_vmeq proc~esmf_vmgetinit ESMF_VMGetInit proc~esmf_vmeq->proc~esmf_vmgetinit

Called by

proc~~esmf_vmne~~CalledByGraph proc~esmf_vmne ESMF_VMNE interface~operator(SLASH=)~3 operator(/=) interface~operator(SLASH=)~3->proc~esmf_vmne

Source Code

  impure elemental function ESMF_VMNE(vm1, vm2)
! 
! !RETURN VALUE:
    logical :: ESMF_VMNE

! !ARGUMENTS:
    type(ESMF_VM), intent(in) :: vm1
    type(ESMF_VM), intent(in) :: vm2

! !DESCRIPTION:
!   Test if both {\tt vm1} and {\tt vm2} alias the same ESMF VM 
!   object.
!
!EOPI
!-------------------------------------------------------------------------------

    ESMF_VMNE = .not.ESMF_VMEQ(vm1, vm2)

  end function ESMF_VMNE