ESMF_HConfigMatch_FlagEQ Function

private function ESMF_HConfigMatch_FlagEQ(hcmt1, hcmt2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_HConfigMatch_Flag), intent(in) :: hcmt1
type(ESMF_HConfigMatch_Flag), intent(in) :: hcmt2

Return Value logical


Called by

proc~~esmf_hconfigmatch_flageq~~CalledByGraph proc~esmf_hconfigmatch_flageq ESMF_HConfigMatch_FlagEQ interface~operator(==)~5 operator(==) interface~operator(==)~5->proc~esmf_hconfigmatch_flageq proc~esmf_hconfigmatch_flagne ESMF_HConfigMatch_FlagNE proc~esmf_hconfigmatch_flagne->proc~esmf_hconfigmatch_flageq interface~operator(SLASH=)~5 operator(/=) interface~operator(SLASH=)~5->proc~esmf_hconfigmatch_flagne

Source Code

  function ESMF_HConfigMatch_FlagEQ(hcmt1, hcmt2)
!
! !RETURN VALUE:
    logical :: ESMF_HConfigMatch_FlagEQ

! !ARGUMENTS:
    type(ESMF_HConfigMatch_Flag), intent(in) :: hcmt1
    type(ESMF_HConfigMatch_Flag), intent(in) :: hcmt2

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

    ESMF_HConfigMatch_FlagEQ = hcmt1%value .eq. hcmt2%value

  end function ESMF_HConfigMatch_FlagEQ