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:52:18 +02:00 committed by GitHub
parent 293e0f66c7
commit 2a657414ee
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lapack-netlib/SRC/strsyl3.f
View File

@ -1223,7 +1223,7 @@
* *
SCALOC = MIN( BIGNUM / SCAL, ONE / BUF ) SCALOC = MIN( BIGNUM / SCAL, ONE / BUF )
BUF = BUF * SCALOC BUF = BUF * SCALOC
CALL SLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC, IWORK ) CALL SLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC, IWORK(1) )
END IF END IF
* *
* Combine with buffer scaling factor. SCALE will be flushed if * Combine with buffer scaling factor. SCALE will be flushed if