diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f
index 80bcc06e27..45c8ba8a28 100644
--- a/SRC/dorbdb6.f
+++ b/SRC/dorbdb6.f
@@ -181,7 +181,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
 *     ..
 *     .. Local Scalars ..
       INTEGER            I, IX
-      REAL               EPS, NORM, NORM_NEW, SCL, SSQ
+      DOUBLE PRECISION   EPS, NORM, NORM_NEW, SCL, SSQ
 *     ..
 *     .. External Functions ..
       DOUBLE PRECISION   DLAMCH
diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f
index 1fa7622ee3..ed666e449b 100644
--- a/SRC/zunbdb6.f
+++ b/SRC/zunbdb6.f
@@ -185,7 +185,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, Q2,
       DOUBLE PRECISION   EPS, NORM, NORM_NEW, SCL, SSQ
 *     ..
 *     .. External Functions ..
-      REAL               DLAMCH
+      DOUBLE PRECISION   DLAMCH
 *     ..
 *     .. External Subroutines ..
       EXTERNAL           ZGEMV, ZLASSQ, XERBLA