diff --git a/frame/3/trsm/bli_trsm_ll_ker_var2.c b/frame/3/trsm/bli_trsm_ll_ker_var2.c index eef8154dd..ceead3b44 100644 --- a/frame/3/trsm/bli_trsm_ll_ker_var2.c +++ b/frame/3/trsm/bli_trsm_ll_ker_var2.c @@ -243,7 +243,7 @@ void PASTEMAC(ch,varname)( \ if ( m_left ) ++m_iter; \ \ /* Determine some increments used to step through A, B, and C. */ \ - rstep_a = k * PACKMR; \ + rstep_a = ps_a; \ \ cstep_b = ps_b; \ \ @@ -294,7 +294,7 @@ void PASTEMAC(ch,varname)( \ \ /* Compute various offsets into and lengths of parts of A. */ \ off_a10 = 0; \ - k_a1011 = bli_min( k, diagoffa_i + MR ); \ + k_a1011 = diagoffa_i + MR; \ k_a10 = k_a1011 - MR; \ off_a11 = k_a10; \ \ diff --git a/frame/3/trsm/bli_trsm_lu_ker_var2.c b/frame/3/trsm/bli_trsm_lu_ker_var2.c index 932ea5ec4..7062b0cd6 100644 --- a/frame/3/trsm/bli_trsm_lu_ker_var2.c +++ b/frame/3/trsm/bli_trsm_lu_ker_var2.c @@ -252,7 +252,7 @@ void PASTEMAC(ch,varname)( \ if ( m_left ) ++m_iter; \ \ /* Determine some increments used to step through A, B, and C. */ \ - rstep_a = k * PACKMR; \ + rstep_a = ps_a; \ \ cstep_b = ps_b; \ \ @@ -303,7 +303,7 @@ void PASTEMAC(ch,varname)( \ ctype* restrict a2; \ \ /* Compute various offsets into and lengths of parts of A. */ \ - off_a11 = bli_max( diagoffa_i, 0 ); \ + off_a11 = diagoffa_i; \ k_a1112 = k - off_a11;; \ k_a11 = MR; \ k_a12 = k_a1112 - MR; \ diff --git a/frame/3/trsm/bli_trsm_rl_ker_var2.c b/frame/3/trsm/bli_trsm_rl_ker_var2.c index f636ae930..837c76626 100644 --- a/frame/3/trsm/bli_trsm_rl_ker_var2.c +++ b/frame/3/trsm/bli_trsm_rl_ker_var2.c @@ -267,7 +267,7 @@ void PASTEMAC(ch,varname)( \ /* Determine some increments used to step through A, B, and C. */ \ rstep_a = ps_a; \ \ - cstep_b = k * PACKNR; \ + cstep_b = ps_b; \ \ rstep_c = rs_c * MR; \ cstep_c = cs_c * NR; \ diff --git a/frame/3/trsm/bli_trsm_ru_ker_var2.c b/frame/3/trsm/bli_trsm_ru_ker_var2.c index f97b690b2..0977705bd 100644 --- a/frame/3/trsm/bli_trsm_ru_ker_var2.c +++ b/frame/3/trsm/bli_trsm_ru_ker_var2.c @@ -262,7 +262,7 @@ void PASTEMAC(ch,varname)( \ /* Determine some increments used to step through A, B, and C. */ \ rstep_a = ps_a; \ \ - cstep_b = k * PACKNR; \ + cstep_b = ps_b; \ \ rstep_c = rs_c * MR; \ cstep_c = cs_c * NR; \