dot.c early bail fix

This commit is contained in:
Sergei Lewis 2023-03-02 09:51:10 +00:00
parent 5925178d03
commit cb0a70e0e2
2 changed files with 2 additions and 2 deletions

View File

@ -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) )
{ {

View File

@ -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)
{ {