From 70d1c2f7b268df09c68546b0c4270ac4ee1abf43 Mon Sep 17 00:00:00 2001 From: Martin Kroeker Date: Thu, 23 Apr 2026 09:44:16 +0200 Subject: [PATCH] Fix EXTERNAL declarations (Reference-LAPACK PR 1257) --- lapack-netlib/SRC/clarf1f.f | 2 +- lapack-netlib/SRC/zupmtr.f | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lapack-netlib/SRC/clarf1f.f b/lapack-netlib/SRC/clarf1f.f index cb9fc47ee1..b5d4e47a46 100644 --- a/lapack-netlib/SRC/clarf1f.f +++ b/lapack-netlib/SRC/clarf1f.f @@ -150,7 +150,7 @@ SUBROUTINE CLARF1F( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) INTEGER I, LASTV, LASTC * .. * .. External Subroutines .. - EXTERNAL CAXPY, CGEMV, CGER, CSCAL + EXTERNAL CAXPY, CGEMV, CGERC, CSCAL * .. * .. Intrinsic Functions .. INTRINSIC CONJG diff --git a/lapack-netlib/SRC/zupmtr.f b/lapack-netlib/SRC/zupmtr.f index b37f4b182d..97b0a67451 100644 --- a/lapack-netlib/SRC/zupmtr.f +++ b/lapack-netlib/SRC/zupmtr.f @@ -176,7 +176,7 @@ SUBROUTINE ZUPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZLARF1, ZLARF1F + EXTERNAL XERBLA, ZLARF1L, ZLARF1F * .. * .. Intrinsic Functions .. INTRINSIC DCONJG, MAX