mv_ATv_7 Subroutine

private pure subroutine mv_ATv_7(A, v, w)

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in), contiguous :: A(:,:)
real(kind=rk), intent(in), contiguous :: v(:)
real(kind=rk), intent(inout), contiguous :: w(:)

Called by

proc~~mv_atv_7~~CalledByGraph proc~mv_atv_7 formatmul_opts::mv_ATv_7 proc~mat_vec_rel_atv_opt formatmul_opts::mat_vec_rel_ATv_opt proc~mat_vec_rel_atv_opt->proc~mv_atv_7 proc~mat_vec_rel_atv formatmul::mat_vec_rel_ATv proc~mat_vec_rel_atv->proc~mat_vec_rel_atv_opt proc~mat_vec_rel formatmul::mat_vec_rel proc~mat_vec_rel->proc~mat_vec_rel_atv interface~matmul formatmul::matmul interface~matmul->proc~mat_vec_rel

Source Code

   pure subroutine mv_ATv_7(A, v, w)
      real(rk), intent(in), contiguous :: A(:,:), v(:)
      real(rk), intent(inout), contiguous :: w(:)
      integer :: m, n
      integer :: k

      m = size(A,2)

      error stop 'ForMatMul: shared is not supported in gfortran'

      !   do concurrent (k = 1: m) shared(m,a,v) ! check shared variables
      !      w(k) = dot_product(a(:,k), v(:))
      !   end do

   end subroutine mv_ATv_7