/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | slaebz.f | 319 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 332 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 494 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 498 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 577 IF( ITMP1.LE.NVAL( JI ) ) THEN 581 IF( ITMP1.GE.NVAL( JI ) ) THEN 617 ITMP1 = NVAL( JI ) 618 NVAL( JI ) = NVAL( KFNEW ) 619 NVAL( KFNEW ) = ITMP1
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | slaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | slaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | slaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | slaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/ |
H A D | slaebz.f | 319 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 332 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 494 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 498 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 577 IF( ITMP1.LE.NVAL( JI ) ) THEN 581 IF( ITMP1.GE.NVAL( JI ) ) THEN 617 ITMP1 = NVAL( JI ) 618 NVAL( JI ) = NVAL( KFNEW ) 619 NVAL( KFNEW ) = ITMP1
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/peigs/src/f77/ |
H A D | slaebz.F | 5 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 18 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 382 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 386 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 481 IF( ITMP1.LE.NVAL( JI ) ) THEN 485 IF( ITMP1.GE.NVAL( JI ) ) THEN 523 ITMP1 = NVAL( JI ) 524 NVAL( JI ) = NVAL( KFNEW ) 525 NVAL( KFNEW ) = ITMP1
|
H A D | slaebz2.F | 35 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 50 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 419 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 423 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 518 IF( ITMP1.LE.NVAL( JI ) ) THEN 522 IF( ITMP1.GE.NVAL( JI ) ) THEN 560 ITMP1 = NVAL( JI ) 561 NVAL( JI ) = NVAL( KFNEW ) 562 NVAL( KFNEW ) = ITMP1
|
H A D | dlaebz2.F | 35 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, argument 50 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) local 419 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 423 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 526 IF( ITMP1.LE.NVAL( JI ) ) THEN 530 IF( ITMP1.GE.NVAL( JI ) ) THEN 568 ITMP1 = NVAL( JI ) 569 NVAL( JI ) = NVAL( KFNEW ) 570 NVAL( KFNEW ) = ITMP1
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/ |
H A D | slaebz.f | 319 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 332 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 494 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 498 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 577 IF( ITMP1.LE.NVAL( JI ) ) THEN 581 IF( ITMP1.GE.NVAL( JI ) ) THEN 617 ITMP1 = NVAL( JI ) 618 NVAL( JI ) = NVAL( KFNEW ) 619 NVAL( KFNEW ) = ITMP1
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/peigs/src/f77/ |
H A D | slaebz2.F | 35 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 50 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 419 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 423 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 518 IF( ITMP1.LE.NVAL( JI ) ) THEN 522 IF( ITMP1.GE.NVAL( JI ) ) THEN 560 ITMP1 = NVAL( JI ) 561 NVAL( JI ) = NVAL( KFNEW ) 562 NVAL( KFNEW ) = ITMP1
|
H A D | slaebz.F | 5 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 18 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 382 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 386 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 481 IF( ITMP1.LE.NVAL( JI ) ) THEN 485 IF( ITMP1.GE.NVAL( JI ) ) THEN 523 ITMP1 = NVAL( JI ) 524 NVAL( JI ) = NVAL( KFNEW ) 525 NVAL( KFNEW ) = ITMP1
|
H A D | dlaebz2.F | 35 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 50 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 419 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 423 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 526 IF( ITMP1.LE.NVAL( JI ) ) THEN 530 IF( ITMP1.GE.NVAL( JI ) ) THEN 568 ITMP1 = NVAL( JI ) 569 NVAL( JI ) = NVAL( KFNEW ) 570 NVAL( KFNEW ) = ITMP1
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | slaebz.f | 319 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, argument 332 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) local 494 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 498 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 577 IF( ITMP1.LE.NVAL( JI ) ) THEN 581 IF( ITMP1.GE.NVAL( JI ) ) THEN 617 ITMP1 = NVAL( JI ) 618 NVAL( JI ) = NVAL( KFNEW ) 619 NVAL( KFNEW ) = ITMP1
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | slaebz.f | 2 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, argument 15 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) local 380 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 384 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 478 IF( ITMP1.LE.NVAL( JI ) ) THEN 482 IF( ITMP1.GE.NVAL( JI ) ) THEN 520 ITMP1 = NVAL( JI ) 521 NVAL( JI ) = NVAL( KFNEW ) 522 NVAL( KFNEW ) = ITMP1
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | slaebz.f | 2 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 15 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 380 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 384 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 478 IF( ITMP1.LE.NVAL( JI ) ) THEN 482 IF( ITMP1.GE.NVAL( JI ) ) THEN 520 ITMP1 = NVAL( JI ) 521 NVAL( JI ) = NVAL( KFNEW ) 522 NVAL( KFNEW ) = ITMP1
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | slaebz.f | 317 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 329 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 491 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 495 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 574 IF( ITMP1.LE.NVAL( JI ) ) THEN 578 IF( ITMP1.GE.NVAL( JI ) ) THEN 614 ITMP1 = NVAL( JI ) 615 NVAL( JI ) = NVAL( KFNEW ) 616 NVAL( KFNEW ) = ITMP1
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
H A D | dlaebz.f | 2 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 15 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 407 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 411 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 505 IF( ITMP1.LE.NVAL( JI ) ) THEN 509 IF( ITMP1.GE.NVAL( JI ) ) THEN 556 ITMP1 = NVAL( JI ) 557 NVAL( JI ) = NVAL( KFNEW ) 558 NVAL( KFNEW ) = ITMP1
|
H A D | slaebz.f | 2 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 15 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 407 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 411 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 505 IF( ITMP1.LE.NVAL( JI ) ) THEN 509 IF( ITMP1.GE.NVAL( JI ) ) THEN 556 ITMP1 = NVAL( JI ) 557 NVAL( JI ) = NVAL( KFNEW ) 558 NVAL( KFNEW ) = ITMP1
|
/dports/math/openblas/TIMING/EIG/EIGSRC/ |
H A D | slaebz.f | 2 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 15 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 407 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 411 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 505 IF( ITMP1.LE.NVAL( JI ) ) THEN 509 IF( ITMP1.GE.NVAL( JI ) ) THEN 556 ITMP1 = NVAL( JI ) 557 NVAL( JI ) = NVAL( KFNEW ) 558 NVAL( KFNEW ) = ITMP1
|
H A D | dlaebz.f | 2 $ RELTOL, PIVMIN, D, E, E2, NVAL, AB, C, MOUT, 15 INTEGER IWORK( * ), NAB( MMAX, * ), NVAL( * ) 407 IF( IWORK( JI ).LE.NVAL( JI ) ) THEN 411 IF( IWORK( JI ).GE.NVAL( JI ) ) THEN 505 IF( ITMP1.LE.NVAL( JI ) ) THEN 509 IF( ITMP1.GE.NVAL( JI ) ) THEN 556 ITMP1 = NVAL( JI ) 557 NVAL( JI ) = NVAL( KFNEW ) 558 NVAL( KFNEW ) = ITMP1
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/ |
H A D | dtimee.f | 369 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 371 IF( NVAL( I ).LT.0 ) THEN 372 WRITE( NOUT, FMT = 9995 )'N ', NVAL( I ), 0 374 ELSE IF( NVAL( I ).GT.MAXN ) THEN 375 WRITE( NOUT, FMT = 9994 )'N ', NVAL( I ), MAXN 381 NVAL( I ) = MVAL( I ) 384 WRITE( NOUT, FMT = 9988 )'N ', ( NVAL( I ), I = 1, NN ) 553 CALL DTIM21( LINE, NN, NVAL, MAXTYP, DOTYPE, NPARMS, NBVAL, 566 CALL DTIM22( LINE, NN, NVAL, MAXTYP, DOTYPE, NPARMS, NBVAL, 579 CALL DTIM26( LINE, NN, NVAL, MVAL, MAXTYP, DOTYPE, NPARMS, [all …]
|
H A D | stimee.f | 369 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 371 IF( NVAL( I ).LT.0 ) THEN 372 WRITE( NOUT, FMT = 9995 )'N ', NVAL( I ), 0 374 ELSE IF( NVAL( I ).GT.MAXN ) THEN 375 WRITE( NOUT, FMT = 9994 )'N ', NVAL( I ), MAXN 381 NVAL( I ) = MVAL( I ) 384 WRITE( NOUT, FMT = 9988 )'N ', ( NVAL( I ), I = 1, NN ) 553 CALL STIM21( LINE, NN, NVAL, MAXTYP, DOTYPE, NPARMS, NBVAL, 566 CALL STIM22( LINE, NN, NVAL, MAXTYP, DOTYPE, NPARMS, NBVAL, 579 CALL STIM26( LINE, NN, NVAL, MVAL, MAXTYP, DOTYPE, NPARMS, [all …]
|
/dports/math/openblas/TIMING/EIG/ |
H A D | dtimee.f | 369 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 371 IF( NVAL( I ).LT.0 ) THEN 372 WRITE( NOUT, FMT = 9995 )'N ', NVAL( I ), 0 374 ELSE IF( NVAL( I ).GT.MAXN ) THEN 375 WRITE( NOUT, FMT = 9994 )'N ', NVAL( I ), MAXN 381 NVAL( I ) = MVAL( I ) 384 WRITE( NOUT, FMT = 9988 )'N ', ( NVAL( I ), I = 1, NN ) 553 CALL DTIM21( LINE, NN, NVAL, MAXTYP, DOTYPE, NPARMS, NBVAL, 566 CALL DTIM22( LINE, NN, NVAL, MAXTYP, DOTYPE, NPARMS, NBVAL, 579 CALL DTIM26( LINE, NN, NVAL, MVAL, MAXTYP, DOTYPE, NPARMS, [all …]
|
H A D | stimee.f | 369 READ( NIN, FMT = * )( NVAL( I ), I = 1, NN ) 371 IF( NVAL( I ).LT.0 ) THEN 372 WRITE( NOUT, FMT = 9995 )'N ', NVAL( I ), 0 374 ELSE IF( NVAL( I ).GT.MAXN ) THEN 375 WRITE( NOUT, FMT = 9994 )'N ', NVAL( I ), MAXN 381 NVAL( I ) = MVAL( I ) 384 WRITE( NOUT, FMT = 9988 )'N ', ( NVAL( I ), I = 1, NN ) 553 CALL STIM21( LINE, NN, NVAL, MAXTYP, DOTYPE, NPARMS, NBVAL, 566 CALL STIM22( LINE, NN, NVAL, MAXTYP, DOTYPE, NPARMS, NBVAL, 579 CALL STIM26( LINE, NN, NVAL, MVAL, MAXTYP, DOTYPE, NPARMS, [all …]
|