3 * =========== DOCUMENTATION ===========
5 * Online html documentation available at
6 * http://www.netlib.org/lapack/explore-html/
11 * SUBROUTINE SLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED,
12 * THRESH, IOUNIT, IE )
14 * .. Scalar Arguments ..
16 * INTEGER IE, IMAT, IOUNIT, M, N, NTESTS
19 * .. Array Arguments ..
30 *> SLAFTS tests the result vector against the threshold value to
31 *> see which tests for this matrix type failed to pass the threshold.
32 *> Output is to the file given by unit IOUNIT.
40 *> On entry, TYPE specifies the matrix type to be used in the
45 *> On entry, N specifies the order of the test matrix.
49 *> On entry, IMAT specifies the type of the test matrix.
50 *> A listing of the different types is printed by SLAHD2
51 *> to the output file if a test fails to pass the threshold.
55 *> On entry, NTESTS is the number of tests performed on the
56 *> subroutines in the path given by TYPE.
59 *> RESULT - REAL array of dimension( NTESTS )
60 *> On entry, RESULT contains the test ratios from the tests
61 *> performed in the calling program.
64 *> ISEED - INTEGER array of dimension( 4 )
65 *> Contains the random seed that generated the matrix used
66 *> for the tests whose ratios are in RESULT.
70 *> On entry, THRESH specifies the acceptable threshold of the
71 *> test ratios. If RESULT( K ) > THRESH, then the K-th test
72 *> did not pass the threshold and a message will be printed.
76 *> On entry, IOUNIT specifies the unit number of the file
77 *> to which the messages are printed.
81 *> On entry, IE contains the number of tests which have
82 *> failed to pass the threshold so far.
83 *> Updated on exit if any of the ratios in RESULT also fail.
89 *> \author Univ. of Tennessee
90 *> \author Univ. of California Berkeley
91 *> \author Univ. of Colorado Denver
94 *> \date November 2011
96 *> \ingroup single_eig
98 * =====================================================================
99 SUBROUTINE SLAFTS( TYPE, M, N, IMAT, NTESTS, RESULT, ISEED,
100 $ THRESH, IOUNIT, IE )
102 * -- LAPACK test routine (version 3.4.0) --
103 * -- LAPACK is a software package provided by Univ. of Tennessee, --
104 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
107 * .. Scalar Arguments ..
109 INTEGER IE, IMAT, IOUNIT, M, N, NTESTS
112 * .. Array Arguments ..
117 * =====================================================================
119 * .. Local Scalars ..
122 * .. External Subroutines ..
125 * .. Executable Statements ..
129 * Output for square matrices:
132 IF( RESULT( K ).GE.THRESH ) THEN
134 * If this is the first test to fail, call SLAHD2
135 * to print a header to the data file.
138 $ CALL SLAHD2( IOUNIT, TYPE )
140 IF( RESULT( K ).LT.10000.0 ) THEN
141 WRITE( IOUNIT, FMT = 9999 )N, IMAT, ISEED, K,
143 9999 FORMAT( ' Matrix order=', I5, ', type=', I2,
144 $ ', seed=', 4( I4, ',' ), ' result ', I3, ' is',
147 WRITE( IOUNIT, FMT = 9998 )N, IMAT, ISEED, K,
149 9998 FORMAT( ' Matrix order=', I5, ', type=', I2,
150 $ ', seed=', 4( I4, ',' ), ' result ', I3, ' is',
157 * Output for rectangular matrices
160 IF( RESULT( K ).GE.THRESH ) THEN
162 * If this is the first test to fail, call SLAHD2
163 * to print a header to the data file.
166 $ CALL SLAHD2( IOUNIT, TYPE )
168 IF( RESULT( K ).LT.10000.0 ) THEN
169 WRITE( IOUNIT, FMT = 9997 )M, N, IMAT, ISEED, K,
171 9997 FORMAT( 1X, I5, ' x', I5, ' matrix, type=', I2, ', s',
172 $ 'eed=', 3( I4, ',' ), I4, ': result ', I3,
175 WRITE( IOUNIT, FMT = 9996 )M, N, IMAT, ISEED, K,
177 9996 FORMAT( 1X, I5, ' x', I5, ' matrix, type=', I2, ', s',
178 $ 'eed=', 3( I4, ',' ), I4, ': result ', I3,