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)
|
* 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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue