| @@ -52,6 +52,8 @@ int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alpha,FLOAT* ba,FLOAT* bb,FL | |||||
| #if !defined(LEFT) | #if !defined(LEFT) | ||||
| off = -offset; | off = -offset; | ||||
| #else | |||||
| off = 0; | |||||
| #endif | #endif | ||||
| @@ -11,6 +11,8 @@ int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alpha,FLOAT* ba,FLOAT* bb,FL | |||||
| BLASLONG off, temp; | BLASLONG off, temp; | ||||
| #if defined(TRMMKERNEL) && !defined(LEFT) | #if defined(TRMMKERNEL) && !defined(LEFT) | ||||
| off = -offset; | off = -offset; | ||||
| #else | |||||
| off = 0; | |||||
| #endif | #endif | ||||
| for (j=0; j<bn/2; j+=1) | for (j=0; j<bn/2; j+=1) | ||||
| { | { | ||||
| @@ -34,6 +34,8 @@ int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alpha,FLOAT* ba,FLOAT* bb,FL | |||||
| #if !defined(LEFT) | #if !defined(LEFT) | ||||
| off = -offset; | off = -offset; | ||||
| #else | |||||
| off = 0; | |||||
| #endif | #endif | ||||
| @@ -15,6 +15,8 @@ int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alphar,FLOAT alphai,FLOAT* b | |||||
| #if defined(TRMMKERNEL) && !defined(LEFT) | #if defined(TRMMKERNEL) && !defined(LEFT) | ||||
| off = -offset; | off = -offset; | ||||
| #else | |||||
| off = 0; | |||||
| #endif | #endif | ||||
| for (j=0; j<bn/2; j+=1) | for (j=0; j<bn/2; j+=1) | ||||
| { | { | ||||
| @@ -53,6 +53,8 @@ int CNAME(BLASLONG bm,BLASLONG bn,BLASLONG bk,FLOAT alpha_r, FLOAT alpha_i,FLOAT | |||||
| #if defined(TRMMKERNEL) && !defined(LEFT) | #if defined(TRMMKERNEL) && !defined(LEFT) | ||||
| off = -offset; | off = -offset; | ||||
| #else | |||||
| off = 0; | |||||
| #endif | #endif | ||||
| for (j=0; j<bn/4; j+=1) // do blocks of the Mx4 loops | for (j=0; j<bn/4; j+=1) // do blocks of the Mx4 loops | ||||