diff options
Diffstat (limited to 'TESTING/LIN/derrvx.f')
| -rw-r--r-- | TESTING/LIN/derrvx.f | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/TESTING/LIN/derrvx.f b/TESTING/LIN/derrvx.f index 36eb8d6a..2affbe2f 100644 --- a/TESTING/LIN/derrvx.f +++ b/TESTING/LIN/derrvx.f @@ -91,7 +91,7 @@ EXTERNAL CHKXER, DGBSV, DGBSVX, DGESV, DGESVX, DGTSV, $ DGTSVX, DPBSV, DPBSVX, DPOSV, DPOSVX, DPPSV, $ DPPSVX, DPTSV, DPTSVX, DSPSV, DSPSVX, DSYSV, - $ DSYSV_ROOK, DSYSVX + $ DSYSV_AASEN, DSYSV_ROOK, DSYSVX * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -627,6 +627,25 @@ $ RCOND, R1, R2, W, 3, IW, INFO ) CALL CHKXER( 'DSYSVX', INFOT, NOUT, LERR, OK ) * + ELSE IF( LSAMEN( 2, C2, 'SA' ) ) THEN +* +* DSYSV_AASEN +* + SRNAMT = 'DSYSV_AASEN' + INFOT = 1 + CALL DSYSV_AASEN( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'DSYSV_AASEN', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL DSYSV_AASEN( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'DSYSV_AASEN', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL DSYSV_AASEN( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'DSYSV_AASEN', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL DSYSV_AASEN( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'DSYSV_AASEN', INFOT, NOUT, LERR, OK ) +* + ELSE IF( LSAMEN( 2, C2, 'SR' ) ) THEN * * DSYSV_ROOK |