| /dports/math/algae/algae-4.3.6/lapack/ |
| H A D | zpotf2.f | 74 DOUBLE PRECISION AJJ
120 IF( AJJ.LE.ZERO ) THEN
121 A( J, J ) = AJJ
124 AJJ = SQRT( AJJ )
125 A( J, J ) = AJJ
134 CALL ZDSCAL( N-J, ONE / AJJ, A( J, J+1 ), LDA )
147 IF( AJJ.LE.ZERO ) THEN
148 A( J, J ) = AJJ
151 AJJ = SQRT( AJJ )
152 A( J, J ) = AJJ
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
| H A D | cpotf2.f | 74 REAL AJJ
120 IF( AJJ.LE.ZERO ) THEN
121 A( J, J ) = AJJ
124 AJJ = SQRT( AJJ )
125 A( J, J ) = AJJ
134 CALL CSSCAL( N-J, ONE / AJJ, A( J, J+1 ), LDA )
147 IF( AJJ.LE.ZERO ) THEN
148 A( J, J ) = AJJ
151 AJJ = SQRT( AJJ )
152 A( J, J ) = AJJ
[all …]
|
| H A D | zpotf2.f | 74 DOUBLE PRECISION AJJ
120 IF( AJJ.LE.ZERO ) THEN
121 A( J, J ) = AJJ
124 AJJ = SQRT( AJJ )
125 A( J, J ) = AJJ
134 CALL ZDSCAL( N-J, ONE / AJJ, A( J, J+1 ), LDA )
147 IF( AJJ.LE.ZERO ) THEN
148 A( J, J ) = AJJ
151 AJJ = SQRT( AJJ )
152 A( J, J ) = AJJ
[all …]
|
| H A D | dpbtf2.f | 99 DOUBLE PRECISION AJJ
146 AJJ = AB( KD+1, J )
147 IF( AJJ.LE.ZERO )
149 AJJ = SQRT( AJJ )
150 AB( KD+1, J ) = AJJ
157 CALL DSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
170 AJJ = AB( 1, J )
171 IF( AJJ.LE.ZERO )
173 AJJ = SQRT( AJJ )
174 AB( 1, J ) = AJJ
[all …]
|
| /dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/GotoBLAS2/reference/ |
| H A D | zpotf2f.f | 74 DOUBLE PRECISION AJJ local
120 IF( AJJ.LE.ZERO ) THEN
121 A( J, J ) = AJJ
124 AJJ = SQRT( AJJ )
125 A( J, J ) = AJJ
134 CALL ZDSCAL( N-J, ONE / AJJ, A( J, J+1 ), LDA )
147 IF( AJJ.LE.ZERO ) THEN
148 A( J, J ) = AJJ
151 AJJ = SQRT( AJJ )
152 A( J, J ) = AJJ
[all …]
|
| H A D | cpotf2f.f | 74 REAL AJJ local
120 IF( AJJ.LE.ZERO ) THEN
121 A( J, J ) = AJJ
124 AJJ = SQRT( AJJ )
125 A( J, J ) = AJJ
134 CALL CSSCAL( N-J, ONE / AJJ, A( J, J+1 ), LDA )
147 IF( AJJ.LE.ZERO ) THEN
148 A( J, J ) = AJJ
151 AJJ = SQRT( AJJ )
152 A( J, J ) = AJJ
[all …]
|
| /dports/math/openblas/OpenBLAS-0.3.18/reference/ |
| H A D | cpotf2f.f | 74 REAL AJJ
120 IF( AJJ.LE.ZERO ) THEN
121 A( J, J ) = AJJ
124 AJJ = SQRT( AJJ )
125 A( J, J ) = AJJ
134 CALL CSSCAL( N-J, ONE / AJJ, A( J, J+1 ), LDA )
147 IF( AJJ.LE.ZERO ) THEN
148 A( J, J ) = AJJ
151 AJJ = SQRT( AJJ )
152 A( J, J ) = AJJ
[all …]
|
| H A D | zpotf2f.f | 74 DOUBLE PRECISION AJJ
120 IF( AJJ.LE.ZERO ) THEN
121 A( J, J ) = AJJ
124 AJJ = SQRT( AJJ )
125 A( J, J ) = AJJ
134 CALL ZDSCAL( N-J, ONE / AJJ, A( J, J+1 ), LDA )
147 IF( AJJ.LE.ZERO ) THEN
148 A( J, J ) = AJJ
151 AJJ = SQRT( AJJ )
152 A( J, J ) = AJJ
[all …]
|
| /dports/math/gotoblas/GotoBLAS2/reference/ |
| H A D | cpotf2f.f | 74 REAL AJJ local
120 IF( AJJ.LE.ZERO ) THEN
121 A( J, J ) = AJJ
124 AJJ = SQRT( AJJ )
125 A( J, J ) = AJJ
134 CALL CSSCAL( N-J, ONE / AJJ, A( J, J+1 ), LDA )
147 IF( AJJ.LE.ZERO ) THEN
148 A( J, J ) = AJJ
151 AJJ = SQRT( AJJ )
152 A( J, J ) = AJJ
[all …]
|
| H A D | zpotf2f.f | 74 DOUBLE PRECISION AJJ local
120 IF( AJJ.LE.ZERO ) THEN
121 A( J, J ) = AJJ
124 AJJ = SQRT( AJJ )
125 A( J, J ) = AJJ
134 CALL ZDSCAL( N-J, ONE / AJJ, A( J, J+1 ), LDA )
147 IF( AJJ.LE.ZERO ) THEN
148 A( J, J ) = AJJ
151 AJJ = SQRT( AJJ )
152 A( J, J ) = AJJ
[all …]
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
| H A D | dpbtf2.f | 167 DOUBLE PRECISION AJJ
214 AJJ = AB( KD+1, J )
215 IF( AJJ.LE.ZERO )
217 AJJ = SQRT( AJJ )
218 AB( KD+1, J ) = AJJ
225 CALL DSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
238 AJJ = AB( 1, J )
239 IF( AJJ.LE.ZERO )
241 AJJ = SQRT( AJJ )
242 AB( 1, J ) = AJJ
[all …]
|
| H A D | spbtf2.f | 167 REAL AJJ
214 AJJ = AB( KD+1, J )
215 IF( AJJ.LE.ZERO )
217 AJJ = SQRT( AJJ )
218 AB( KD+1, J ) = AJJ
225 CALL SSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
238 AJJ = AB( 1, J )
239 IF( AJJ.LE.ZERO )
241 AJJ = SQRT( AJJ )
242 AB( 1, J ) = AJJ
[all …]
|
| /dports/math/xlapack/lapack-3.10.0/SRC/ |
| H A D | dpbtf2.f | 164 DOUBLE PRECISION AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL DSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
[all …]
|
| H A D | spbtf2.f | 164 REAL AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL SSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
[all …]
|
| /dports/math/blas/lapack-3.10.0/SRC/ |
| H A D | dpbtf2.f | 164 DOUBLE PRECISION AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL DSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
[all …]
|
| H A D | spbtf2.f | 164 REAL AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL SSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
| H A D | dpbtf2.f | 99 DOUBLE PRECISION AJJ local
146 AJJ = AB( KD+1, J )
147 IF( AJJ.LE.ZERO )
149 AJJ = SQRT( AJJ )
150 AB( KD+1, J ) = AJJ
157 CALL DSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
170 AJJ = AB( 1, J )
171 IF( AJJ.LE.ZERO )
173 AJJ = SQRT( AJJ )
174 AB( 1, J ) = AJJ
[all …]
|
| H A D | spbtf2.f | 99 REAL AJJ local
146 AJJ = AB( KD+1, J )
147 IF( AJJ.LE.ZERO )
149 AJJ = SQRT( AJJ )
150 AB( KD+1, J ) = AJJ
157 CALL SSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
170 AJJ = AB( 1, J )
171 IF( AJJ.LE.ZERO )
173 AJJ = SQRT( AJJ )
174 AB( 1, J ) = AJJ
[all …]
|
| /dports/math/lapacke/lapack-3.10.0/SRC/ |
| H A D | dpbtf2.f | 164 DOUBLE PRECISION AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL DSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
[all …]
|
| H A D | spbtf2.f | 164 REAL AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL SSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
[all …]
|
| /dports/math/lapack/lapack-3.10.0/SRC/ |
| H A D | dpbtf2.f | 164 DOUBLE PRECISION AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL DSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
[all …]
|
| H A D | spbtf2.f | 164 REAL AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL SSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
[all …]
|
| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
| H A D | dpbtf2.f | 167 DOUBLE PRECISION AJJ local
214 AJJ = AB( KD+1, J )
215 IF( AJJ.LE.ZERO )
217 AJJ = SQRT( AJJ )
218 AB( KD+1, J ) = AJJ
225 CALL DSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
238 AJJ = AB( 1, J )
239 IF( AJJ.LE.ZERO )
241 AJJ = SQRT( AJJ )
242 AB( 1, J ) = AJJ
[all …]
|
| H A D | spbtf2.f | 167 REAL AJJ local
214 AJJ = AB( KD+1, J )
215 IF( AJJ.LE.ZERO )
217 AJJ = SQRT( AJJ )
218 AB( KD+1, J ) = AJJ
225 CALL SSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
238 AJJ = AB( 1, J )
239 IF( AJJ.LE.ZERO )
241 AJJ = SQRT( AJJ )
242 AB( 1, J ) = AJJ
[all …]
|
| /dports/math/cblas/lapack-3.10.0/SRC/ |
| H A D | dpbtf2.f | 164 DOUBLE PRECISION AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL DSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
[all …]
|