249 INTEGER icase, incx, incy, n
254 REAL dtrue1(5), dtrue3(5), dtrue5(8,5,2), dv(8,5,2),
255 + sa(10), stemp(1), strue(8), sx(8)
266 COMMON /combla/icase, n, incx, incy, pass
268 DATA sa/0.3e0, -1.0e0, 0.0e0, 1.0e0, 0.3e0, 0.3e0,
269 + 0.3e0, 0.3e0, 0.3e0, 0.3e0/
270 DATA dv/0.1e0, 2.0e0, 2.0e0, 2.0e0, 2.0e0, 2.0e0,
271 + 2.0e0, 2.0e0, 0.3e0, 3.0e0, 3.0e0, 3.0e0, 3.0e0,
272 + 3.0e0, 3.0e0, 3.0e0, 0.3e0, -0.4e0, 4.0e0,
273 + 4.0e0, 4.0e0, 4.0e0, 4.0e0, 4.0e0, 0.2e0,
274 + -0.6e0, 0.3e0, 5.0e0, 5.0e0, 5.0e0, 5.0e0,
275 + 5.0e0, 0.1e0, -0.3e0, 0.5e0, -0.1e0, 6.0e0,
276 + 6.0e0, 6.0e0, 6.0e0, 0.1e0, 8.0e0, 8.0e0, 8.0e0,
277 + 8.0e0, 8.0e0, 8.0e0, 8.0e0, 0.3e0, 9.0e0, 9.0e0,
278 + 9.0e0, 9.0e0, 9.0e0, 9.0e0, 9.0e0, 0.3e0, 2.0e0,
279 + -0.4e0, 2.0e0, 2.0e0, 2.0e0, 2.0e0, 2.0e0,
280 + 0.2e0, 3.0e0, -0.6e0, 5.0e0, 0.3e0, 2.0e0,
281 + 2.0e0, 2.0e0, 0.1e0, 4.0e0, -0.3e0, 6.0e0,
282 + -0.5e0, 7.0e0, -0.1e0, 3.0e0/
283 DATA dtrue1/0.0e0, 0.3e0, 0.5e0, 0.7e0, 0.6e0/
284 DATA dtrue3/0.0e0, 0.3e0, 0.7e0, 1.1e0, 1.0e0/
285 DATA dtrue5/0.10e0, 2.0e0, 2.0e0, 2.0e0, 2.0e0,
286 + 2.0e0, 2.0e0, 2.0e0, -0.3e0, 3.0e0, 3.0e0,
287 + 3.0e0, 3.0e0, 3.0e0, 3.0e0, 3.0e0, 0.0e0, 0.0e0,
288 + 4.0e0, 4.0e0, 4.0e0, 4.0e0, 4.0e0, 4.0e0,
289 + 0.20e0, -0.60e0, 0.30e0, 5.0e0, 5.0e0, 5.0e0,
290 + 5.0e0, 5.0e0, 0.03e0, -0.09e0, 0.15e0, -0.03e0,
291 + 6.0e0, 6.0e0, 6.0e0, 6.0e0, 0.10e0, 8.0e0,
292 + 8.0e0, 8.0e0, 8.0e0, 8.0e0, 8.0e0, 8.0e0,
293 + 0.09e0, 9.0e0, 9.0e0, 9.0e0, 9.0e0, 9.0e0,
294 + 9.0e0, 9.0e0, 0.09e0, 2.0e0, -0.12e0, 2.0e0,
295 + 2.0e0, 2.0e0, 2.0e0, 2.0e0, 0.06e0, 3.0e0,
296 + -0.18e0, 5.0e0, 0.09e0, 2.0e0, 2.0e0, 2.0e0,
297 + 0.03e0, 4.0e0, -0.09e0, 6.0e0, -0.15e0, 7.0e0,
299 DATA itrue2/0, 1, 2, 2, 3/
307 sx(i) = dv(i,np1,incx)
312 stemp(1) = dtrue1(np1)
314 ELSE IF (icase.EQ.8)
THEN
316 stemp(1) = dtrue3(np1)
318 ELSE IF (icase.EQ.9)
THEN
320 CALL sscal(n,sa((incx-1)*5+np1),sx,incx)
322 strue(i) = dtrue5(i,np1,incx)
324 CALL stest(len,sx,strue,strue,sfac)
325 ELSE IF (icase.EQ.10)
THEN
329 WRITE (nout,*)
' Shouldn''t be here in CHECK1'
subroutine itest1(ICOMP, ITRUE)
integer function isamax(N, SX, INCX)
ISAMAX
subroutine stest1(SCOMP1, STRUE1, SSIZE, SFAC)
real function snrm2(N, X, INCX)
SNRM2
real function sasum(N, SX, INCX)
SASUM
subroutine stest(LEN, SCOMP, STRUE, SSIZE, SFAC)
subroutine sscal(N, SA, SX, INCX)
SSCAL