/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/ecp/ |
H A D | ecp_t1_Q1pow.F | 28 & tol,fac0,fac1,fac2,fac3 34 fac2 = one 37 fac2 = fac2+two 38 fac3 = fac3*fac1/fac2 41 fac2 = fac2+two 42 fac0 = fac1/fac2 61 fac2 = fac2+two 63 fac0 = fac1/(fac2*fac3)
|
H A D | ecp_t1_Q3pow.F | 28 & tol,fac0,fac1,fac2,fac3 34 fac2 = one 37 fac2 = fac2+two 38 fac3 = fac3*fac1/fac2 51 fac2 = fac2+two 52 fac0 = fac1/fac2 62 fac2 = fac2+two 64 fac0 = fac1/(fac2*fac3)
|
H A D | ecp_t1_Q3asy.F | 25 double precision x(n),xt(n),gamma(n),Q(n),tol,fac0,fac1,fac2,fac3 33 fac2 = -m 36 fac0 = fac1*fac2/fac3 41 fac2 = fac2 - one
|
H A D | ecp_bess_pow.f | 28 & tol,fac0,fac1,fac2,one,two 39 fac2 = 0.0d00 43 fac2 = fac2+two 44 fac0 = one/(fac1*fac2)
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/NWints/ecp/ |
H A D | ecp_t1_Q1pow.F | 28 & tol,fac0,fac1,fac2,fac3 local 34 fac2 = one 37 fac2 = fac2+two 38 fac3 = fac3*fac1/fac2 41 fac2 = fac2+two 42 fac0 = fac1/fac2 61 fac2 = fac2+two 63 fac0 = fac1/(fac2*fac3)
|
H A D | ecp_t1_Q3pow.F | 28 & tol,fac0,fac1,fac2,fac3 local 34 fac2 = one 37 fac2 = fac2+two 38 fac3 = fac3*fac1/fac2 51 fac2 = fac2+two 52 fac0 = fac1/fac2 62 fac2 = fac2+two 64 fac0 = fac1/(fac2*fac3)
|
H A D | ecp_t1_Q3asy.F | 25 double precision x(n),xt(n),gamma(n),Q(n),tol,fac0,fac1,fac2,fac3 local 33 fac2 = -m 36 fac0 = fac1*fac2/fac3 41 fac2 = fac2 - one
|
H A D | ecp_bess_pow.f | 28 & tol,fac0,fac1,fac2,one,two 39 fac2 = 0.0d00 43 fac2 = fac2+two 44 fac0 = one/(fac1*fac2)
|
/dports/science/berkeleygw/BGW-2.0.0/NonLinearOptics/ |
H A D | absp_uf.f90 | 48 real(DP) :: omega,fac,fac2,sum,sum1,sum2,pref local 82 fac2 = exp(-fac**2 / (2.d0 * eta**2)) 83 fac2 = fac2 / (sqrt(2.d0 * PI_D) * eta) 85 fac2 = (eta / PI_D) / (fac**2 + eta**2) 87 sum2 = sum2 + cs(ii,jj)*fac2*ryd & 89 sum = sum + fac2 * ryd * win%cstates(jj) 104 fac2 = -exp(-fac**2 / (2.d0 * eta**2)) 105 fac2 = fac2 / (sqrt(2.d0 * PI_D) * eta) 107 fac2 = -(eta / PI_D) / (fac**2 + eta**2) 109 sum2 = sum2 + cs(ii,jj)*fac2*ryd*win%cstates(jj) &
|
H A D | absp3D.f90 | 35 real(DP) :: omega,fac,fac2,sum,sum1,sum2,pref local 104 fac2 = exp(-fac**2 / (2.d0 * eta**2)) 105 fac2 = fac2 / (sqrt(2.d0 * PI_D) * eta) 109 fac2 = (eta / PI_D) / (fac**2 + eta**2) 112 sum2 = sum2 + cs(ii) * fac2 * fac4 * ryd 113 sum = sum + fac2 * fac4 * ryd 131 fac2 = -exp(-fac**2 / (2.d0 * eta**2)) 132 fac2 = fac2 / (sqrt(2.d0 * PI_D) * eta) 136 fac2 = (eta / PI_D) / (fac**2 + eta**2) 140 sum2 = sum2 + cs(ii) * fac2 * fac4 * ryd
|
H A D | absp_tp.f90 | 54 real(DP) :: omega,fac,fac2,sum2,pref 97 fac2 = exp(-fac**2 / (2.d0 * eta**2)) 98 fac2 = fac2 / (sqrt(2.d0 * PI_D) * eta) 100 fac2 = (eta / PI_D) / (fac**2 + eta**2) 117 sum2 = sum2 + cs(ii)*fac2*ryd / &
|
/dports/biology/molden/molden5.8/ |
H A D | twocen.f | 1 subroutine twocen(t2,fac1,strt,t,fac2,ijtyp) argument 8 h(2) = fac2*fac1*h(1) 10 h(3) = fac2*(fac1*h(2) - h(1)) 12 h(4) = fac2*(fac1*h(3) - 2.d0*h(2)) 14 h(5) = fac2*(fac1*h(4) - 3.d0*h(3)) 16 h(6) = fac2*(fac1*h(5) - 4.d0*h(4)) 18 h(7) = fac2*(fac1*h(6) - 5.d0*h(5)) 20 h(8) = fac2*(fac1*h(7) - 6.d0*h(6)) 22 h(9) = fac2*(fac1*h(8) - 7.d0*h(7))
|
/dports/cad/feappv/feappv-4.1i/plot/ |
H A D | pltaxs.f | 24 real*8 ct,fac1,fac2,fac3 local 47 fac2 = dd(2,m)*0.1d0 49 xx(1,3) = xx(1,2) - 3.d0*fac1 - fac2 - fac3 50 xx(2,3) = xx(2,2) - 3.d0*fac2 + fac1 + fac3 51 xx(3,3) = xx(3,2) - 3.d0*fac3 + fac1 + fac2 52 xx(1,4) = xx(1,2) - 3.d0*fac1 + fac2 + fac3 53 xx(2,4) = xx(2,2) - 3.d0*fac2 - fac1 - fac3 54 xx(3,4) = xx(3,2) - 3.d0*fac3 - fac1 - fac2
|
/dports/security/helib/HElib-1.3.1/misc/ |
H A D | params.cpp | 207 Vec<long> fac2; in main() local 209 fac2 = fac1; in main() 212 swap(fac2[i], fac2[i+1]); in main() 216 swap(fac2[i], fac2[i+1]); in main() 217 fac2[0] *= fac2[k-1]; in main() 218 fac2.SetLength(k-1); in main() 221 long k2 = fac2.length(); in main() 229 ordvec[0] = phi_N(fac2[0])/d; in main() 235 findGenerators(gens, ords, fac2[i], 1); in main() 251 crtvec[i] = (m/fac2[i]) * InvMod((m/fac2[i]) % fac2[i], fac2[i]); in main() [all …]
|
H A D | params1.cpp | 225 Vec<long> fac2; in main() local 227 fac2 = fac1; in main() 230 swap(fac2[i], fac2[i+1]); in main() 234 swap(fac2[i], fac2[i+1]); in main() 235 fac2[0] *= fac2[k-1]; in main() 236 fac2.SetLength(k-1); in main() 239 long k2 = fac2.length(); in main() 247 ordvec[0] = phi_N(fac2[0])/d; in main() 253 findGenerators(gens, ords, fac2[i], 1); in main() 269 crtvec[i] = (m/fac2[i]) * InvMod((m/fac2[i]) % fac2[i], fac2[i]); in main() [all …]
|
H A D | params1a.cpp | 229 Vec<long> fac2; in main() local 231 fac2 = fac1; in main() 234 swap(fac2[i], fac2[i+1]); in main() 238 swap(fac2[i], fac2[i+1]); in main() 239 fac2[0] *= fac2[k-1]; in main() 240 fac2.SetLength(k-1); in main() 243 long k2 = fac2.length(); in main() 251 ordvec[0] = phi_N(fac2[0])/d; in main() 257 findGenerators(gens, ords, fac2[i], 1); in main() 273 crtvec[i] = (m/fac2[i]) * InvMod((m/fac2[i]) % fac2[i], fac2[i]); in main() [all …]
|
/dports/math/viennacl/ViennaCL-1.7.1/viennacl/linalg/cuda/ |
H A D | scalar_operations.hpp | 50 NumericT alpha = *fac2; in as_kernel() 62 NumericT alpha = fac2; in as_kernel() 103 NumericT alpha = *fac2; in asbs_kernel() 124 NumericT alpha = fac2; in asbs_kernel() 145 NumericT alpha = *fac2; in asbs_kernel() 163 NumericT fac2, unsigned int options2, const NumericT * s2, in asbs_kernel() argument 166 NumericT alpha = fac2; in asbs_kernel() 226 NumericT alpha = *fac2; in asbs_s_kernel() 247 NumericT alpha = fac2; in asbs_s_kernel() 268 NumericT alpha = *fac2; in asbs_s_kernel() [all …]
|
/dports/science/berkeleygw/BGW-2.0.0/BSE/ |
H A D | absp.f90 | 50 real(DP) :: omega,fac,fac1,fac2,sum0,sum1,sum2,pref,domega local 129 fac2 = (xct%eta / PI_D) / (fac**2 + xct%eta**2) 131 fac2 = exp(-fac**2 / (2.d0 * xct%eta**2)) / (sqrt(2.d0 * PI_D) * xct%eta) 133 fac2 = voigt(fac, xct%sigma, xct%gamma) 136 sum2 = sum2 + cs(ii) * fac2 * ryd 137 sum0 = sum0 + fac2 157 fac2 = -(xct%eta / PI_D) / (fac**2 + xct%eta**2) 159 fac2 = -exp(-fac**2 / (2.d0 * xct%eta**2)) / (sqrt(2.d0 * PI_D) * xct%eta) 161 fac2 = -voigt(fac, xct%sigma, xct%gamma) 164 sum2 = sum2 + cs(ii) * fac2 * ryd
|
/dports/math/e-antic/flint2-ae7ec89/flintxx/test/ |
H A D | t-fmpz_mod_polyxx.cpp | 231 if(fac2.exp(0) != fac1.exp(0) || fac2.exp(1) != fac1.exp(0)) in equiv_fac() 233 return (fac1.p(0) == fac2.p(0) && fac1.p(1) == fac2.p(1)) in equiv_fac() 234 || (fac1.p(1) == fac2.p(0) && fac1.p(0) == fac2.p(1)); in equiv_fac() 236 if(fac1.size() != fac2.size()) in equiv_fac() 238 if(fac1.exp(0) == fac2.exp(0)) in equiv_fac() 240 && fac1.p(0) == fac2.p(0) in equiv_fac() 241 && fac1.p(1) == fac2.p(1); in equiv_fac() 245 && fac1.p(0) == fac2.p(1) in equiv_fac() 246 && fac1.p(1) == fac2.p(0); in equiv_fac() 270 fmpz_mod_poly_factorxx fac2;fac2 = fac;fac2.pow(2); in test_factoring() local [all …]
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/flintxx/test/ |
H A D | t-fmpz_mod_polyxx.cpp | 231 if(fac2.exp(0) != fac1.exp(0) || fac2.exp(1) != fac1.exp(0)) in equiv_fac() 233 return (fac1.p(0) == fac2.p(0) && fac1.p(1) == fac2.p(1)) in equiv_fac() 234 || (fac1.p(1) == fac2.p(0) && fac1.p(0) == fac2.p(1)); in equiv_fac() 236 if(fac1.size() != fac2.size()) in equiv_fac() 238 if(fac1.exp(0) == fac2.exp(0)) in equiv_fac() 240 && fac1.p(0) == fac2.p(0) in equiv_fac() 241 && fac1.p(1) == fac2.p(1); in equiv_fac() 245 && fac1.p(0) == fac2.p(1) in equiv_fac() 246 && fac1.p(1) == fac2.p(0); in equiv_fac() 270 fmpz_mod_poly_factorxx fac2;fac2 = fac;fac2.pow(2); in test_factoring() local [all …]
|
/dports/math/flint2/flint-2.8.4/flintxx/test/ |
H A D | t-fmpz_mod_polyxx.cpp | 230 if(fac2.exp(0) != fac1.exp(0) || fac2.exp(1) != fac1.exp(0)) in equiv_fac() 232 return (fac1.p(0) == fac2.p(0) && fac1.p(1) == fac2.p(1)) in equiv_fac() 233 || (fac1.p(1) == fac2.p(0) && fac1.p(0) == fac2.p(1)); in equiv_fac() 235 if(fac1.size() != fac2.size()) in equiv_fac() 237 if(fac1.exp(0) == fac2.exp(0)) in equiv_fac() 239 && fac1.p(0) == fac2.p(0) in equiv_fac() 240 && fac1.p(1) == fac2.p(1); in equiv_fac() 244 && fac1.p(0) == fac2.p(1) in equiv_fac() 245 && fac1.p(1) == fac2.p(0); in equiv_fac() 270 fmpz_mod_poly_factorxx fac2(M);fac2 = fac;fac2.pow(2); in test_factoring() local [all …]
|
/dports/science/bagel/bagel-1.2.2/src/smith/ |
H A D | denom.cc | 41 const int fac2 = is_same<DataType,double>::value ? 2 : 1; in Denom() local 47 dim_["xh"] = ndim2*fac2/nstates; in Denom() 111 const int fac2 = is_same<DataType,double>::value ? 2 : 1; in Denom_MSMR() local 117 denom_["xh"] = VectorB(ndim2*fac2); in Denom_MSMR() 125 shalf_["xh"] = make_shared<MatType>(ndim2*fac2, ndim2*fac2); in Denom_MSMR() 133 work_["xh"] = make_shared<MatType>(ndim2*fac2, ndim2*fac2); in Denom_MSMR() 162 shalf->add_diag(fac2); //.. making hole 1RDM in append() 210 shalf->element(i2, i1, i1, i2) += -fac2 * fac; in append() 287 shalf->add_block(fac2, 0, 0, nsq, nsq, work); in append() 335 num->add_block(fac2, 0, 0, nsq, nsq, work); in append() [all …]
|
/dports/math/e-antic/flint2-ae7ec89/fmpz_factor/ |
H A D | factor_no_trial.c | 49 fmpz_factor_t fac, fac2, fac3; in fmpz_factor_no_trial() local 82 fmpz_factor_init(fac2); in fmpz_factor_no_trial() 84 fmpz_factor_no_trial(fac2, fac->p + i); in fmpz_factor_no_trial() 86 _fmpz_factor_concat(fac3, fac2, exp*fac->exp[i]); in fmpz_factor_no_trial() 88 fmpz_factor_clear(fac2); in fmpz_factor_no_trial()
|
/dports/math/flint2/flint-2.8.4/fmpz_factor/ |
H A D | factor_no_trial.c | 49 fmpz_factor_t fac, fac2, fac3; in fmpz_factor_no_trial() local 82 fmpz_factor_init(fac2); in fmpz_factor_no_trial() 84 fmpz_factor_no_trial(fac2, fac->p + i); in fmpz_factor_no_trial() 86 _fmpz_factor_concat(fac3, fac2, exp*fac->exp[i]); in fmpz_factor_no_trial() 88 fmpz_factor_clear(fac2); in fmpz_factor_no_trial()
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/fmpz_factor/ |
H A D | factor_no_trial.c | 49 fmpz_factor_t fac, fac2, fac3; in fmpz_factor_no_trial() local 82 fmpz_factor_init(fac2); in fmpz_factor_no_trial() 84 fmpz_factor_no_trial(fac2, fac->p + i); in fmpz_factor_no_trial() 86 _fmpz_factor_concat(fac3, fac2, exp*fac->exp[i]); in fmpz_factor_no_trial() 88 fmpz_factor_clear(fac2); in fmpz_factor_no_trial()
|