ESMF_DistGridMatch_FlagEQ Function

private function ESMF_DistGridMatch_FlagEQ(dgmt1, dgmt2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_DistGridMatch_Flag), intent(in) :: dgmt1
type(ESMF_DistGridMatch_Flag), intent(in) :: dgmt2

Return Value logical


Called by

proc~~esmf_distgridmatch_flageq~~CalledByGraph proc~esmf_distgridmatch_flageq ESMF_DistGridMatch_FlagEQ interface~operator(==)~12 operator(==) interface~operator(==)~12->proc~esmf_distgridmatch_flageq proc~esmf_distgridmatch_flagne ESMF_DistGridMatch_FlagNE proc~esmf_distgridmatch_flagne->proc~esmf_distgridmatch_flageq interface~operator(SLASH=)~12 operator(/=) interface~operator(SLASH=)~12->proc~esmf_distgridmatch_flagne

Source Code

  function ESMF_DistGridMatch_FlagEQ(dgmt1, dgmt2)
! 
! !RETURN VALUE:
    logical :: ESMF_DistGridMatch_FlagEQ

! !ARGUMENTS:
    type(ESMF_DistGridMatch_Flag), intent(in) :: dgmt1
    type(ESMF_DistGridMatch_Flag), intent(in) :: dgmt2

! !DESCRIPTION:
!
!EOPI
!-------------------------------------------------------------------------------

    ESMF_DistGridMatch_FlagEQ = dgmt1%value .eq. dgmt2%value

  end function ESMF_DistGridMatch_FlagEQ