Fix typos in comments (Reference-LAPACK PR 814)

This commit is contained in:
Martin Kroeker 2023-05-17 14:36:21 +02:00 committed by GitHub
parent b01894adcb
commit 47715b5726
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 4 deletions

View File

@ -158,7 +158,7 @@
* *
* R = R * P(1) * ... *P(m) * R = R * P(1) * ... *P(m)
* *
CALL CUNMRZ( 'Right', 'No tranpose', M, N, M, N-M, AF, LDA, TAU, CALL CUNMRZ( 'Right', 'No transpose', M, N, M, N-M, AF, LDA, TAU,
$ WORK, M, WORK( M*N+1 ), LWORK-M*N, INFO ) $ WORK, M, WORK( M*N+1 ), LWORK-M*N, INFO )
* *
* R = R - A * R = R - A

View File

@ -158,7 +158,7 @@
* *
* R = R * P(1) * ... *P(m) * R = R * P(1) * ... *P(m)
* *
CALL DORMRZ( 'Right', 'No tranpose', M, N, M, N-M, AF, LDA, TAU, CALL DORMRZ( 'Right', 'No transpose', M, N, M, N-M, AF, LDA, TAU,
$ WORK, M, WORK( M*N+1 ), LWORK-M*N, INFO ) $ WORK, M, WORK( M*N+1 ), LWORK-M*N, INFO )
* *
* R = R - A * R = R - A

View File

@ -158,7 +158,7 @@
* *
* R = R * P(1) * ... *P(m) * R = R * P(1) * ... *P(m)
* *
CALL SORMRZ( 'Right', 'No tranpose', M, N, M, N-M, AF, LDA, TAU, CALL SORMRZ( 'Right', 'No transpose', M, N, M, N-M, AF, LDA, TAU,
$ WORK, M, WORK( M*N+1 ), LWORK-M*N, INFO ) $ WORK, M, WORK( M*N+1 ), LWORK-M*N, INFO )
* *
* R = R - A * R = R - A

View File

@ -159,7 +159,7 @@
* *
* R = R * P(1) * ... *P(m) * R = R * P(1) * ... *P(m)
* *
CALL ZUNMRZ( 'Right', 'No tranpose', M, N, M, N-M, AF, LDA, TAU, CALL ZUNMRZ( 'Right', 'No transpose', M, N, M, N-M, AF, LDA, TAU,
$ WORK, M, WORK( M*N+1 ), LWORK-M*N, INFO ) $ WORK, M, WORK( M*N+1 ), LWORK-M*N, INFO )
* *
* R = R - A * R = R - A