Merge pull request #3930 from sergei-lewis/dot-kernel-early-bail
dot.c early bail fix
This commit is contained in:
commit
f616c86404
|
@ -43,7 +43,7 @@ FLOAT CNAME(BLASLONG n, FLOAT *x, BLASLONG inc_x, FLOAT *y, BLASLONG inc_y)
|
|||
FLOAT dot = 0.0 ;
|
||||
#endif
|
||||
|
||||
if ( n < 0 ) return(dot);
|
||||
if ( n < 1 ) return(dot);
|
||||
|
||||
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;
|
||||
double dot = 0.0 ;
|
||||
|
||||
if ( n < 0 ) return(dot);
|
||||
if ( n < 1 ) return(dot);
|
||||
|
||||
while(i < n)
|
||||
{
|
||||
|
|
Loading…
Reference in New Issue