floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix actual arguments (Reference-LAPACK PR 885)

This commit is contained in:
Martin Kroeker 2023-07-22 17:42:04 +02:00 committed by GitHub
parent d35b3cc580
commit 515706ff94
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lapack-netlib/SRC/slatrs.f
View File

@ -261,6 +261,9 @@
REAL BIGNUM, GROW, REC, SMLNUM, SUMJ, TJJ, TJJS, REAL BIGNUM, GROW, REC, SMLNUM, SUMJ, TJJ, TJJS,
$ TMAX, TSCAL, USCAL, XBND, XJ, XMAX $ TMAX, TSCAL, USCAL, XBND, XJ, XMAX
* .. * ..
* .. Local Arrays ..
REAL WORK (1)
* ..
* .. External Functions .. * .. External Functions ..
LOGICAL LSAME LOGICAL LSAME
INTEGER ISAMAX INTEGER ISAMAX
@ -362,7 +365,7 @@
* A is upper triangular. * A is upper triangular.
* *
DO J = 2, N DO J = 2, N
TMAX = MAX( SLANGE( 'M', J-1, 1, A( 1, J ), 1, SUMJ ), TMAX = MAX( SLANGE( 'M', J-1, 1, A( 1, J ), 1, WORK ),
$ TMAX ) $ TMAX )
END DO END DO
ELSE ELSE
@ -371,7 +374,7 @@
* *
DO J = 1, N - 1 DO J = 1, N - 1
TMAX = MAX( SLANGE( 'M', N-J, 1, A( J+1, J ), 1, TMAX = MAX( SLANGE( 'M', N-J, 1, A( J+1, J ), 1,
$ SUMJ ), TMAX ) $ WORK ), TMAX )
END DO END DO
END IF END IF
* *