Browse Source

Fix typos in comments (Reference-LAPACK PR 814)

tags/v0.3.24
Martin Kroeker GitHub 3 years ago
parent
commit
47715b5726
No known key found for this signature in database GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 4 deletions
  1. +1
    -1
      lapack-netlib/TESTING/LIN/crzt01.f
  2. +1
    -1
      lapack-netlib/TESTING/LIN/drzt01.f
  3. +1
    -1
      lapack-netlib/TESTING/LIN/srzt01.f
  4. +1
    -1
      lapack-netlib/TESTING/LIN/zrzt01.f

+ 1
- 1
lapack-netlib/TESTING/LIN/crzt01.f View File

@@ -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


+ 1
- 1
lapack-netlib/TESTING/LIN/drzt01.f View File

@@ -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


+ 1
- 1
lapack-netlib/TESTING/LIN/srzt01.f View File

@@ -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


+ 1
- 1
lapack-netlib/TESTING/LIN/zrzt01.f View File

@@ -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…
Cancel
Save