| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/src_f77/ |
| H A D | slaed6.f | 20 * SLAED6 computes the positive or negative root (closest to the origin) argument
79 REAL ZERO, ONE, TWO, THREE, FOUR, EIGHT
88 REAL DSCALE( 3 ), ZSCALE( 3 )
91 LOGICAL FIRST, SCALE
92 INTEGER I, ITER, NITER
93 REAL A, B, BASE, C, DDF, DF, EPS, ERRETM, ETA, F,
94 $ FC, SCLFAC, SCLINV, SMALL1, SMALL2, SMINV1,
95 $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4
185 10 CONTINUE
208 30 CONTINUE
[all …]
|
| /dports/math/openblas/OpenBLAS-0.3.18/lapack-netlib/SRC/ |
| H A D | slaed6.f | 150 INTEGER INFO, KNITER
151 REAL FINIT, RHO, TAU
154 REAL D( 3 ), Z( 3 )
162 REAL ZERO, ONE, TWO, THREE, FOUR, EIGHT
171 REAL DSCALE( 3 ), ZSCALE( 3 )
175 INTEGER I, ITER, NITER
176 REAL A, B, BASE, C, DDF, DF, EPS, ERRETM, ETA, F,
177 $ FC, SCLFAC, SCLINV, SMALL1, SMALL2, SMINV1,
178 $ SMINV2, TEMP, TEMP1, TEMP2, TEMP3, TEMP4,
179 $ LBD, UBD
[all …]
|
| /dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/ext/LAPACKBLAS/SRC/ |
| H A D | slaed6.f | 141 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
288 10 CONTINUE
299 20 CONTINUE
313 30 CONTINUE
408 * End of SLAED6 argument
|
| /dports/math/xlapack/lapack-3.10.0/SRC/ |
| H A D | slaed6.f | 139 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
285 10 CONTINUE
296 20 CONTINUE
310 30 CONTINUE
405 * End of SLAED6 argument
|
| /dports/math/blas/lapack-3.10.0/SRC/ |
| H A D | slaed6.f | 139 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
285 10 CONTINUE
296 20 CONTINUE
310 30 CONTINUE
405 * End of SLAED6 argument
|
| /dports/math/lapack/lapack-3.10.0/SRC/ |
| H A D | slaed6.f | 139 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
285 10 CONTINUE
296 20 CONTINUE
310 30 CONTINUE
405 * End of SLAED6 argument
|
| /dports/math/lapacke/lapack-3.10.0/SRC/ |
| H A D | slaed6.f | 139 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
285 10 CONTINUE
296 20 CONTINUE
310 30 CONTINUE
405 * End of SLAED6 argument
|
| /dports/math/libflame/libflame-5.2.0/old/lapack-test/lapack-timing/EIG/EIGSRC/ |
| H A D | slaed6.f | 1 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
200 10 CONTINUE
209 20 CONTINUE
224 30 CONTINUE
331 * End of SLAED6 argument
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/lapack/single/ |
| H A D | slaed6.f | 141 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
288 10 CONTINUE
299 20 CONTINUE
313 30 CONTINUE
407 * End of SLAED6 argument
|
| /dports/math/openblas/TIMING/EIG/EIGSRC/ |
| H A D | slaed6.f | 1 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
200 10 CONTINUE
209 20 CONTINUE
224 30 CONTINUE
331 * End of SLAED6 argument
|
| /dports/science/elmerfem/elmerfem-release-9.0/mathlibs/src/lapack/ |
| H A D | slaed6.f | 1 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
185 10 CONTINUE
194 20 CONTINUE
208 30 CONTINUE
297 * End of SLAED6 argument
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/lapack/single/ |
| H A D | slaed6.f | 141 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
288 10 CONTINUE
299 20 CONTINUE
313 30 CONTINUE
407 * End of SLAED6 argument
|
| /dports/math/cblas/lapack-3.10.0/SRC/ |
| H A D | slaed6.f | 139 SUBROUTINE SLAED6( KNITER, ORGATI, RHO, D, Z, FINIT, TAU, INFO ) subroutine
285 10 CONTINUE
296 20 CONTINUE
310 30 CONTINUE
405 * End of SLAED6 argument
|
| /dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
| H A D | slaed6.cpp | 8 F77_FUNC(slaed6,SLAED6)(int *kniter, in F77_FUNC() argument
|
| /dports/science/plumed/plumed2-2.7.2/src/lapack/ |
| H A D | lapack.cpp | 18421 PLUMED_BLAS_F77_FUNC(slaed6,SLAED6)(int *kniter, in PLUMED_BLAS_F77_FUNC() argument
|