diff --git a/BLAS/SRC/caxpby.f b/BLAS/SRC/caxpby.f
index db5df2a5d..219388653 100644
--- 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
index 5c645efea..06161d741 100644
--- 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
index d033936cd..9a33e0367 100644
--- 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
index 505108594..5dec73785 100644
--- 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