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:49:58 +02:00 committed by GitHub
parent 515706ff94
commit 293e0f66c7
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/dtrsyl3.f
View File

@ -1220,7 +1220,7 @@
* *
SCALOC = MIN( BIGNUM / SCAL, ONE / BUF ) SCALOC = MIN( BIGNUM / SCAL, ONE / BUF )
BUF = BUF * SCALOC BUF = BUF * SCALOC
CALL DLASCL( 'G', -1, -1, ONE, SCALOC, M, N, C, LDC, IWORK ) CALL DLASCL( '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