| @@ -116,7 +116,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint | |||||
| *b2 = A2; | *b2 = A2; | ||||
| *b4 = A4; | *b4 = A4; | ||||
| } | } | ||||
| } else | |||||
| } else { | |||||
| if (b1 == a2) { | if (b1 == a2) { | ||||
| if (b2 == a2) { | if (b2 == a2) { | ||||
| *(buffer + 0) = A2; | *(buffer + 0) = A2; | ||||
| @@ -139,7 +139,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint | |||||
| *(buffer + 3) = A4; | *(buffer + 3) = A4; | ||||
| *b1 = A1; | *b1 = A1; | ||||
| *b3 = A3; | *b3 = A3; | ||||
| } else | |||||
| } else { | |||||
| if (b2 == b1) { | if (b2 == b1) { | ||||
| *(buffer + 0) = B1; | *(buffer + 0) = B1; | ||||
| *(buffer + 1) = B3; | *(buffer + 1) = B3; | ||||
| @@ -157,6 +157,8 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint | |||||
| *b3 = A3; | *b3 = A3; | ||||
| *b4 = A4; | *b4 = A4; | ||||
| } | } | ||||
| } | |||||
| } | |||||
| } | } | ||||
| buffer += 4; | buffer += 4; | ||||
| @@ -204,20 +204,20 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint | |||||
| *(b4 + 0) = A7; | *(b4 + 0) = A7; | ||||
| *(b4 + 1) = A8; | *(b4 + 1) = A8; | ||||
| } | } | ||||
| } | |||||
| } | |||||
| buffer += 8; | |||||
| buffer += 8; | |||||
| b1 = a + ip1; | |||||
| b2 = a + ip2; | |||||
| b1 = a + ip1; | |||||
| b2 = a + ip2; | |||||
| b3 = b1 + lda; | |||||
| b4 = b2 + lda; | |||||
| b3 = b1 + lda; | |||||
| b4 = b2 + lda; | |||||
| a1 += 4; | |||||
| a3 += 4; | |||||
| a1 += 4; | |||||
| a3 += 4; | |||||
| i --; | |||||
| i --; | |||||
| } while (i > 0); | } while (i > 0); | ||||
| } | } | ||||
| @@ -462,7 +462,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint | |||||
| *(b4 + 0) = A7; | *(b4 + 0) = A7; | ||||
| *(b4 + 1) = A8; | *(b4 + 1) = A8; | ||||
| } | } | ||||
| } else | |||||
| } else { | |||||
| if (b1 == a2) { | if (b1 == a2) { | ||||
| if (b2 == a2) { | if (b2 == a2) { | ||||
| *(buffer + 0) = A3; | *(buffer + 0) = A3; | ||||
| @@ -503,7 +503,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint | |||||
| *(b1 + 1) = A2; | *(b1 + 1) = A2; | ||||
| *(b3 + 0) = A5; | *(b3 + 0) = A5; | ||||
| *(b3 + 1) = A6; | *(b3 + 1) = A6; | ||||
| } else | |||||
| } else { | |||||
| if (b2 == b1) { | if (b2 == b1) { | ||||
| *(buffer + 0) = B1; | *(buffer + 0) = B1; | ||||
| *(buffer + 1) = B2; | *(buffer + 1) = B2; | ||||
| @@ -536,6 +536,8 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT *a, BLASLONG lda, blasint | |||||
| *(b4 + 0) = A7; | *(b4 + 0) = A7; | ||||
| *(b4 + 1) = A8; | *(b4 + 1) = A8; | ||||
| } | } | ||||
| } | |||||
| } | |||||
| } | } | ||||
| buffer += 8; | buffer += 8; | ||||
| @@ -174,7 +174,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG | |||||
| *a8 = B8; | *a8 = B8; | ||||
| *b8 = A8; | *b8 = A8; | ||||
| } | } | ||||
| } else | |||||
| } else { | |||||
| if (b1 == a2) { | if (b1 == a2) { | ||||
| if (b2 != a1) { | if (b2 != a1) { | ||||
| if (b2 == a2) { | if (b2 == a2) { | ||||
| @@ -225,7 +225,7 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG | |||||
| *b5 = A5; | *b5 = A5; | ||||
| *a7 = B7; | *a7 = B7; | ||||
| *b7 = A7; | *b7 = A7; | ||||
| } else | |||||
| } else { | |||||
| if (b2 == b1) { | if (b2 == b1) { | ||||
| *a1 = B1; | *a1 = B1; | ||||
| *a2 = A1; | *a2 = A1; | ||||
| @@ -257,6 +257,8 @@ int CNAME(BLASLONG n, BLASLONG k1, BLASLONG k2, FLOAT dummy1, FLOAT *a, BLASLONG | |||||
| *b7 = A7; | *b7 = A7; | ||||
| *b8 = A8; | *b8 = A8; | ||||
| } | } | ||||
| } | |||||
| } | |||||
| } | } | ||||
| b1 = a + ip1; | b1 = a + ip1; | ||||