diff --git a/SRC/clarf1f.f b/SRC/clarf1f.f
index cb9fc47ee..b5d4e47a4 100644
--- a/SRC/clarf1f.f
+++ b/SRC/clarf1f.f
@@ -150,7 +150,7 @@
       INTEGER            I, LASTV, LASTC
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CAXPY, CGEMV, CGER, CSCAL
+      EXTERNAL           CAXPY, CGEMV, CGERC, CSCAL
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          CONJG
diff --git a/SRC/zupmtr.f b/SRC/zupmtr.f
index b37f4b182..97b0a6745 100644
--- a/SRC/zupmtr.f
+++ b/SRC/zupmtr.f
@@ -176,7 +176,7 @@
       EXTERNAL           LSAME
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           XERBLA, ZLARF1, ZLARF1F
+      EXTERNAL           XERBLA, ZLARF1L, ZLARF1F
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          DCONJG, MAX