Home
last modified time | relevance | path

Searched refs:GAP2 (Results 1 – 25 of 40) sorted by relevance

12

/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/
H A Ddlasq4.f180 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 Dslasq4.f180 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 Ddlasq4.f177 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 Dslasq4.f177 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 Ddlasq4.f177 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 Dslasq4.f177 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 Ddlasq4.f180 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 Ddlasq4.f79 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 Dslasq4.f79 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 Ddlasq4.f177 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 Dslasq4.f177 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 Ddlasq4.f177 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 Dslasq4.f177 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 Ddlasq4.f79 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 Ddlasq4.f180 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 Ddlasq4.f180 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 Dslasq4.f180 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 Ddlasq4.f180 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 Ddlasq4.f79 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 Dslasq4.f79 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 Ddlasq4.f180 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 Ddlasq4.f177 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 Ddlasq4.f180 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 Dslasq4.f180 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 Dslasq4.f180 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 ) )

12