psblas3/openacc/impl/psb_d_oacc_mlt_v.f90

submodule (psb_d_oacc_vect_mod) psb_d_oacc_mlt_v_impl
  use psb_string_mod
contains

  module subroutine psb_d_oacc_mlt_v(x, y, info)

    implicit none 
    class(psb_d_base_vect_type), intent(inout) :: x
    class(psb_d_vect_oacc), intent(inout)       :: y
    integer(psb_ipk_), intent(out)             :: info

    integer(psb_ipk_) :: i, n

    info = 0    
    n = min(x%get_nrows(), y%get_nrows())
    select type(xx => x)
    class is (psb_d_vect_oacc)
      if (y%is_host()) call y%sync()
      if (xx%is_host()) call xx%sync()
      !$acc parallel loop
      do i = 1, n
        y%v(i) = y%v(i) * xx%v(i)
      end do
      call y%set_dev()
    class default
      if (xx%is_dev()) call xx%sync()
      if (y%is_dev()) call y%sync()
      do i = 1, n
        y%v(i) = y%v(i) * xx%v(i)
      end do
      call y%set_host()
    end select
  end subroutine psb_d_oacc_mlt_v
end submodule psb_d_oacc_mlt_v_impl