From 9a5178b01115ca74521dbb44dde174a0e187b9c2 Mon Sep 17 00:00:00 2001 From: v1j4y Date: Tue, 9 Aug 2022 17:09:09 +0200 Subject: [PATCH] Fixed indices caused by typo. --- org/qmckl_blas.org | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/org/qmckl_blas.org b/org/qmckl_blas.org index d42cc5f..7d204d6 100644 --- a/org/qmckl_blas.org +++ b/org/qmckl_blas.org @@ -979,7 +979,7 @@ integer function qmckl_dgemm_f(context, TransA, TransB, & do j=1,n do i=1,m - C(i,j) = alpha*C1(j,i) + beta*C(j,i) + C(i,j) = alpha*C1(j,i) + beta*C(i,j) end do end do