|
|
|
@@ -314,6 +314,8 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
|
|
|
|
if (inc_x == 1) { |
|
|
|
minf = CABS1(x,0); //index will not be incremented |
|
|
|
|
|
|
|
#if defined(_CALL_ELF) && (_CALL_ELF == 2) |
|
|
|
BLASLONG n1 = n & -16; |
|
|
|
if (n1 > 0) { |
|
|
|
|
|
|
|
@@ -321,7 +323,7 @@ BLASLONG CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x) |
|
|
|
i = n1; |
|
|
|
ix = n1 << 1; |
|
|
|
} |
|
|
|
|
|
|
|
#endif |
|
|
|
|
|
|
|
while(i < n) |
|
|
|
{ |
|
|
|
|