/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
H A D | dlasq4.f | 180 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 358 GAP2 = HALF*DMIN2 - A2 359 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 360 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 401 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 403 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 404 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
H A D | slasq4.f | 180 REAL A2, B1, B2, GAM, GAP1, GAP2, S 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 358 GAP2 = HALF*DMIN2 - A2 359 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 360 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 401 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 403 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 404 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/math/xlapack/lapack-3.10.0/SRC/ |
H A D | dlasq4.f | 177 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 207 GAP2 = DMIN2 - A2 - DMIN2*QURTR 208 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 209 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 354 GAP2 = HALF*DMIN2 - A2 355 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 356 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 397 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 399 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 400 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
H A D | slasq4.f | 177 REAL A2, B1, B2, GAM, GAP1, GAP2, S 207 GAP2 = DMIN2 - A2 - DMIN2*QURTR 208 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 209 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 354 GAP2 = HALF*DMIN2 - A2 355 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 356 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 397 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 399 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 400 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/math/blas/lapack-3.10.0/SRC/ |
H A D | dlasq4.f | 177 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 207 GAP2 = DMIN2 - A2 - DMIN2*QURTR 208 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 209 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 354 GAP2 = HALF*DMIN2 - A2 355 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 356 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 397 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 399 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 400 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
H A D | slasq4.f | 177 REAL A2, B1, B2, GAM, GAP1, GAP2, S 207 GAP2 = DMIN2 - A2 - DMIN2*QURTR 208 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 209 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 354 GAP2 = HALF*DMIN2 - A2 355 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 356 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 397 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 399 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 400 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/science/lammps/lammps-stable_29Sep2021/lib/linalg/ |
H A D | dlasq4.f | 180 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 357 GAP2 = HALF*DMIN2 - A2 358 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 359 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 400 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 402 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 403 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
H A D | dlasq4.f | 79 DOUBLE PRECISION A2, B1, B2, G, GAM, GAP1, GAP2, S local 115 GAP2 = DMIN2 - A2 - DMIN2*QURTR 116 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 117 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 263 GAP2 = HALF*DMIN2 - A2 264 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 265 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 306 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 308 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 309 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
H A D | slasq4.f | 79 REAL A2, B1, B2, G, GAM, GAP1, GAP2, S local 115 GAP2 = DMIN2 - A2 - DMIN2*QURTR 116 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 117 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 263 GAP2 = HALF*DMIN2 - A2 264 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 265 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 306 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 308 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 309 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/math/lapacke/lapack-3.10.0/SRC/ |
H A D | dlasq4.f | 177 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 207 GAP2 = DMIN2 - A2 - DMIN2*QURTR 208 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 209 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 354 GAP2 = HALF*DMIN2 - A2 355 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 356 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 397 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 399 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 400 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
H A D | slasq4.f | 177 REAL A2, B1, B2, GAM, GAP1, GAP2, S 207 GAP2 = DMIN2 - A2 - DMIN2*QURTR 208 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 209 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 354 GAP2 = HALF*DMIN2 - A2 355 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 356 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 397 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 399 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 400 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/math/lapack/lapack-3.10.0/SRC/ |
H A D | dlasq4.f | 177 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 207 GAP2 = DMIN2 - A2 - DMIN2*QURTR 208 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 209 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 354 GAP2 = HALF*DMIN2 - A2 355 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 356 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 397 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 399 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 400 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
H A D | slasq4.f | 177 REAL A2, B1, B2, GAM, GAP1, GAP2, S 207 GAP2 = DMIN2 - A2 - DMIN2*QURTR 208 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 209 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 354 GAP2 = HALF*DMIN2 - A2 355 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 356 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 397 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 399 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 400 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/math/algae/algae-4.3.6/lapack/ |
H A D | dlasq4.f | 79 DOUBLE PRECISION A2, B1, B2, G, GAM, GAP1, GAP2, S 115 GAP2 = DMIN2 - A2 - DMIN2*QURTR 116 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 117 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 263 GAP2 = HALF*DMIN2 - A2 264 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 265 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 306 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 308 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 309 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/double/ |
H A D | dlasq4.f | 180 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 358 GAP2 = HALF*DMIN2 - A2 359 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 360 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 401 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 403 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 404 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
H A D | dlasq4.f | 180 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S local 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 357 GAP2 = HALF*DMIN2 - A2 358 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 359 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 400 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 402 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 403 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
H A D | slasq4.f | 180 REAL A2, B1, B2, GAM, GAP1, GAP2, S local 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 357 GAP2 = HALF*DMIN2 - A2 358 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 359 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 400 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 402 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 403 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/science/elk/elk-7.2.42/src/LAPACK/ |
H A D | dlasq4.f | 180 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 357 GAP2 = HALF*DMIN2 - A2 358 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 359 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 400 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 402 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 403 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
H A D | dlasq4.f | 79 DOUBLE PRECISION A2, B1, B2, G, GAM, GAP1, GAP2, S 115 GAP2 = DMIN2 - A2 - DMIN2*QURTR 116 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 117 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 263 GAP2 = HALF*DMIN2 - A2 264 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 265 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 306 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 308 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 309 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
H A D | slasq4.f | 79 REAL A2, B1, B2, G, GAM, GAP1, GAP2, S 115 GAP2 = DMIN2 - A2 - DMIN2*QURTR 116 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 117 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 263 GAP2 = HALF*DMIN2 - A2 264 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 265 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 306 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 308 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 309 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/double/ |
H A D | dlasq4.f | 180 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 358 GAP2 = HALF*DMIN2 - A2 359 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 360 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 401 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 403 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 404 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/math/cblas/lapack-3.10.0/SRC/ |
H A D | dlasq4.f | 177 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 207 GAP2 = DMIN2 - A2 - DMIN2*QURTR 208 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 209 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 354 GAP2 = HALF*DMIN2 - A2 355 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 356 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 397 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 399 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 400 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/sysutils/istio/istio-1.6.7/vendor/github.com/openshift/api/vendor/gonum.org/v1/gonum/lapack/internal/testdata/dlasqtest/ |
H A D | dlasq4.f | 180 DOUBLE PRECISION A2, B1, B2, GAM, GAP1, GAP2, S 212 GAP2 = DMIN2 - A2 - DMIN2*QURTR 213 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 214 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 360 GAP2 = HALF*DMIN2 - A2 361 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 362 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 403 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 405 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 406 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/ |
H A D | slasq4.f | 180 REAL A2, B1, B2, GAM, GAP1, GAP2, S 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 358 GAP2 = HALF*DMIN2 - A2 359 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 360 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 401 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 403 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 404 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/ |
H A D | slasq4.f | 180 REAL A2, B1, B2, GAM, GAP1, GAP2, S 210 GAP2 = DMIN2 - A2 - DMIN2*QURTR 211 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2 ) THEN 212 GAP1 = A2 - DN - ( B2 / GAP2 )*B2 358 GAP2 = HALF*DMIN2 - A2 359 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 360 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) ) 401 GAP2 = Z( NN-7 ) + Z( NN-9 ) - 403 IF( GAP2.GT.ZERO .AND. GAP2.GT.B2*A2 ) THEN 404 S = MAX( S, A2*( ONE-CNST2*A2*( B2 / GAP2 )*B2 ) )
|