mm_AB_10 Subroutine

private pure subroutine mm_AB_10(A, B, C)

Arguments

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

Called by

proc~~mm_ab_10~~CalledByGraph proc~mm_ab_10 formatmul_opts::mm_AB_10 proc~mat_mat_rel_ab_opt formatmul_opts::mat_mat_rel_AB_opt proc~mat_mat_rel_ab_opt->proc~mm_ab_10 proc~mat_mat_rel_ab formatmul::mat_mat_rel_AB proc~mat_mat_rel_ab->proc~mat_mat_rel_ab_opt proc~mat_mat_rel formatmul::mat_mat_rel proc~mat_mat_rel->proc~mat_mat_rel_ab interface~matmul formatmul::matmul interface~matmul->proc~mat_mat_rel

Source Code

   pure subroutine mm_AB_10(A, B, C)
      real(rk), intent(in), contiguous :: A(:,:), B(:,:)
      real(rk), intent(inout), contiguous :: C(:,:)
      integer :: m, p
      integer :: i, k

      m = size(A,1)
      p = size(B,2)

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

      !   do concurrent (i = 1: p) shared(m, p) ! check shared variables
      !     do k = 1, m
      !         c(k,i) = dot_product(a(k,:), b(:,i))
      !     end do
      !   end do

   end subroutine mm_AB_10