Skip to content

Commit 70d1c2f

Browse files
authored
Fix EXTERNAL declarations (Reference-LAPACK PR 1257)
1 parent 07e7594 commit 70d1c2f

2 files changed

Lines changed: 2 additions & 2 deletions

File tree

lapack-netlib/SRC/clarf1f.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -150,7 +150,7 @@ SUBROUTINE CLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK )
150150
INTEGER I, LASTV, LASTC
151151
* ..
152152
* .. External Subroutines ..
153-
EXTERNAL CAXPY, CGEMV, CGER, CSCAL
153+
EXTERNAL CAXPY, CGEMV, CGERC, CSCAL
154154
* ..
155155
* .. Intrinsic Functions ..
156156
INTRINSIC CONJG

lapack-netlib/SRC/zupmtr.f

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -176,7 +176,7 @@ SUBROUTINE ZUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC,
176176
EXTERNAL LSAME
177177
* ..
178178
* .. External Subroutines ..
179-
EXTERNAL XERBLA, ZLARF1, ZLARF1F
179+
EXTERNAL XERBLA, ZLARF1L, ZLARF1F
180180
* ..
181181
* .. Intrinsic Functions ..
182182
INTRINSIC DCONJG, MAX

0 commit comments

Comments
 (0)