dot.c early bail fix
This commit is contained in:
parent
5925178d03
commit
cb0a70e0e2
|
@ -43,7 +43,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
|
||||||
FLOAT dot = 0.0 ;
|
FLOAT dot = 0.0 ;
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
if ( n < 0 ) return(dot);
|
if ( n < 1 ) return(dot);
|
||||||
|
|
||||||
if ( (inc_x == 1) && (inc_y == 1) )
|
if ( (inc_x == 1) && (inc_y == 1) )
|
||||||
{
|
{
|
||||||
|
|
|
@ -46,7 +46,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
|
||||||
BLASLONG ix=0,iy=0;
|
BLASLONG ix=0,iy=0;
|
||||||
double dot = 0.0 ;
|
double dot = 0.0 ;
|
||||||
|
|
||||||
if ( n < 0 ) return(dot);
|
if ( n < 1 ) return(dot);
|
||||||
|
|
||||||
while(i < n)
|
while(i < n)
|
||||||
{
|
{
|
||||||
|
|
Loading…
Reference in New Issue