Merge pull request #1133 from langou/fix_1127__missing_external_declartion_in_larf1f_and_larf1l

Fix #1127 - Add some EXTERNAL declaration in xLARF1L and xLARF1F

Author: langou

SRC/clarf1f.f

@@ -149,7 +149,7 @@ SUBROUTINE CLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
       INTEGER            I, LASTV, LASTC
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CGEMV, CGER, CSCAL
+      EXTERNAL           CAXPY, CGEMV, CGER, CSCAL
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          CONJG

SRC/clarf1l.f

@@ -150,7 +150,7 @@ SUBROUTINE CLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
       INTEGER            I, J, LASTV, LASTC, FIRSTV
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           CGEMV, CGERC, CSCAL
+      EXTERNAL           CAXPY, CGEMV, CGERC, CSCAL
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          CONJG

SRC/dlarf1l.f

@@ -146,7 +146,7 @@ SUBROUTINE DLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
       INTEGER            I, FIRSTV, LASTV, LASTC
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           DGEMV, DGER
+      EXTERNAL           DAXPY, DGEMV, DGER, DSCAL
 *     ..
 *     .. External Functions ..
       LOGICAL            LSAME

SRC/zlarf1f.f

@@ -180,7 +180,7 @@ SUBROUTINE ZLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
       INTEGER            I, LASTV, LASTC, J
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           ZGEMV, ZGERC, ZSCAL
+      EXTERNAL           ZAXPY, ZGEMV, ZGERC, ZSCAL
 *     .. Intrinsic Functions ..
       INTRINSIC          DCONJG
 *     ..

SRC/zlarf1l.f

@@ -153,7 +153,7 @@ SUBROUTINE ZLARF1L( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
       INTEGER            I, J, LASTV, LASTC, FIRSTV
 *     ..
 *     .. External Subroutines ..
-      EXTERNAL           ZGEMV, ZGERC, ZSCAL
+      EXTERNAL           ZAXPY, ZGEMV, ZGERC, ZSCAL
 *     ..
 *     .. Intrinsic Functions ..
       INTRINSIC          DCONJG