diff --git a/SRC/clarft.f b/SRC/clarft.f
index 8cdc3ce0f..29b270360 100644
--- a/SRC/clarft.f
+++ b/SRC/clarft.f
@@ -177,7 +177,8 @@
 *     .. Parameters ..
 *
       COMPLEX           ONE, NEG_ONE, ZERO
-      PARAMETER(ONE=1.0E+0, ZERO = 0.0E+0, NEG_ONE=-1.0E+0)
+      PARAMETER(ONE=(1.0E+0,0.0E+0), ZERO = (0.0E+0,0.0E+0),
+     $            NEG_ONE=(-1.0E+0,0.0E+0))
 *
 *     .. Local Scalars ..
 *
@@ -191,7 +192,8 @@
 *     .. External Functions..
 *
       LOGICAL           LSAME
-      EXTERNAL          LSAME
+      INTEGER           ILAENV
+      EXTERNAL          LSAME, ILAENV
 *
 *     .. Intrinsic Functions..
 *
diff --git a/SRC/dlarft.f b/SRC/dlarft.f
index 614045f9b..3b14d7ba0 100644
--- a/SRC/dlarft.f
+++ b/SRC/dlarft.f
@@ -191,7 +191,8 @@
 *     .. External Functions..
 *
       LOGICAL           LSAME
-      EXTERNAL          LSAME
+      INTEGER           ILAENV
+      EXTERNAL          LSAME, ILAENV
 *     
 *     The general scheme used is inspired by the approach inside DGEQRT3
 *     which was (at the time of writing this code):
diff --git a/SRC/slarft.f b/SRC/slarft.f
index 7467c090f..c3686b2ea 100644
--- a/SRC/slarft.f
+++ b/SRC/slarft.f
@@ -191,7 +191,8 @@
 *     .. External Functions..
 *
       LOGICAL            LSAME
-      EXTERNAL           LSAME
+      INTEGER            ILAENV
+      EXTERNAL           LSAME, ILAENV
 *     
 *     The general scheme used is inspired by the approach inside DGEQRT3
 *     which was (at the time of writing this code):
diff --git a/SRC/zlarft.f b/SRC/zlarft.f
index a6eaffd86..086ae5c92 100644
--- a/SRC/zlarft.f
+++ b/SRC/zlarft.f
@@ -177,7 +177,8 @@
 *     .. Parameters ..
 *
       COMPLEX*16        ONE, NEG_ONE, ZERO
-      PARAMETER(ONE=1.0D+0, ZERO = 0.0D+0, NEG_ONE=-1.0D+0)
+      PARAMETER(ONE=(1.0D+0,0.0D+0), ZERO = (0.0D+0,0.0D+0),
+     $            NEG_ONE=(-1.0D+0,0.0D+0))
 *
 *     .. Local Scalars ..
 *
@@ -191,7 +192,8 @@
 *     .. External Functions..
 *
       LOGICAL           LSAME
-      EXTERNAL          LSAME
+      INTEGER           ILAENV
+      EXTERNAL          LSAME, ILAENV
 *
 *     .. Intrinsic Functions..
 *