| /external/eigen/blas/testing/ |
| D | sblat2.f | 80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
282 DO 210 ISNUM = 1, NSUBS
284 IF( .NOT.LTEST( ISNUM ) )THEN
286 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
288 SRNAMT = SNAMES( ISNUM )
291 CALL SCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
300 $ 190, 190 )ISNUM
302 140 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308 150 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315 160 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
[all …]
|
| D | dblat2.f | 80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
282 DO 210 ISNUM = 1, NSUBS
284 IF( .NOT.LTEST( ISNUM ) )THEN
286 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
288 SRNAMT = SNAMES( ISNUM )
291 CALL DCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
300 $ 190, 190 )ISNUM
302 140 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308 150 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315 160 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
[all …]
|
| D | zblat2.f | 84 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
288 DO 210 ISNUM = 1, NSUBS
290 IF( .NOT.LTEST( ISNUM ) )THEN
292 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
294 SRNAMT = SNAMES( ISNUM )
297 CALL ZCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
306 $ 180, 190, 190 )ISNUM
308 140 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
314 150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
321 160 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
[all …]
|
| D | cblat2.f | 83 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable
287 DO 210 ISNUM = 1, NSUBS
289 IF( .NOT.LTEST( ISNUM ) )THEN
291 WRITE( NOUT, FMT = 9983 )SNAMES( ISNUM )
293 SRNAMT = SNAMES( ISNUM )
296 CALL CCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
305 $ 180, 190, 190 )ISNUM
307 140 CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
313 150 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
320 160 CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
[all …]
|
| D | sblat3.f | 59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
260 DO 200 ISNUM = 1, NSUBS
262 IF( .NOT.LTEST( ISNUM ) )THEN
264 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
266 SRNAMT = SNAMES( ISNUM )
269 CALL SCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
276 GO TO ( 140, 150, 160, 160, 170, 180 )ISNUM
278 140 CALL SCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
284 150 CALL SCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
290 160 CALL SCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
[all …]
|
| D | dblat3.f | 59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
260 DO 200 ISNUM = 1, NSUBS
262 IF( .NOT.LTEST( ISNUM ) )THEN
264 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
266 SRNAMT = SNAMES( ISNUM )
269 CALL DCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
276 GO TO ( 140, 150, 160, 160, 170, 180 )ISNUM
278 140 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
284 150 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
290 160 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
[all …]
|
| D | cblat3.f | 64 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
267 DO 200 ISNUM = 1, NSUBS
269 IF( .NOT.LTEST( ISNUM ) )THEN
271 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
273 SRNAMT = SNAMES( ISNUM )
276 CALL CCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
284 $ 180, 180 )ISNUM
286 140 CALL CCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
292 150 CALL CCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
298 160 CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
[all …]
|
| D | zblat3.f | 65 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable
268 DO 200 ISNUM = 1, NSUBS
270 IF( .NOT.LTEST( ISNUM ) )THEN
272 WRITE( NOUT, FMT = 9987 )SNAMES( ISNUM )
274 SRNAMT = SNAMES( ISNUM )
277 CALL ZCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
285 $ 180, 180 )ISNUM
287 140 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
293 150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
299 160 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
[all …]
|