Martin Kroeker
GitHub
2 years ago
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 19 additions and 19 deletions
Split View
Diff Options
+ 19
- 19
lapack-netlib/TESTING/LIN/serrtr.f
View File
| @@ -71,7 +71,7 @@ | |||
| * .. Local Scalars .. | |||
| CHARACTER*2 C2 | |||
| INTEGER INFO | |||
| REAL RCOND, SCALE | |||
| REAL RCOND, SCALE, SCALES(0) | |||
| * .. | |||
| * .. Local Arrays .. | |||
| INTEGER IW( NMAX ) | |||
| @@ -250,40 +250,40 @@ | |||
| * | |||
| SRNAMT = 'SLATRS3' | |||
| INFOT = 1 | |||
| CALL SLATRS3( '/', 'N', 'N', 'N', 0, 0, A, 1, X, 1, SCALE, W, | |||
| $ W( 2 ), 1, INFO ) | |||
| CALL SLATRS3( '/', 'N', 'N', 'N', 0, 0, A, 1, X, 1, SCALES, | |||
| $ W, W( 2 ), 1, INFO ) | |||
| CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 2 | |||
| CALL SLATRS3( 'U', '/', 'N', 'N', 0, 0, A, 1, X, 1, SCALE, W, | |||
| $ W( 2 ), 1, INFO ) | |||
| CALL SLATRS3( 'U', '/', 'N', 'N', 0, 0, A, 1, X, 1, SCALES, | |||
| $ W, W( 2 ), 1, INFO ) | |||
| CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 3 | |||
| CALL SLATRS3( 'U', 'N', '/', 'N', 0, 0, A, 1, X, 1, SCALE, W, | |||
| $ W( 2 ), 1, INFO ) | |||
| CALL SLATRS3( 'U', 'N', '/', 'N', 0, 0, A, 1, X, 1, SCALES, | |||
| $ W, W( 2 ), 1, INFO ) | |||
| CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 4 | |||
| CALL SLATRS3( 'U', 'N', 'N', '/', 0, 0, A, 1, X, 1, SCALE, W, | |||
| $ W( 2 ), 1, INFO ) | |||
| CALL SLATRS3( 'U', 'N', 'N', '/', 0, 0, A, 1, X, 1, SCALES, | |||
| $ W, W( 2 ), 1, INFO ) | |||
| CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 5 | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, 1, SCALE, W, | |||
| $ W( 2 ), 1, INFO ) | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, 1, SCALES, | |||
| $ W, W( 2 ), 1, INFO ) | |||
| CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 6 | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', 0, -1, A, 1, X, 1, SCALE, W, | |||
| $ W( 2 ), 1, INFO ) | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', 0, -1, A, 1, X, 1, SCALES, | |||
| $ W, W( 2 ), 1, INFO ) | |||
| CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 8 | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 1, X, 1, SCALE, W, | |||
| $ W( 2 ), 1, INFO ) | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 1, X, 1, SCALES, | |||
| $ W, W( 2 ), 1, INFO ) | |||
| CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 10 | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 2, X, 1, SCALE, W, | |||
| $ W( 2 ), 1, INFO ) | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 2, X, 1, SCALES, | |||
| $ W, W( 2 ), 1, INFO ) | |||
| CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | |||
| INFOT = 14 | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', 1, 0, A, 1, X, 1, SCALE, W, | |||
| $ W( 2 ), 0, INFO ) | |||
| CALL SLATRS3( 'U', 'N', 'N', 'N', 1, 0, A, 1, X, 1, SCALES, | |||
| $ W, W( 2 ), 0, INFO ) | |||
| CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | |||
| * | |||
| ELSE IF( LSAMEN( 2, C2, 'TP' ) ) THEN | |||