Fix typos in comments (Reference-LAPACK PR 814)
This commit is contained in:
parent
b01894adcb
commit
47715b5726
|
@ -158,7 +158,7 @@
|
|||
*
|
||||
* 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 )
|
||||
*
|
||||
* R = R - A
|
||||
|
|
|
@ -158,7 +158,7 @@
|
|||
*
|
||||
* 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 )
|
||||
*
|
||||
* R = R - A
|
||||
|
|
|
@ -158,7 +158,7 @@
|
|||
*
|
||||
* 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 )
|
||||
*
|
||||
* R = R - A
|
||||
|
|
|
@ -159,7 +159,7 @@
|
|||
*
|
||||
* 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 )
|
||||
*
|
||||
* R = R - A
|
||||
|
|
Loading…
Reference in New Issue