phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #1133 from langou/fix_1127__missing_external_declartion_in_larf1f_and_larf1l

Browse Source 
Fix #1127 - Add some EXTERNAL declaration in xLARF1L and xLARF1F
This commit is contained in:
langou
2025-06-13 17:08:27 -06:00
committed by GitHub
parent 8282ae9688 aed00bf394
commit 8b24458ab6
5 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
SRC/clarf1f.f
+1 -1
View File
@@ -149,7 +149,7 @@
INTEGER I, LASTV, LASTC
* ..
* .. External Subroutines ..
EXTERNAL CGEMV, CGER, CSCAL
EXTERNAL CAXPY, CGEMV, CGER, CSCAL
* ..
* .. Intrinsic Functions ..
INTRINSIC CONJG
SRC/clarf1l.f
+1 -1
View File
@@ -150,7 +150,7 @@
INTEGER I, J, LASTV, LASTC, FIRSTV
* ..
* .. External Subroutines ..
EXTERNAL CGEMV, CGERC, CSCAL
EXTERNAL CAXPY, CGEMV, CGERC, CSCAL
* ..
* .. Intrinsic Functions ..
INTRINSIC CONJG
SRC/dlarf1l.f
+1 -1
View File
@@ -146,7 +146,7 @@
INTEGER I, FIRSTV, LASTV, LASTC
* ..
* .. External Subroutines ..
EXTERNAL DGEMV, DGER
EXTERNAL DAXPY, DGEMV, DGER, DSCAL
* ..
* .. External Functions ..
LOGICAL LSAME
SRC/zlarf1f.f
+1 -1
View File
@@ -180,7 +180,7 @@
INTEGER I, LASTV, LASTC, J
* ..
* .. External Subroutines ..
EXTERNAL ZGEMV, ZGERC, ZSCAL
EXTERNAL ZAXPY, ZGEMV, ZGERC, ZSCAL
* .. Intrinsic Functions ..
INTRINSIC DCONJG
* ..
SRC/zlarf1l.f
+1 -1
View File
@@ -153,7 +153,7 @@
INTEGER I, J, LASTV, LASTC, FIRSTV
* ..
* .. External Subroutines ..
EXTERNAL ZGEMV, ZGERC, ZSCAL
EXTERNAL ZAXPY, ZGEMV, ZGERC, ZSCAL
* ..
* .. Intrinsic Functions ..
INTRINSIC DCONJG