Fix error if alpha=0

Reference-LAPACK · Aug 28, 2024 · f21a6ae · f21a6ae
1 parent 4b9693f
commit f21a6ae
Show file tree

Hide file tree

Showing 4 changed files with 0 additions and 12 deletions.
diff --git a/BLAS/SRC/caxpby.f b/BLAS/SRC/caxpby.f
@@ -113,13 +113,8 @@ SUBROUTINE CAXPBY(N,CA,CX,INCX,CB,CY,INCY)
 *
 *     .. Local Scalars ..
       INTEGER I,IX,IY
-*     ..
-*     .. External Functions ..
-      REAL SCABS1
-      EXTERNAL SCABS1
 *     ..
       IF (N.LE.0) RETURN
-      IF (SCABS1(CA).EQ.0.0E+0) RETURN
       IF (INCX.EQ.1 .AND. INCY.EQ.1) THEN
 *
 *        code for both increments equal to 1

diff --git a/BLAS/SRC/daxpby.f b/BLAS/SRC/daxpby.f
@@ -119,7 +119,6 @@ SUBROUTINE DAXPBY(N,DA,DX,INCX,DB,DY,INCY)
       INTRINSIC MOD
 *     ..
       IF (N.LE.0) RETURN
-      IF (DA.EQ.0.0d0) RETURN
       IF (INCX.EQ.1 .AND. INCY.EQ.1) THEN
 *
 *        code for both increments equal to 1

diff --git a/BLAS/SRC/saxpby.f b/BLAS/SRC/saxpby.f
@@ -119,7 +119,6 @@ SUBROUTINE SAXPBY(N,SA,SX,INCX,SB,SY,INCY)
       INTRINSIC MOD
 *     ..
       IF (N.LE.0) RETURN
-      IF (SA.EQ.0.0) RETURN
       IF (INCX.EQ.1 .AND. INCY.EQ.1) THEN
 *
 *        code for both increments equal to 1

diff --git a/BLAS/SRC/zaxpby.f b/BLAS/SRC/zaxpby.f
@@ -113,13 +113,8 @@ SUBROUTINE ZAXPBY(N,ZA,ZX,INCX,ZB,ZY,INCY)
 *
 *     .. Local Scalars ..
       INTEGER I,IX,IY
-*     ..
-*     .. External Functions ..
-      DOUBLE PRECISION DCABS1
-      EXTERNAL DCABS1
 *     ..
       IF (N.LE.0) RETURN
-      IF (DCABS1(ZA).EQ.0.0d0) RETURN
       IF (INCX.EQ.1 .AND. INCY.EQ.1) THEN
 *
 *        code for both increments equal to 1