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
Unified View
Diff Options
+ 19
- 19
lapack-netlib/TESTING/LIN/serrtr.f
View File
| @@ -71,7 +71,7 @@ | |||||
| * .. Local Scalars .. | * .. Local Scalars .. | ||||
| CHARACTER*2 C2 | CHARACTER*2 C2 | ||||
| INTEGER INFO | INTEGER INFO | ||||
| REAL RCOND, SCALE | |||||
| REAL RCOND, SCALE, SCALES(0) | |||||
| * .. | * .. | ||||
| * .. Local Arrays .. | * .. Local Arrays .. | ||||
| INTEGER IW( NMAX ) | INTEGER IW( NMAX ) | ||||
| @@ -250,40 +250,40 @@ | |||||
| * | * | ||||
| SRNAMT = 'SLATRS3' | SRNAMT = 'SLATRS3' | ||||
| INFOT = 1 | 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 ) | CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 2 | 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 ) | CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 3 | 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 ) | CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 4 | 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 ) | CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 5 | 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 ) | CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 6 | 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 ) | CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 8 | 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 ) | CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 10 | 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 ) | CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 14 | 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 ) | CALL CHKXER( 'SLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| * | * | ||||
| ELSE IF( LSAMEN( 2, C2, 'TP' ) ) THEN | ELSE IF( LSAMEN( 2, C2, 'TP' ) ) THEN | ||||