/dports/math/testu01/TestU01-1.2.3/testu01/ |
H A D | fcho.c | 42 #define EPS2 1.0E-10 macro 109 if (a > EPS2) in WriteSample() 112 if (fabs (b*j) > EPS2) { in WriteSample() 113 if (b*j > EPS2) in WriteSample() 117 if (fabs (b - 1.0) > EPS2) in WriteSample() 123 if (c > EPS2) in WriteSample() 125 else if (c < -EPS2) in WriteSample()
|
/dports/science/berkeleygw/BGW-2.0.0/BSE/full_solver/ |
H A D | zbsabsp2.f90 | 99 EPS2( J ) = ZERO 105 EPS2( J ) = EPS2( J ) + DTMP &
|
/dports/games/crrcsim/crrcsim-0.9.13/src/mod_fdm/ |
H A D | ls_geodesy.cpp | 48 #define EPS2 0.006694385 // square of first eccentricity = EPS*EPS macro 139 B = W - EQUATORIAL_RADIUS * EPS2 * cos_beta*cos_beta*cos_beta; in ls_geoc_to_geod_fastbowring() 155 RN = EQUATORIAL_RADIUS / sqrt(1 - EPS2 * sin_phi*sin_phi); in ls_geoc_to_geod_fastbowring() 157 *alt = W * cos_phi + (Z + EPS2 * RN * sin_phi) * sin_phi - RN; in ls_geoc_to_geod_fastbowring() 161 sea_level_z = RN*(1-EPS2)*sin_phi; in ls_geoc_to_geod_fastbowring()
|
/dports/math/xlapack/lapack-3.10.0/TESTING/EIG/ |
H A D | dcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / DBLE(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / DBLE(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / DBLE(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | scsdts.f | 257 REAL EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | zcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 366 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 371 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 376 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 381 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 447 EPS2 = MAX( ULP, 450 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/TESTING/EIG/ |
H A D | dcsdts.f | 259 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 283 EPS2 = MAX( ULP, 286 EPS2 = ULP 367 RESULT( 1 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 372 RESULT( 2 ) = ( RESID / DBLE(MAX(1,P,M-Q)) ) / EPS2 377 RESULT( 3 ) = ( RESID / DBLE(MAX(1,M-P,Q)) ) / EPS2 382 RESULT( 4 ) = ( RESID / DBLE(MAX(1,M-P,M-Q)) ) / EPS2 448 EPS2 = MAX( ULP, 451 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 [all …]
|
/dports/math/blas/lapack-3.10.0/TESTING/EIG/ |
H A D | scsdts.f | 257 REAL EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | dcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / DBLE(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / DBLE(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / DBLE(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | zcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 366 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 371 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 376 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 381 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 447 EPS2 = MAX( ULP, 450 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
/dports/math/lapacke/lapack-3.10.0/TESTING/EIG/ |
H A D | zcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 366 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 371 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 376 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 381 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 447 EPS2 = MAX( ULP, 450 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | scsdts.f | 257 REAL EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | dcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / DBLE(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / DBLE(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / DBLE(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 [all …]
|
/dports/math/lapack/lapack-3.10.0/TESTING/EIG/ |
H A D | zcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV local 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 366 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 371 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 376 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 381 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 447 EPS2 = MAX( ULP, 450 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | dcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV local 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / DBLE(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / DBLE(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / DBLE(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | scsdts.f | 257 REAL EPS2, RESID, ULP, ULPINV local 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
/dports/math/libflame/libflame-5.2.0/old/lapack-test/3.5.0/EIG/ |
H A D | dcsdts.f | 259 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 283 EPS2 = MAX( ULP, 286 EPS2 = ULP 367 RESULT( 1 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 372 RESULT( 2 ) = ( RESID / DBLE(MAX(1,P,M-Q)) ) / EPS2 377 RESULT( 3 ) = ( RESID / DBLE(MAX(1,M-P,Q)) ) / EPS2 382 RESULT( 4 ) = ( RESID / DBLE(MAX(1,M-P,M-Q)) ) / EPS2 448 EPS2 = MAX( ULP, 451 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | scsdts.f | 259 REAL EPS2, RESID, ULP, ULPINV local 283 EPS2 = MAX( ULP, 286 EPS2 = ULP 367 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 372 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 377 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 382 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 448 EPS2 = MAX( ULP, 451 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | zcsdts.f | 259 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 283 EPS2 = MAX( ULP, 286 EPS2 = ULP 368 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 373 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 378 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 383 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 449 EPS2 = MAX( ULP, 452 EPS2 = ULP 501 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/TESTING/EIG/ |
H A D | scsdts.f | 259 REAL EPS2, RESID, ULP, ULPINV 283 EPS2 = MAX( ULP, 286 EPS2 = ULP 367 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 372 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 377 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 382 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 448 EPS2 = MAX( ULP, 451 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | zcsdts.f | 259 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 283 EPS2 = MAX( ULP, 286 EPS2 = ULP 368 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 373 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 378 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 383 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 449 EPS2 = MAX( ULP, 452 EPS2 = ULP 501 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | dcsdts.f | 259 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 283 EPS2 = MAX( ULP, 286 EPS2 = ULP 367 RESULT( 1 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 372 RESULT( 2 ) = ( RESID / DBLE(MAX(1,P,M-Q)) ) / EPS2 377 RESULT( 3 ) = ( RESID / DBLE(MAX(1,M-P,Q)) ) / EPS2 382 RESULT( 4 ) = ( RESID / DBLE(MAX(1,M-P,M-Q)) ) / EPS2 448 EPS2 = MAX( ULP, 451 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 [all …]
|
/dports/math/cblas/lapack-3.10.0/TESTING/EIG/ |
H A D | zcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 366 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 371 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 376 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 381 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 447 EPS2 = MAX( ULP, 450 EPS2 = ULP 499 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | scsdts.f | 257 REAL EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / REAL(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / REAL(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / REAL(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / REAL(MAX(1,P,Q)) ) / EPS2 [all …]
|
H A D | dcsdts.f | 257 DOUBLE PRECISION EPS2, RESID, ULP, ULPINV 281 EPS2 = MAX( ULP, 284 EPS2 = ULP 365 RESULT( 1 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 370 RESULT( 2 ) = ( RESID / DBLE(MAX(1,P,M-Q)) ) / EPS2 375 RESULT( 3 ) = ( RESID / DBLE(MAX(1,M-P,Q)) ) / EPS2 380 RESULT( 4 ) = ( RESID / DBLE(MAX(1,M-P,M-Q)) ) / EPS2 446 EPS2 = MAX( ULP, 449 EPS2 = ULP 497 RESULT( 10 ) = ( RESID / DBLE(MAX(1,P,Q)) ) / EPS2 [all …]
|