diff options
author | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2013-11-18 23:51:04 +0000 |
---|---|---|
committer | igor175 <igor175@8a072113-8704-0410-8d35-dd094bca7971> | 2013-11-18 23:51:04 +0000 |
commit | 72ee3708a3c5951f54cd08b1592eb530122d72e0 (patch) | |
tree | fecd5296166579f3753c63cd52fd130cfa4fb60f /TESTING/LIN/zerrvxx.f | |
parent | 16a3151347ee9dc136b2c7fc847b47d23b41c1f7 (diff) | |
download | lapack-72ee3708a3c5951f54cd08b1592eb530122d72e0.tar.gz lapack-72ee3708a3c5951f54cd08b1592eb530122d72e0.tar.bz2 lapack-72ee3708a3c5951f54cd08b1592eb530122d72e0.zip |
LAPACK bug fix for XBLAS: bug revealed in testing of linear equation routines, when XBLAS is linked
Diffstat (limited to 'TESTING/LIN/zerrvxx.f')
-rw-r--r-- | TESTING/LIN/zerrvxx.f | 64 |
1 files changed, 60 insertions, 4 deletions
diff --git a/TESTING/LIN/zerrvxx.f b/TESTING/LIN/zerrvxx.f index 09bc746d..c28f76ee 100644 --- a/TESTING/LIN/zerrvxx.f +++ b/TESTING/LIN/zerrvxx.f @@ -91,10 +91,11 @@ * .. * .. External Subroutines .. EXTERNAL CHKXER, ZGBSV, ZGBSVX, ZGESV, ZGESVX, ZGTSV, - $ ZGTSVX, ZHESV, ZHESVX, ZHPSV, ZHPSVX, ZPBSV, - $ ZPBSVX, ZPOSV, ZPOSVX, ZPPSV, ZPPSVX, ZPTSV, - $ ZPTSVX, ZSPSV, ZSPSVX, ZSYSV, ZSYSVX, ZGESVXX, - $ ZSYSVXX, ZPOSVXX, ZHESVXX, ZGBSVXX + $ ZGTSVX, ZHESV, ZHESV_ROOK, ZHESVX, ZHPSV, + $ ZHPSVX, ZPBSV, ZPBSVX, ZPOSV, ZPOSVX, ZPPSV, + $ ZPPSVX, ZPTSV, ZPTSVX, ZSPSV, ZSPSVX, ZSYSV, + $ ZSYSV_ROOK, ZSYSVX, ZGESVXX, ZSYSVXX, ZPOSVXX, + $ ZHESVXX, ZGBSVXX * .. * .. Scalars in Common .. LOGICAL LERR, OK @@ -500,6 +501,24 @@ $ IP, B, 2, X, 1, RCOND, R1, R2, W, RW, INFO ) CALL CHKXER( 'ZGTSVX', INFOT, NOUT, LERR, OK ) * + ELSE IF( LSAMEN( 2, C2, 'HR' ) ) THEN +* +* ZHESV_ROOK +* + SRNAMT = 'ZHESV_ROOK' + INFOT = 1 + CALL ZHESV_ROOK( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL ZHESV_ROOK( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL ZHESV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL ZHESV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) +* ELSE IF( LSAMEN( 2, C2, 'PO' ) ) THEN * * ZPOSV @@ -913,6 +932,24 @@ $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) CALL CHKXER( 'ZHESVXX', INFOT, NOUT, LERR, OK ) * + ELSE IF( LSAMEN( 2, C2, 'HR' ) ) THEN +* +* ZHESV_ROOK +* + SRNAMT = 'ZHESV_ROOK' + INFOT = 1 + CALL ZHESV_ROOK( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL ZHESV_ROOK( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL ZHESV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL ZHESV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZHESV_ROOK', INFOT, NOUT, LERR, OK ) +* ELSE IF( LSAMEN( 2, C2, 'HP' ) ) THEN * * ZHPSV @@ -1066,6 +1103,25 @@ $ 1, RCOND, RPVGRW, BERR, N_ERR_BNDS, ERR_BNDS_N, $ ERR_BNDS_C, NPARAMS, PARAMS, W, RW, INFO ) CALL CHKXER( 'ZSYSVXX', INFOT, NOUT, LERR, OK ) + CALL CHKXER( 'ZSYSVX', INFOT, NOUT, LERR, OK ) +* + ELSE IF( LSAMEN( 2, C2, 'SR' ) ) THEN +* +* ZSYSV_ROOK +* + SRNAMT = 'ZSYSV_ROOK' + INFOT = 1 + CALL ZSYSV_ROOK( '/', 0, 0, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZSYSV_ROOK', INFOT, NOUT, LERR, OK ) + INFOT = 2 + CALL ZSYSV_ROOK( 'U', -1, 0, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZSYSV_ROOK', INFOT, NOUT, LERR, OK ) + INFOT = 3 + CALL ZSYSV_ROOK( 'U', 0, -1, A, 1, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZSYSV_ROOK', INFOT, NOUT, LERR, OK ) + INFOT = 8 + CALL ZSYSV_ROOK( 'U', 2, 0, A, 2, IP, B, 1, W, 1, INFO ) + CALL CHKXER( 'ZSYSV_ROOK', INFOT, NOUT, LERR, OK ) * ELSE IF( LSAMEN( 2, C2, 'SP' ) ) THEN * |