/external/eigen/blas/testing/ |
H A D | cblat2.f | 83 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable in program:CBLAT2 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 ), EP 2348 INTEGER ISNUM local in subroutine:CCHKE [all...] |
H A D | cblat3.f | 64 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable in program:CBLAT3 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 ), EP 1960 INTEGER ISNUM local in subroutine:CCHKE [all...] |
H A D | dblat2.f | 80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable in program:DBLAT2 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 ), EP 2299 INTEGER ISNUM local in subroutine:DCHKE [all...] |
H A D | dblat3.f | 59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable in program:DBLAT3 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 ), EP 1816 INTEGER ISNUM local in subroutine:DCHKE [all...] |
H A D | sblat2.f | 80 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable in program:SBLAT2 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 ), EP 2299 INTEGER ISNUM local in subroutine:SCHKE [all...] |
H A D | sblat3.f | 59 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable in program:SBLAT3 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 ), EP 1816 INTEGER ISNUM local in subroutine:SCHKE [all...] |
H A D | zblat2.f | 84 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NINC, NKB, variable in program:ZBLAT2 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 ), EP 2355 INTEGER ISNUM local in subroutine:ZCHKE [all...] |
H A D | zblat3.f | 65 INTEGER I, ISNUM, J, N, NALF, NBET, NIDIM, NOUT, NTRA variable in program:ZBLAT3 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 ), EP 1963 INTEGER ISNUM local in subroutine:ZCHKE [all...] |