ESMF_inqfeq Function

private impure elemental function ESMF_inqfeq(inqf1, inqf2)

Arguments

Type IntentOptional Attributes Name
type(ESMF_InquireFlag), intent(in) :: inqf1
type(ESMF_InquireFlag), intent(in) :: inqf2

Return Value logical


Source Code

impure elemental function ESMF_inqfeq(inqf1, inqf2)
  logical ESMF_inqfeq
  type(ESMF_InquireFlag), intent(in) :: inqf1, inqf2

  ESMF_inqfeq = (inqf1%flag == inqf2%flag)
end function ESMF_inqfeq