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

Implement truncated QR with pivoting (Reference-LAPACK PR 891)

This commit is contained in:
Martin Kroeker 2023-11-15 09:50:30 +01:00 committed by GitHub
parent 23cda457fb
commit 40109c0392
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lapack-netlib/TESTING/EIG/alareq.f
View File

@ -28,12 +28,12 @@
*> to evaluate the input line which requested NMATS matrix types for *> to evaluate the input line which requested NMATS matrix types for
*> PATH. The flow of control is as follows: *> PATH. The flow of control is as follows:
*> *>
*> If NMATS = NTYPES then *> IF NMATS = NTYPES THEN
*> DOTYPE(1:NTYPES) = .TRUE. *> DOTYPE(1:NTYPES) = .TRUE.
*> else *> ELSE
*> Read the next input line for NMATS matrix types *> Read the next input line for NMATS matrix types
*> Set DOTYPE(I) = .TRUE. for each valid type I *> Set DOTYPE(I) = .TRUE. for each valid type I
*> endif *> END IF
*> \endverbatim *> \endverbatim
* *
* Arguments: * Arguments:

6
lapack-netlib/TESTING/EIG/alarqg.f
View File

@ -28,12 +28,12 @@
*> to evaluate the input line which requested NMATS matrix types for *> to evaluate the input line which requested NMATS matrix types for
*> PATH. The flow of control is as follows: *> PATH. The flow of control is as follows:
*> *>
*> If NMATS = NTYPES then *> IF NMATS = NTYPES THEN
*> DOTYPE(1:NTYPES) = .TRUE. *> DOTYPE(1:NTYPES) = .TRUE.
*> else *> ELSE
*> Read the next input line for NMATS matrix types *> Read the next input line for NMATS matrix types
*> Set DOTYPE(I) = .TRUE. for each valid type I *> Set DOTYPE(I) = .TRUE. for each valid type I
*> endif *> END IF
*> \endverbatim *> \endverbatim
* *
* Arguments: * Arguments: