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

View File

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

View File

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