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


Calls

proc~~esmf_infoequal~~CallsGraph proc~esmf_infoequal ESMF_InfoEqual interface~c_info_is_equal c_info_is_equal proc~esmf_infoequal->interface~c_info_is_equal proc~esmf_logfounderror ESMF_LogFoundError proc~esmf_infoequal->proc~esmf_logfounderror esmf_breakpoint esmf_breakpoint proc~esmf_logfounderror->esmf_breakpoint proc~esmf_logrc2msg ESMF_LogRc2Msg proc~esmf_logfounderror->proc~esmf_logrc2msg proc~esmf_logwrite ESMF_LogWrite proc~esmf_logfounderror->proc~esmf_logwrite c_esmc_loggeterrormsg c_esmc_loggeterrormsg proc~esmf_logrc2msg->c_esmc_loggeterrormsg c_esmc_vmwtime c_esmc_vmwtime proc~esmf_logwrite->c_esmc_vmwtime proc~esmf_logclose ESMF_LogClose proc~esmf_logwrite->proc~esmf_logclose proc~esmf_logflush ESMF_LogFlush proc~esmf_logwrite->proc~esmf_logflush proc~esmf_logopenfile ESMF_LogOpenFile proc~esmf_logwrite->proc~esmf_logopenfile proc~esmf_utiliounitflush ESMF_UtilIOUnitFlush proc~esmf_logwrite->proc~esmf_utiliounitflush proc~esmf_utilstring2array ESMF_UtilString2Array proc~esmf_logwrite->proc~esmf_utilstring2array proc~esmf_logclose->proc~esmf_logflush proc~esmf_logflush->proc~esmf_utiliounitflush proc~esmf_utilarray2string ESMF_UtilArray2String proc~esmf_logflush->proc~esmf_utilarray2string proc~esmf_logopenfile->proc~esmf_utiliounitflush proc~esmf_utiliounitget ESMF_UtilIOUnitGet proc~esmf_logopenfile->proc~esmf_utiliounitget

Called by

proc~~esmf_infoequal~~CalledByGraph proc~esmf_infoequal ESMF_InfoEqual interface~operator(==)~18 operator(==) interface~operator(==)~18->proc~esmf_infoequal proc~esmf_infonotequal ESMF_InfoNotEqual proc~esmf_infonotequal->proc~esmf_infoequal interface~operator(SLASH=)~18 operator(/=) interface~operator(SLASH=)~18->proc~esmf_infonotequal

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