Home
last modified time | relevance | path

Searched refs:fac2 (Results 1 – 25 of 435) sorted by relevance

12345678910>>...18

/dports/science/nwchem-data/nwchem-7.0.2-release/src/NWints/ecp/
H A Decp_t1_Q1pow.F28 & 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 Decp_t1_Q3pow.F28 & 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 Decp_t1_Q3asy.F25 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 Decp_bess_pow.f28 & 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 Decp_t1_Q1pow.F28 & 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 Decp_t1_Q3pow.F28 & 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 Decp_t1_Q3asy.F25 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 Decp_bess_pow.f28 & 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 Dabsp_uf.f9048 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 Dabsp3D.f9035 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 Dabsp_tp.f9054 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 Dtwocen.f1 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 Dpltaxs.f24 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 Dparams.cpp207 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 Dparams1.cpp225 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 Dparams1a.cpp229 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 Dscalar_operations.hpp50 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 Dabsp.f9050 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 Dt-fmpz_mod_polyxx.cpp231 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 Dt-fmpz_mod_polyxx.cpp231 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 Dt-fmpz_mod_polyxx.cpp230 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 Ddenom.cc41 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 Dfactor_no_trial.c49 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 Dfactor_no_trial.c49 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 Dfactor_no_trial.c49 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()

12345678910>>...18