From: igor175 Date: Fri, 19 Apr 2013 23:27:57 +0000 (+0000) Subject: added HR (Hermitian 'rook') path to LAPACK test routines alaerh.f alahd.f aladhd.f X-Git-Tag: submit/tizen/20180313.231549~487 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=96d2076201be7d83b72346817643ee84d4954376;p=platform%2Fupstream%2Flapack.git added HR (Hermitian 'rook') path to LAPACK test routines alaerh.f alahd.f aladhd.f --- diff --git a/TESTING/LIN/aladhd.f b/TESTING/LIN/aladhd.f index 29e8bdfd..5b55d6a3 100644 --- a/TESTING/LIN/aladhd.f +++ b/TESTING/LIN/aladhd.f @@ -55,6 +55,8 @@ *> with partial (Bunch-Kaufman) pivoting *> _HE: (complex) Hermitian indefinite, *> with partial (Bunch-Kaufman) pivoting +*> _HR: (complex) Hermitian indefinite, +*> with "rook" (bounded Bunch-Kaufman) pivoting *> _HP: (complex) Hermitian indefinite packed, *> with partial (Bunch-Kaufman) pivoting *> The first character must be one of S, D, C, or Z (C or Z only @@ -69,7 +71,7 @@ *> \author Univ. of Colorado Denver *> \author NAG Ltd. * -*> \date April 2012 +*> \date April 2013 * *> \ingroup aux_lin * @@ -295,6 +297,26 @@ WRITE( IOUNIT, FMT = 9978 )5 WRITE( IOUNIT, FMT = 9976 )6 WRITE( IOUNIT, FMT = '( '' Messages:'' )' ) +* + ELSE IF( LSAMEN( 2, P2, 'HR' ) ) THEN +* +* HR: Hermitian indefinite full, +* with "rook" (bounded Bunch-Kaufman) pivoting algorithm +* + WRITE( IOUNIT, FMT = 9992 )PATH, 'Hermitian' +* + WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' ) + IF( SORD ) THEN + WRITE( IOUNIT, FMT = 9983 ) + ELSE + WRITE( IOUNIT, FMT = 9982 ) + END IF +* + WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' ) + WRITE( IOUNIT, FMT = 9974 )1 + WRITE( IOUNIT, FMT = 9980 )2 + WRITE( IOUNIT, FMT = 9979 )3 + WRITE( IOUNIT, FMT = '( '' Messages:'' )' ) * ELSE * diff --git a/TESTING/LIN/alaerh.f b/TESTING/LIN/alaerh.f index 4f505d40..65bf075e 100644 --- a/TESTING/LIN/alaerh.f +++ b/TESTING/LIN/alaerh.f @@ -489,7 +489,8 @@ * ELSE IF( LSAMEN( 2, P2, 'SY' ) $ .OR. LSAMEN( 2, P2, 'SR' ) - $ .OR. LSAMEN( 2, P2, 'HE' ) ) THEN + $ .OR. LSAMEN( 2, P2, 'HE' ) + $ .OR. LSAMEN( 2, P2, 'HR' ) ) THEN * * xSY: symmetric indefinite matrices * with partial (Bunch-Kaufman) pivoting; @@ -497,6 +498,8 @@ * with rook (bounded Bunch-Kaufman) pivoting; * xHE: Hermitian indefinite matrices * with partial (Bunch-Kaufman) pivoting. +* xHR: Hermitian indefinite matrices +* with rook (bounded Bunch-Kaufman) pivoting; * UPLO = OPTS( 1: 1 ) IF( LSAMEN( 3, C3, 'TRF' ) ) THEN diff --git a/TESTING/LIN/alahd.f b/TESTING/LIN/alahd.f index 29d7a4ca..e86bf13c 100644 --- a/TESTING/LIN/alahd.f +++ b/TESTING/LIN/alahd.f @@ -55,6 +55,8 @@ *> with partial (Bunch-Kaufman) pivoting *> _HE: (complex) Hermitian indefinite, *> with partial (Bunch-Kaufman) pivoting +*> _HR: Symmetric indefinite, +*> with "rook" (bounded Bunch-Kaufman) pivoting *> _HP: (complex) Hermitian indefinite packed, *> with partial (Bunch-Kaufman) pivoting *> _TR: Triangular @@ -380,6 +382,32 @@ WRITE( IOUNIT, FMT = 9957 )8 WRITE( IOUNIT, FMT = 9955 )9 WRITE( IOUNIT, FMT = '( '' Messages:'' )' ) +* + ELSE IF( LSAMEN( 2, P2, 'HR' ) ) THEN +* +* SR: Symmetric indefinite full, +* with "rook" (bounded Bunch-Kaufman) pivoting algorithm +* + WRITE( IOUNIT, FMT = 9892 )PATH, 'Symmetric' +* + WRITE( IOUNIT, FMT = '( '' Matrix types:'' )' ) + IF( SORD ) THEN + WRITE( IOUNIT, FMT = 9972 ) + ELSE + WRITE( IOUNIT, FMT = 9971 ) + END IF +* + WRITE( IOUNIT, FMT = '( '' Test ratios:'' )' ) + WRITE( IOUNIT, FMT = 9953 )1 + WRITE( IOUNIT, FMT = 9961 )2 + WRITE( IOUNIT, FMT = 9927 )3 + WRITE( IOUNIT, FMT = 9928 ) + WRITE( IOUNIT, FMT = 9926 )4 + WRITE( IOUNIT, FMT = 9928 ) + WRITE( IOUNIT, FMT = 9960 )5 + WRITE( IOUNIT, FMT = 9959 )6 + WRITE( IOUNIT, FMT = 9955 )7 + WRITE( IOUNIT, FMT = '( '' Messages:'' )' ) * ELSE IF( LSAMEN( 2, P2, 'HP' ) ) THEN * @@ -760,7 +788,7 @@ $ '(* - tests error exits from ', A3, $ 'TRF, no test ratios are computed)' ) * -* SSY, SSR, SSP, CHE, CHP matrix types +* SSY, SSR, SSP, CHE, CHR, CHP matrix types * 9972 FORMAT( 4X, '1. Diagonal', 24X, $ '6. Last n/2 rows and columns zero', / 4X,