internal_mm_s_nn Subroutine

private pure subroutine internal_mm_s_nn(M, N, K, A, B, C)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: M
integer, intent(in) :: N
integer, intent(in) :: K
real(kind=real_4), intent(in) :: A(M,K)
real(kind=real_4), intent(in) :: B(K,N)
real(kind=real_4), intent(inout) :: C(M,N)

Source Code

      PURE SUBROUTINE internal_mm_s_nn( &
         M, N, K, A, B, C)
         INTEGER, INTENT(IN)                      :: M, N, K
         REAL(kind=real_4), INTENT(INOUT)                   :: C(M, N)
         REAL(kind=real_4), INTENT(IN)                      :: B(K, N)
         REAL(kind=real_4), INTENT(IN)                      :: A(M, K)
         C(:, :) = C(:, :) + MATMUL(A, B)
      END SUBROUTINE internal_mm_s_nn