mv_Av_3 Subroutine

private pure subroutine mv_Av_3(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_av_3~~CalledByGraph proc~mv_av_3 formatmul_opts::mv_Av_3 proc~mat_vec_rel_av_opt formatmul_opts::mat_vec_rel_Av_opt proc~mat_vec_rel_av_opt->proc~mv_av_3 proc~mat_vec_rel_av formatmul::mat_vec_rel_Av proc~mat_vec_rel_av->proc~mat_vec_rel_av_opt proc~mat_vec_rel formatmul::mat_vec_rel proc~mat_vec_rel->proc~mat_vec_rel_av interface~matmul formatmul::matmul interface~matmul->proc~mat_vec_rel

Source Code

   pure subroutine mv_Av_3(A, v, w)
      real(rk), intent(in), contiguous :: A(:,:), v(:)
      real(rk), intent(inout), contiguous :: w(:)
      integer :: m, n
      integer :: i, j

      m = size(A,1)
      n = size(A,2)

      do i=1,m
         do j=1,n
            w(i) = w(i) + a(i,j)*v(j)
         end do
      end do

   end subroutine mv_Av_3