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

Merge pull request #1866 from martin-frbg/issue1859 

Fix argument in SLASET call to zero S
This commit is contained in:
Martin Kroeker 2018-11-10 19:23:31 +01:00 committed by GitHub
parent b0c15bacc1 a6a52a73f7
commit ae02a57261
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