/dports/math/xlapack/lapack-3.10.0/TESTING/LIN/ |
H A D | zlattb.f | 168 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, 501 TEXP = ONE / DBLE( KD+1 ) 502 TSCAL = SMLNUM**TEXP 569 TEXP = ONE 576 B( I ) = TEXP*( ONE-ULP ) 581 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 583 TEXP = TEXP*TWO 590 TEXP = ONE 595 B( J ) = TEXP*( ONE-ULP ) 600 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | clattb.f | 168 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, 501 TEXP = ONE / REAL( KD+1 ) 502 TSCAL = SMLNUM**TEXP 569 TEXP = ONE 576 B( I ) = TEXP*( ONE-ULP ) 581 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 583 TEXP = TEXP*TWO 590 TEXP = ONE 595 B( J ) = TEXP*( ONE-ULP ) 600 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | slattb.f | 161 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, 486 TEXP = ONE / REAL( KD+1 ) 487 TSCAL = SMLNUM**TEXP 554 TEXP = ONE 561 B( I ) = TEXP*( ONE-ULP ) 566 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 568 TEXP = TEXP*TWO 575 TEXP = ONE 580 B( J ) = TEXP*( ONE-ULP ) 585 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/LIN/ |
H A D | dlattb.f | 164 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, 489 TEXP = ONE / DBLE( KD+1 ) 490 TSCAL = SMLNUM**TEXP 557 TEXP = ONE 564 B( I ) = TEXP*( ONE-ULP ) 569 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 571 TEXP = TEXP*TWO 578 TEXP = ONE 583 B( J ) = TEXP*( ONE-ULP ) 588 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
/dports/math/blas/lapack-3.10.0/TESTING/LIN/ |
H A D | zlattb.f | 168 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, local 501 TEXP = ONE / DBLE( KD+1 ) 502 TSCAL = SMLNUM**TEXP 569 TEXP = ONE 576 B( I ) = TEXP*( ONE-ULP ) 581 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 583 TEXP = TEXP*TWO 590 TEXP = ONE 595 B( J ) = TEXP*( ONE-ULP ) 600 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | clattb.f | 168 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, 501 TEXP = ONE / REAL( KD+1 ) 502 TSCAL = SMLNUM**TEXP 569 TEXP = ONE 576 B( I ) = TEXP*( ONE-ULP ) 581 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 583 TEXP = TEXP*TWO 590 TEXP = ONE 595 B( J ) = TEXP*( ONE-ULP ) 600 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | slattb.f | 161 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, local 486 TEXP = ONE / REAL( KD+1 ) 487 TSCAL = SMLNUM**TEXP 554 TEXP = ONE 561 B( I ) = TEXP*( ONE-ULP ) 566 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 568 TEXP = TEXP*TWO 575 TEXP = ONE 580 B( J ) = TEXP*( ONE-ULP ) 585 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | dlattb.f | 161 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, local 486 TEXP = ONE / DBLE( KD+1 ) 487 TSCAL = SMLNUM**TEXP 554 TEXP = ONE 561 B( I ) = TEXP*( ONE-ULP ) 566 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 568 TEXP = TEXP*TWO 575 TEXP = ONE 580 B( J ) = TEXP*( ONE-ULP ) 585 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
/dports/math/lapacke/lapack-3.10.0/TESTING/LIN/ |
H A D | slattb.f | 161 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, 486 TEXP = ONE / REAL( KD+1 ) 487 TSCAL = SMLNUM**TEXP 554 TEXP = ONE 561 B( I ) = TEXP*( ONE-ULP ) 566 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 568 TEXP = TEXP*TWO 575 TEXP = ONE 580 B( J ) = TEXP*( ONE-ULP ) 585 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | dlattb.f | 161 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, 486 TEXP = ONE / DBLE( KD+1 ) 487 TSCAL = SMLNUM**TEXP 554 TEXP = ONE 561 B( I ) = TEXP*( ONE-ULP ) 566 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 568 TEXP = TEXP*TWO 575 TEXP = ONE 580 B( J ) = TEXP*( ONE-ULP ) 585 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | zlattb.f | 168 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, 501 TEXP = ONE / DBLE( KD+1 ) 502 TSCAL = SMLNUM**TEXP 569 TEXP = ONE 576 B( I ) = TEXP*( ONE-ULP ) 581 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 583 TEXP = TEXP*TWO 590 TEXP = ONE 595 B( J ) = TEXP*( ONE-ULP ) 600 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | clattb.f | 168 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, 501 TEXP = ONE / REAL( KD+1 ) 502 TSCAL = SMLNUM**TEXP 569 TEXP = ONE 576 B( I ) = TEXP*( ONE-ULP ) 581 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 583 TEXP = TEXP*TWO 590 TEXP = ONE 595 B( J ) = TEXP*( ONE-ULP ) 600 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
/dports/math/lapack/lapack-3.10.0/TESTING/LIN/ |
H A D | zlattb.f | 168 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, local 501 TEXP = ONE / DBLE( KD+1 ) 502 TSCAL = SMLNUM**TEXP 569 TEXP = ONE 576 B( I ) = TEXP*( ONE-ULP ) 581 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 583 TEXP = TEXP*TWO 590 TEXP = ONE 595 B( J ) = TEXP*( ONE-ULP ) 600 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | dlattb.f | 161 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, local 486 TEXP = ONE / DBLE( KD+1 ) 487 TSCAL = SMLNUM**TEXP 554 TEXP = ONE 561 B( I ) = TEXP*( ONE-ULP ) 566 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 568 TEXP = TEXP*TWO 575 TEXP = ONE 580 B( J ) = TEXP*( ONE-ULP ) 585 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | slattb.f | 161 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, local 486 TEXP = ONE / REAL( KD+1 ) 487 TSCAL = SMLNUM**TEXP 554 TEXP = ONE 561 B( I ) = TEXP*( ONE-ULP ) 566 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 568 TEXP = TEXP*TWO 575 TEXP = ONE 580 B( J ) = TEXP*( ONE-ULP ) 585 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | clattb.f | 168 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, local 501 TEXP = ONE / REAL( KD+1 ) 502 TSCAL = SMLNUM**TEXP 569 TEXP = ONE 576 B( I ) = TEXP*( ONE-ULP ) 581 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 583 TEXP = TEXP*TWO 590 TEXP = ONE 595 B( J ) = TEXP*( ONE-ULP ) 600 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
/dports/math/libflame/libflame-5.2.0/netlib-test/lapack-3.4.2/TESTING/LIN/ |
H A D | zlattb.f | 171 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, local 504 TEXP = ONE / DBLE( KD+1 ) 505 TSCAL = SMLNUM**TEXP 572 TEXP = ONE 579 B( I ) = TEXP*( ONE-ULP ) 584 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 586 TEXP = TEXP*TWO 593 TEXP = ONE 598 B( J ) = TEXP*( ONE-ULP ) 603 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | dlattb.f | 164 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, local 489 TEXP = ONE / DBLE( KD+1 ) 490 TSCAL = SMLNUM**TEXP 557 TEXP = ONE 564 B( I ) = TEXP*( ONE-ULP ) 569 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 571 TEXP = TEXP*TWO 578 TEXP = ONE 583 B( J ) = TEXP*( ONE-ULP ) 588 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | slattb.f | 164 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, local 489 TEXP = ONE / REAL( KD+1 ) 490 TSCAL = SMLNUM**TEXP 557 TEXP = ONE 564 B( I ) = TEXP*( ONE-ULP ) 569 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 571 TEXP = TEXP*TWO 578 TEXP = ONE 583 B( J ) = TEXP*( ONE-ULP ) 588 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.4.2/LIN/ |
H A D | slattb.f | 164 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, 489 TEXP = ONE / REAL( KD+1 ) 490 TSCAL = SMLNUM**TEXP 557 TEXP = ONE 564 B( I ) = TEXP*( ONE-ULP ) 569 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 571 TEXP = TEXP*TWO 578 TEXP = ONE 583 B( J ) = TEXP*( ONE-ULP ) 588 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | clattb.f | 171 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, local 504 TEXP = ONE / REAL( KD+1 ) 505 TSCAL = SMLNUM**TEXP 572 TEXP = ONE 579 B( I ) = TEXP*( ONE-ULP ) 584 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 586 TEXP = TEXP*TWO 593 TEXP = ONE 598 B( J ) = TEXP*( ONE-ULP ) 603 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | dlattb.f | 164 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, local 489 TEXP = ONE / DBLE( KD+1 ) 490 TSCAL = SMLNUM**TEXP 557 TEXP = ONE 564 B( I ) = TEXP*( ONE-ULP ) 569 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 571 TEXP = TEXP*TWO 578 TEXP = ONE 583 B( J ) = TEXP*( ONE-ULP ) 588 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | zlattb.f | 171 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, local 504 TEXP = ONE / DBLE( KD+1 ) 505 TSCAL = SMLNUM**TEXP 572 TEXP = ONE 579 B( I ) = TEXP*( ONE-ULP ) 584 B( I-1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) 586 TEXP = TEXP*TWO 593 TEXP = ONE 598 B( J ) = TEXP*( ONE-ULP ) 603 B( I+1 ) = TEXP*DBLE( ( KD+1 )*( KD+1 )+KD ) [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/LIN/ |
H A D | slattb.f | 164 $ PLUS2, REXP, SFAC, SMLNUM, STAR1, TEXP, TLEFT, 489 TEXP = ONE / REAL( KD+1 ) 490 TSCAL = SMLNUM**TEXP 557 TEXP = ONE 564 B( I ) = TEXP*( ONE-ULP ) 569 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 571 TEXP = TEXP*TWO 578 TEXP = ONE 583 B( J ) = TEXP*( ONE-ULP ) 588 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|
H A D | clattb.f | 171 $ SFAC, SMLNUM, TEXP, TLEFT, TNORM, TSCAL, ULP, 504 TEXP = ONE / REAL( KD+1 ) 505 TSCAL = SMLNUM**TEXP 572 TEXP = ONE 579 B( I ) = TEXP*( ONE-ULP ) 584 B( I-1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) 586 TEXP = TEXP*TWO 593 TEXP = ONE 598 B( J ) = TEXP*( ONE-ULP ) 603 B( I+1 ) = TEXP*REAL( ( KD+1 )*( KD+1 )+KD ) [all …]
|