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/zerrtr.f
View File
| @@ -70,7 +70,7 @@ | |||||
| * .. Local Scalars .. | * .. Local Scalars .. | ||||
| CHARACTER*2 C2 | CHARACTER*2 C2 | ||||
| INTEGER INFO | INTEGER INFO | ||||
| DOUBLE PRECISION RCOND, SCALE | |||||
| DOUBLE PRECISION RCOND, SCALE, SCALES(0) | |||||
| * .. | * .. | ||||
| * .. Local Arrays .. | * .. Local Arrays .. | ||||
| DOUBLE PRECISION R1( NMAX ), R2( NMAX ), RW( NMAX ) | DOUBLE PRECISION R1( NMAX ), R2( NMAX ), RW( NMAX ) | ||||
| @@ -245,40 +245,40 @@ | |||||
| * | * | ||||
| SRNAMT = 'ZLATRS3' | SRNAMT = 'ZLATRS3' | ||||
| INFOT = 1 | INFOT = 1 | ||||
| CALL ZLATRS3( '/', 'N', 'N', 'N', 0, 0, A, 1, X, 1, SCALE, RW, | |||||
| $ RW( 2 ), 1, INFO ) | |||||
| CALL ZLATRS3( '/', 'N', 'N', 'N', 0, 0, A, 1, X, 1, SCALES, | |||||
| $ RW, RW( 2 ), 1, INFO ) | |||||
| CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 2 | INFOT = 2 | ||||
| CALL ZLATRS3( 'U', '/', 'N', 'N', 0, 0, A, 1, X, 1, SCALE, RW, | |||||
| $ RW( 2 ), 1, INFO ) | |||||
| CALL ZLATRS3( 'U', '/', 'N', 'N', 0, 0, A, 1, X, 1, SCALES, | |||||
| $ RW, RW( 2 ), 1, INFO ) | |||||
| CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 3 | INFOT = 3 | ||||
| CALL ZLATRS3( 'U', 'N', '/', 'N', 0, 0, A, 1, X, 1, SCALE, RW, | |||||
| $ RW( 2 ), 1, INFO ) | |||||
| CALL ZLATRS3( 'U', 'N', '/', 'N', 0, 0, A, 1, X, 1, SCALES, | |||||
| $ RW, RW( 2 ), 1, INFO ) | |||||
| CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 4 | INFOT = 4 | ||||
| CALL ZLATRS3( 'U', 'N', 'N', '/', 0, 0, A, 1, X, 1, SCALE, RW, | |||||
| $ RW( 2 ), 1, INFO ) | |||||
| CALL ZLATRS3( 'U', 'N', 'N', '/', 0, 0, A, 1, X, 1, SCALES, | |||||
| $ RW, RW( 2 ), 1, INFO ) | |||||
| CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 5 | INFOT = 5 | ||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, 1, SCALE, RW, | |||||
| $ RW( 2 ), 1, INFO ) | |||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', -1, 0, A, 1, X, 1, SCALES, | |||||
| $ RW, RW( 2 ), 1, INFO ) | |||||
| CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 6 | INFOT = 6 | ||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', 0, -1, A, 1, X, 1, SCALE, RW, | |||||
| $ RW( 2 ), 1, INFO ) | |||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', 0, -1, A, 1, X, 1, SCALES, | |||||
| $ RW, RW( 2 ), 1, INFO ) | |||||
| CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 8 | INFOT = 8 | ||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 1, X, 1, SCALE, RW, | |||||
| $ RW( 2 ), 1, INFO ) | |||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 1, X, 1, SCALES, | |||||
| $ RW, RW( 2 ), 1, INFO ) | |||||
| CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 10 | INFOT = 10 | ||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 2, X, 1, SCALE, RW, | |||||
| $ RW( 2 ), 1, INFO ) | |||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', 2, 0, A, 2, X, 1, SCALES, | |||||
| $ RW, RW( 2 ), 1, INFO ) | |||||
| CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| INFOT = 14 | INFOT = 14 | ||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', 1, 0, A, 1, X, 1, SCALE, RW, | |||||
| $ RW( 2 ), 0, INFO ) | |||||
| CALL ZLATRS3( 'U', 'N', 'N', 'N', 1, 0, A, 1, X, 1, SCALES, | |||||
| $ RW, RW( 2 ), 0, INFO ) | |||||
| CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | CALL CHKXER( 'ZLATRS3', INFOT, NOUT, LERR, OK ) | ||||
| * | * | ||||
| * Test error exits for the packed triangular routines. | * Test error exits for the packed triangular routines. | ||||