vecmult_base Subroutine

public subroutine vecmult_base(self, y, x)

pointwise multiplication between two vectors: y(:) = y(:) * x(:)

Type Bound

base_backend_t

Arguments

Type IntentOptional Attributes Name
class(base_backend_t) :: self
class(field_t), intent(inout) :: y
class(field_t), intent(in) :: x

Called by

proc~~vecmult_base~~CalledByGraph proc~vecmult_base m_base_backend::base_backend_t%vecmult_base none~apply_damping m_abl::abl_t%apply_damping none~apply_damping->proc~vecmult_base none~body m_ibm::ibm_t%body none~body->proc~vecmult_base none~apply_forcing m_abl::abl_t%apply_forcing none~apply_forcing->none~apply_damping proc~run m_base_case::base_case_t%run proc~run->none~body proc~forcings_abl m_case_abl::case_abl_t%forcings_abl proc~forcings_abl->none~apply_forcing program~xcompact xcompact program~xcompact->proc~run