LAPACK  3.10.0 LAPACK: Linear Algebra PACKage

## ◆ schkqrt()

 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 (NNB) The values of the blocksize NB.``` [in] NOUT ``` NOUT is INTEGER The unit number for output.```

Definition at line 98 of file schkqrt.f.

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