Martin Kroeker
GitHub
3 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
4 changed files with 4 additions and 4 deletions
Unified View
Diff Options
-
+1 -1lapack-netlib/TESTING/LIN/crzt01.f
-
+1 -1lapack-netlib/TESTING/LIN/drzt01.f
-
+1 -1lapack-netlib/TESTING/LIN/srzt01.f
-
+1 -1lapack-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) | * 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 | ||||
+ 1
- 1
lapack-netlib/TESTING/LIN/drzt01.f
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 | ||||
+ 1
- 1
lapack-netlib/TESTING/LIN/srzt01.f
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 | ||||
+ 1
- 1
lapack-netlib/TESTING/LIN/zrzt01.f
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 | ||||