 LAPACK  3.6.1 LAPACK: Linear Algebra PACKage
 subroutine schkqrt ( real THRESH, logical TSTERR, integer NM, integer, dimension( * ) MVAL, integer NN, integer, dimension( * ) NVAL, integer NNB, integer, dimension( * ) NBVAL, integer NOUT )

SCHKQRT

Purpose:
` SCHKQRT tests SGEQRT and SGEMQRT.`
Parameters
 [in] THRESH ``` THRESH is REAL The threshold value for the test ratios. A result is included in the output file if RESULT >= THRESH. To have every test ratio printed, use THRESH = 0.``` [in] TSTERR ``` TSTERR is LOGICAL Flag that indicates whether error exits are to be tested.``` [in] NM ``` NM is INTEGER The number of values of M contained in the vector MVAL.``` [in] MVAL ``` MVAL is INTEGER array, dimension (NM) The values of the matrix row dimension M.``` [in] NN ``` NN is INTEGER The number of values of N contained in the vector NVAL.``` [in] NVAL ``` NVAL is INTEGER array, dimension (NN) The values of the matrix column dimension N.``` [in] NNB ``` NNB is INTEGER The number of values of NB contained in the vector NBVAL.``` [in] NBVAL ``` NBVAL is INTEGER array, dimension (NBVAL) The values of the blocksize NB.``` [in] NOUT ``` NOUT is INTEGER The unit number for output.```
Date
November 2011

Definition at line 102 of file schkqrt.f.

102  IMPLICIT NONE
103 *
104 * -- LAPACK test routine (version 3.4.0) --
105 * -- LAPACK is a software package provided by Univ. of Tennessee, --
106 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
107 * November 2011
108 *
109 * .. Scalar Arguments ..
110  LOGICAL tsterr
111  INTEGER nm, nn, nnb, nout
112  REAL thresh
113 * ..
114 * .. Array Arguments ..
115  INTEGER mval( * ), nbval( * ), nval( * )
116 *
117 * =====================================================================
118 *
119 * .. Parameters ..
120  INTEGER ntests
121  parameter ( ntests = 6 )
122 * ..
123 * .. Local Scalars ..
124  CHARACTER*3 path
125  INTEGER i, j, k, t, m, n, nb, nfail, nerrs, nrun,
126  \$ minmn
127 * ..
128 * .. Local Arrays ..
129  REAL result( ntests )
130 * ..
131 * .. External Subroutines ..
132  EXTERNAL alaerh, alahd, alasum, serrqrt, sqrt04
133 * ..
134 * .. Scalars in Common ..
135  LOGICAL lerr, ok
136  CHARACTER*32 srnamt
137  INTEGER infot, nunit
138 * ..
139 * .. Common blocks ..
140  COMMON / infoc / infot, nunit, ok, lerr
141  COMMON / srnamc / srnamt
142 * ..
143 * .. Executable Statements ..
144 *
145 * Initialize constants
146 *
147  path( 1: 1 ) = 'S'
148  path( 2: 3 ) = 'QT'
149  nrun = 0
150  nfail = 0
151  nerrs = 0
152 *
153 * Test the error exits
154 *
155  IF( tsterr ) CALL serrqrt( path, nout )
156  infot = 0
157 *
158 * Do for each value of M in MVAL.
159 *
160  DO i = 1, nm
161  m = mval( i )
162 *
163 * Do for each value of N in NVAL.
164 *
165  DO j = 1, nn
166  n = nval( j )
167 *
168 * Do for each possible value of NB
169 *
170  minmn = min( m, n )
171  DO k = 1, nnb
172  nb = nbval( k )
173  IF( (nb.LE.minmn).AND.(nb.GT.0) ) THEN
174 *
175 * Test SGEQRT and SGEMQRT
176 *
177  CALL sqrt04( m, n, nb, result )
178 *
179 * Print information about the tests that did not
180 * pass the threshold.
181 *
182  DO t = 1, ntests
183  IF( result( t ).GE.thresh ) THEN
184  IF( nfail.EQ.0 .AND. nerrs.EQ.0 )
185  \$ CALL alahd( nout, path )
186  WRITE( nout, fmt = 9999 )m, n, nb,
187  \$ t, result( t )
188  nfail = nfail + 1
189  END IF
190  END DO
191  nrun = nrun + ntests
192  END IF
193  END DO
194  END DO
195  END DO
196 *
197 * Print a summary of the results.
198 *
199  CALL alasum( path, nout, nfail, nrun, nerrs )
200 *
201  9999 FORMAT( ' M=', i5, ', N=', i5, ', NB=', i4,
202  \$ ' test(', i2, ')=', g12.5 )
203  RETURN
204 *
205 * End of SCHKQRT
206 *
subroutine alahd(IOUNIT, PATH)
ALAHD
Definition: alahd.f:95
subroutine alaerh(PATH, SUBNAM, INFO, INFOE, OPTS, M, N, KL, KU, N5, IMAT, NFAIL, NERRS, NOUT)
ALAERH
Definition: alaerh.f:149
subroutine sqrt04(M, N, NB, RESULT)
SQRT04
Definition: sqrt04.f:75
subroutine serrqrt(PATH, NUNIT)
SERRQRT
Definition: serrqrt.f:57
subroutine alasum(TYPE, NOUT, NFAIL, NRUN, NERRS)
ALASUM
Definition: alasum.f:75

Here is the call graph for this function:

Here is the caller graph for this function: