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

Fix argument in SLASET call to zero S 

fixes #1859 in accordance with https://github.com/LAPACK-Reference/issue/296
This commit is contained in:
Martin Kroeker 2018-11-10 17:16:53 +01:00 committed by GitHub
parent 76a66eaac8
commit a6a52a73f7
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/sgelss.f
View File

@ -407,7 +407,7 @@
* Matrix all zero. Return zero solution. * Matrix all zero. Return zero solution.
* *
CALL SLASET( 'F', MAX( M, N ), NRHS, ZERO, ZERO, B, LDB ) CALL SLASET( 'F', MAX( M, N ), NRHS, ZERO, ZERO, B, LDB )
CALL SLASET( 'F', MINMN, 1, ZERO, ZERO, S, 1 ) CALL SLASET( 'F', MINMN, 1, ZERO, ZERO, S, MINMN )
RANK = 0 RANK = 0
GO TO 70 GO TO 70
END IF END IF