ESMF_InfoEqual Function

private impure elemental function ESMF_InfoEqual(lhs, rhs) result(is_equal)

Arguments

Type IntentOptional Attributes Name
type(ESMF_Info), intent(in) :: lhs
type(ESMF_Info), intent(in) :: rhs

Return Value logical


Source Code

impure elemental function ESMF_InfoEqual(lhs, rhs) result(is_equal)
  type(ESMF_Info), intent(in) :: lhs
  type(ESMF_Info), intent(in) :: rhs
  logical :: is_equal

  integer :: localrc
  integer(C_INT) :: local_is_equal

  local_is_equal = 0  !false
  call c_info_is_equal(lhs%ptr, rhs%ptr, local_is_equal, localrc)
  if (ESMF_LogFoundError(localrc, ESMF_ERR_PASSTHRU, ESMF_CONTEXT)) return

  is_equal = .false.
  if (local_is_equal == 1) is_equal = .true.
end function ESMF_InfoEqual