| /dports/misc/visp/visp-3.4.0/3rdparty/clapack/src/ |
| H A D | dlasd4.c | 342 temp = eta - dtnsq; in dlasd4_()
347 tau += eta; in dlasd4_()
348 eta /= *sigma + sqrt(eta + *sigma * *sigma); in dlasd4_()
419 temp = eta - dtnsq; in dlasd4_()
425 eta /= *sigma + sqrt(eta + *sigma * *sigma); in dlasd4_()
730 temp = eta - temp1; in dlasd4_()
733 temp = eta - temp1; in dlasd4_()
744 eta /= *sigma + sqrt(*sigma * *sigma + eta); in dlasd4_()
926 temp = eta - temp1; in dlasd4_()
929 temp = eta - temp1; in dlasd4_()
[all …]
|
| H A D | dlaed6.c | 30 doublereal fc, df, ddf, lbd, eta, ubd, eps, base; in dlaed6_() local
163 a /= temp; in dlaed6_()
164 b /= temp; in dlaed6_()
313 a /= temp; in dlaed6_()
314 b /= temp; in dlaed6_()
317 eta = b / a; in dlaed6_()
319 eta = (a - sqrt((d__1 = a * a - b * 4. * c__, abs(d__1)))) / (c__ in dlaed6_()
322 eta = b * 2. / (a + sqrt((d__1 = a * a - b * 4. * c__, abs(d__1))) in dlaed6_()
325 if (f * eta >= 0.) { in dlaed6_()
326 eta = -f / df; in dlaed6_()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/lapack/ |
| H A D | slasd4.c | 335 temp = eta - dtnsq; in slasd4_()
340 tau += eta; in slasd4_()
341 eta /= *sigma + sqrt(eta + *sigma * *sigma); in slasd4_()
412 temp = eta - dtnsq; in slasd4_()
418 eta /= *sigma + sqrt(eta + *sigma * *sigma); in slasd4_()
723 temp = eta - temp1; in slasd4_()
726 temp = eta - temp1; in slasd4_()
737 eta /= *sigma + sqrt(*sigma * *sigma + eta); in slasd4_()
919 temp = eta - temp1; in slasd4_()
922 temp = eta - temp1; in slasd4_()
[all …]
|
| H A D | dlasd4.c | 336 temp = eta - dtnsq; in dlasd4_()
341 tau += eta; in dlasd4_()
342 eta /= *sigma + sqrt(eta + *sigma * *sigma); in dlasd4_()
413 temp = eta - dtnsq; in dlasd4_()
419 eta /= *sigma + sqrt(eta + *sigma * *sigma); in dlasd4_()
724 temp = eta - temp1; in dlasd4_()
727 temp = eta - temp1; in dlasd4_()
738 eta /= *sigma + sqrt(*sigma * *sigma + eta); in dlasd4_()
920 temp = eta - temp1; in dlasd4_()
923 temp = eta - temp1; in dlasd4_()
[all …]
|
| H A D | dlaed4.c | 319 temp = tau + eta; in dlaed4_()
333 tau += eta; in dlaed4_()
402 temp = tau + eta; in dlaed4_()
412 delta[j] -= eta; in dlaed4_()
416 tau += eta; in dlaed4_()
645 eta = b / a; in dlaed4_()
689 temp = tau + eta; in dlaed4_()
753 tau += eta; in dlaed4_()
870 eta = -w / dw; in dlaed4_()
872 temp = tau + eta; in dlaed4_()
[all …]
|
| H A D | slaed4.c | 317 temp = tau + eta; in slaed4_()
331 tau += eta; in slaed4_()
400 temp = tau + eta; in slaed4_()
410 delta[j] -= eta; in slaed4_()
414 tau += eta; in slaed4_()
643 eta = b / a; in slaed4_()
687 temp = tau + eta; in slaed4_()
751 tau += eta; in slaed4_()
868 eta = -w / dw; in slaed4_()
870 temp = tau + eta; in slaed4_()
[all …]
|
| H A D | dlaed6.c | 278 eta = b / a; in dlaed6_()
286 if (f * eta >= 0.) { in dlaed6_()
287 eta = -f / df; in dlaed6_()
290 temp = eta + *tau; in dlaed6_()
292 if (eta > 0. && temp >= dscale[2]) { in dlaed6_()
293 eta = (dscale[2] - *tau) / 2.; in dlaed6_()
295 if (eta < 0. && temp <= dscale[1]) { in dlaed6_()
296 eta = (dscale[1] - *tau) / 2.; in dlaed6_()
299 if (eta > 0. && temp >= dscale[1]) { in dlaed6_()
302 if (eta < 0. && temp <= dscale[0]) { in dlaed6_()
[all …]
|
| H A D | slaed6.c | 280 eta = b / a; in slaed6_()
288 if (f * eta >= 0.f) { in slaed6_()
289 eta = -f / df; in slaed6_()
292 temp = eta + *tau; in slaed6_()
294 if (eta > 0.f && temp >= dscale[2]) { in slaed6_()
295 eta = (dscale[2] - *tau) / 2.f; in slaed6_()
297 if (eta < 0.f && temp <= dscale[1]) { in slaed6_()
298 eta = (dscale[1] - *tau) / 2.f; in slaed6_()
301 if (eta > 0.f && temp >= dscale[1]) { in slaed6_()
304 if (eta < 0.f && temp <= dscale[0]) { in slaed6_()
[all …]
|
| /dports/science/gromacs/gromacs-2021.4/src/gromacs/linearalgebra/gmx_lapack/ |
| H A D | slasd4.cpp | 173 temp = eta - dtnsq; in F77_FUNC()
178 tau += eta; in F77_FUNC()
179 eta /= *sigma + std::sqrt(eta + *sigma * *sigma); in F77_FUNC()
229 temp = eta - dtnsq; in F77_FUNC()
231 eta /= 2.; in F77_FUNC()
235 eta /= *sigma + std::sqrt(eta + *sigma * *sigma); in F77_FUNC()
472 temp = eta - temp1; in F77_FUNC()
475 temp = eta - temp1; in F77_FUNC()
486 eta /= *sigma + std::sqrt(*sigma * *sigma + eta); in F77_FUNC()
643 temp = eta - temp1; in F77_FUNC()
[all …]
|
| H A D | dlasd4.cpp | 173 temp = eta - dtnsq; in F77_FUNC()
178 tau += eta; in F77_FUNC()
179 eta /= *sigma + std::sqrt(eta + *sigma * *sigma); in F77_FUNC()
229 temp = eta - dtnsq; in F77_FUNC()
231 eta /= 2.; in F77_FUNC()
235 eta /= *sigma + std::sqrt(eta + *sigma * *sigma); in F77_FUNC()
472 temp = eta - temp1; in F77_FUNC()
475 temp = eta - temp1; in F77_FUNC()
486 eta /= *sigma + std::sqrt(*sigma * *sigma + eta); in F77_FUNC()
643 temp = eta - temp1; in F77_FUNC()
[all …]
|
| H A D | dlaed6.cpp | 151 eta = b / a; in F77_FUNC()
157 if (f * eta >= 0.f) { in F77_FUNC()
158 eta = -f / df; in F77_FUNC()
160 temp = eta + *tau; in F77_FUNC()
162 if (eta > 0.f && temp >= dscale[2]) { in F77_FUNC()
163 eta = (dscale[2] - *tau) / 2.f; in F77_FUNC()
166 if (eta < 0.f && temp <= dscale[1]) { in F77_FUNC()
167 eta = (dscale[1] - *tau) / 2.f; in F77_FUNC()
170 if (eta > 0.f && temp >= dscale[1]) { in F77_FUNC()
173 if (eta < 0.f && temp <= dscale[0]) { in F77_FUNC()
[all …]
|
| H A D | slaed6.cpp | 22 float fc, df, ddf, eta, eps, base; in F77_FUNC() local
151 eta = b / a; in F77_FUNC()
157 if (f * eta >= 0.f) { in F77_FUNC()
158 eta = -f / df; in F77_FUNC()
160 temp = eta + *tau; in F77_FUNC()
162 if (eta > 0.f && temp >= dscale[2]) { in F77_FUNC()
163 eta = (dscale[2] - *tau) / 2.f; in F77_FUNC()
166 if (eta < 0.f && temp <= dscale[1]) { in F77_FUNC()
170 if (eta > 0.f && temp >= dscale[1]) { in F77_FUNC()
173 if (eta < 0.f && temp <= dscale[0]) { in F77_FUNC()
[all …]
|
| /dports/math/libflame/libflame-5.2.0/src/map/lapack2flamec/f2c/c/ |
| H A D | dlasd4.c | 371 temp = eta - dtnsq; in dlasd4_()
376 eta /= *sigma + sqrt(eta + *sigma * *sigma); in dlasd4_()
377 tau += eta; in dlasd4_()
378 *sigma += eta; in dlasd4_()
446 temp = eta - dtnsq; in dlasd4_()
451 eta /= *sigma + sqrt(eta + *sigma * *sigma); in dlasd4_()
812 eta /= *sigma + sqrt(*sigma * *sigma + eta); in dlasd4_()
813 temp = tau + eta; in dlasd4_()
843 tau += eta; in dlasd4_()
1122 eta /= *sigma + sqrt(*sigma * *sigma + eta); in dlasd4_()
[all …]
|
| H A D | slasd4.c | 374 temp = eta - dtnsq; in slasd4_()
379 eta /= *sigma + sqrt(eta + *sigma * *sigma); in slasd4_()
380 tau += eta; in slasd4_()
381 *sigma += eta; in slasd4_()
449 temp = eta - dtnsq; in slasd4_()
454 eta /= *sigma + sqrt(eta + *sigma * *sigma); in slasd4_()
815 eta /= *sigma + sqrt(*sigma * *sigma + eta); in slasd4_()
816 temp = tau + eta; in slasd4_()
846 tau += eta; in slasd4_()
1125 eta /= *sigma + sqrt(*sigma * *sigma + eta); in slasd4_()
[all …]
|
| H A D | dlaed4.c | 351 if (w * eta > 0.) in dlaed4_()
355 temp = tau + eta; in dlaed4_()
375 tau += eta; in dlaed4_()
439 temp = tau + eta; in dlaed4_()
459 tau += eta; in dlaed4_()
746 if (w * eta >= 0.) in dlaed4_()
750 temp = tau + eta; in dlaed4_()
805 …erretm = (phi - psi) * 8. + erretm + rhoinv * 2. + f2c_abs(temp) * 3. + ( d__1 = tau + eta, f2c_ab… in dlaed4_()
821 tau += eta; in dlaed4_()
957 temp = tau + eta; in dlaed4_()
[all …]
|
| H A D | slaed4.c | 351 if (w * eta > 0.f) in slaed4_()
355 temp = tau + eta; in slaed4_()
375 tau += eta; in slaed4_()
439 temp = tau + eta; in slaed4_()
459 tau += eta; in slaed4_()
748 eta = -w / dw; in slaed4_()
750 temp = tau + eta; in slaed4_()
805 …erretm = (phi - psi) * 8.f + erretm + rhoinv * 2.f + f2c_abs(temp) * 3.f + (r__1 = tau + eta, f2c_… in slaed4_()
821 tau += eta; in slaed4_()
957 temp = tau + eta; in slaed4_()
[all …]
|
| H A D | dlaed6.c | 140 doublereal fc, df, ddf, lbd, eta, ubd, eps, base; in dlaed6_() local
214 a /= temp; in dlaed6_()
215 b /= temp; in dlaed6_()
382 a /= temp; in dlaed6_()
383 b /= temp; in dlaed6_()
387 eta = b / a; in dlaed6_()
391 eta = (a - sqrt((d__1 = a * a - b * 4. * c__, f2c_abs(d__1)))) / (c__ * 2.); in dlaed6_()
395 eta = b * 2. / (a + sqrt((d__1 = a * a - b * 4. * c__, f2c_abs(d__1))) ); in dlaed6_()
397 if (f * eta >= 0.) in dlaed6_()
399 eta = -f / df; in dlaed6_()
[all …]
|
| /dports/math/maxima/maxima-5.43.2/share/lapack/lapack/ |
| H A D | dlasd4.lisp | 375 (setf temp (- eta dtnsq))
376 (if (> temp rho) (setf eta (+ rho dtnsq)))
378 (setf eta (/ eta (+ sigma (f2cl-lib:fsqrt (+ eta (* sigma sigma))))))
473 (setf temp (- eta dtnsq))
474 (if (<= temp zero) (setf eta (/ eta two)))
1034 (if (>= (* w eta) zero) (setf eta (/ (- w) dw)))
1043 (setf temp (- eta temp1)))
1052 (setf temp (- eta temp1))))
1061 (setf eta (/ eta (+ sigma (f2cl-lib:fsqrt (+ (* sigma sigma) eta)))))
1436 (setf temp (- eta temp1)))
[all …]
|
| H A D | dlaed6.lisp | 265 (setf eta (/ b a)))
267 (setf eta
274 (setf eta
280 ((>= (* f eta) zero)
282 (setf temp (+ eta tau))
286 (and (> eta zero)
290 (and (< eta zero)
292 (setf eta
296 (and (> eta zero)
300 (and (< eta zero)
[all …]
|
| /dports/math/R-cran-Zelig/Zelig/R/ |
| H A D | model-mlogit-bayes.R | 116 eta <- array(NA, c(nrow(coef), level, nrow(mm))) functionVar
117 eta[, 1, ] <- matrix(0, nrow(coef), nrow(mm))
120 eta[, j, ]<- coef[, ind] %*% t(mm)
122 eta <- exp(eta)
128 ev[, j, k] <- eta[, j, k] / rowSums(eta[, , k])
135 temp <- apply(probs, 1, FUN = rmultinom, n = 1, size = 1) functionVar
136 temp <- as.matrix(t(temp) %*% (1:nrow(temp)))
137 pv <- apply(temp, 2, as.character)
|
| /dports/science/tinker/tinker/source/ |
| H A D | bussi.f | 46 real*8 kt,w,temp,pres local
74 call temper (dt_2,eksum,ekin,temp)
75 call pressure (dt,epot,ekin,temp,pres,stress)
79 eta = eta + 3.0d0*(volbox*(pres-atmsph)*ekcal/prescon
84 eta = eta + mass(k)*a(j,k)*v(j,k)*dt2_2/w
136 call temper2 (dt,temp)
166 eta = eta + 3.0d0*(volbox*(pres-atmsph)*ekcal/prescon
171 eta = eta + mass(k)*a(j,k)*v(j,k)*dt2_2/w
198 call temper (dt_2,eksum,ekin,temp)
199 call pressure (dt,epot,ekin,temp,pres,stress)
[all …]
|
| /dports/math/tmv/tmv-0.75/src/ |
| H A D | TMV_SymSVDecompose_DC.cpp | 285 psi += z[j] * temp; in FindDCEigenValue()
286 dpsi += temp * temp; in FindDCEigenValue()
292 phi += z[j] * temp; in FindDCEigenValue()
293 dphi += temp * temp; in FindDCEigenValue()
301 k1term = z[k1]*temp; in FindDCEigenValue()
302 dk1term = temp*temp; in FindDCEigenValue()
475 T temp = ( in FindDCEigenValue() local
637 dpsi += temp * temp; in FindDCEigenValue()
646 dphi += temp * temp; in FindDCEigenValue()
652 k1term = temp*z[k1]; in FindDCEigenValue()
[all …]
|
| /dports/science/votca/votca-2021.2-18560-gfbe18d971/xtp/xtp-2a31d70/src/libxtp/self_energy_evaluators/ |
| H A D | sigma_ppm.cc | 40 const double eta2 = opt_.eta * opt_.eta; in CalcCorrelationDiagElement()
54 Eigen::ArrayXd temp = frequency - rpa_.getRPAInputEnergies().array(); in CalcCorrelationDiagElement() local
55 temp.segment(0, lumo) += ppm_freq; in CalcCorrelationDiagElement()
56 temp.segment(lumo, levelsum - lumo) -= ppm_freq; in CalcCorrelationDiagElement()
57 Eigen::ArrayXd denom = temp.abs2() + eta2; in CalcCorrelationDiagElement()
58 sigma += fac * (Mmn2 * temp / denom).sum(); in CalcCorrelationDiagElement()
66 const double eta2 = opt_.eta * opt_.eta; in CalcCorrelationDiagElementDerivative()
81 temp.segment(0, lumo) += ppm_freq; in CalcCorrelationDiagElementDerivative()
82 temp.segment(lumo, levelsum - lumo) -= ppm_freq; in CalcCorrelationDiagElementDerivative()
83 Eigen::ArrayXd denom = temp.abs2() + eta2; in CalcCorrelationDiagElementDerivative()
[all …]
|
| /dports/science/votca/votca-2021.2-18560-gfbe18d971/xtp/src/libxtp/self_energy_evaluators/ |
| H A D | sigma_ppm.cc | 40 const double eta2 = opt_.eta * opt_.eta; in CalcCorrelationDiagElement()
54 Eigen::ArrayXd temp = frequency - rpa_.getRPAInputEnergies().array(); in CalcCorrelationDiagElement() local
55 temp.segment(0, lumo) += ppm_freq; in CalcCorrelationDiagElement()
56 temp.segment(lumo, levelsum - lumo) -= ppm_freq; in CalcCorrelationDiagElement()
57 Eigen::ArrayXd denom = temp.abs2() + eta2; in CalcCorrelationDiagElement()
58 sigma += fac * (Mmn2 * temp / denom).sum(); in CalcCorrelationDiagElement()
66 const double eta2 = opt_.eta * opt_.eta; in CalcCorrelationDiagElementDerivative()
81 temp.segment(0, lumo) += ppm_freq; in CalcCorrelationDiagElementDerivative()
82 temp.segment(lumo, levelsum - lumo) -= ppm_freq; in CalcCorrelationDiagElementDerivative()
83 Eigen::ArrayXd denom = temp.abs2() + eta2; in CalcCorrelationDiagElementDerivative()
[all …]
|
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | ewald_dipole.f90 | 32 REAL(DP) :: charge, eta, arg, upperbound, temp local
54 eta = 2.9d0
56 eta = eta - 0.1d0
62 upperbound = 2.d0 * charge**2 * SQRT(2.d0 * eta / tpi) &
71 expcoeff = EXP( - gg(ng) * tpiba2 * 0.25d0 / eta )
101 rmax = 4.d0 / SQRT(eta) / alat
120 temp= dipole(ityp(na)) * ( 3.d0 / rr**3 * qe_erfc( SQRT(eta) * rr) &
121 + (6.d0 * SQRT(eta/pi) * 1.d0 / rr*2 + 4.d0 * SQRT(eta**3/pi)) &
122 * EXP(-eta* rr**2))
126 + temp*r(alpha,nr)*r(beta,nr) / rr**2
[all …]
|