for(jjs = js; jjs < js + min_j; jjs += min_jj){
min_jj = min_j + js - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
START_RPCC();
for(jjs = js; jjs < js + min_j; jjs += min_jj){
min_jj = min_j + js - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
START_RPCC();
for(jjs = js; jjs < js + min_j; jjs += min_jj){
min_jj = min_j + js - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
START_RPCC();
for(jjs = js; jjs < js + min_j; jjs += min_jj){
min_jj = min_j + js - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
START_RPCC();
for(jjs = 0; jjs < ls - js; jjs += min_jj){
min_jj = ls - js - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
#ifndef TRANSA
GEMM_ONCOPY(min_l, min_jj, a + (ls + (js + jjs) * lda) * COMPSIZE, lda, sb + min_l * jjs * COMPSIZE);
for(jjs = 0; jjs < min_l; jjs += min_jj){
min_jj = min_l - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
#ifndef TRANSA
TRMM_OLNCOPY(min_l, min_jj, a, lda, ls, ls + jjs, sb + min_l * (ls - js + jjs) * COMPSIZE);
for(jjs = js; jjs < js + min_j; jjs += min_jj){
min_jj = min_j + js - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
#ifndef TRANSA
GEMM_ONCOPY(min_l, min_jj, a + (ls + jjs * lda) * COMPSIZE, lda, sb + min_l * (jjs - js) * COMPSIZE);
for(jjs = 0; jjs < min_l; jjs += min_jj){
min_jj = min_l - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
#ifndef TRANSA
TRMM_OUNCOPY(min_l, min_jj, a, lda, ls, ls + jjs, sb + min_l * jjs * COMPSIZE);
for(jjs = 0; jjs < js - ls - min_l; jjs += min_jj){
min_jj = js - ls - min_l - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
#ifndef TRANSA
GEMM_ONCOPY(min_l, min_jj, a + (ls + (ls + min_l + jjs) * lda) * COMPSIZE, lda,
for(jjs = js; jjs < js + min_j; jjs += min_jj){
min_jj = min_j + js - jjs;
- if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
+ if (min_jj > GEMM_UNROLL_N*3) min_jj = GEMM_UNROLL_N*3;
+ else
+ if (min_jj > GEMM_UNROLL_N) min_jj = GEMM_UNROLL_N;
#ifndef TRANSA
GEMM_ONCOPY(min_l, min_jj, a + (ls + (jjs - min_j) * lda) * COMPSIZE, lda, sb + min_l * (jjs - js) * COMPSIZE);