/dports/science/libint2/libint-2.7.1/tests/unit/ |
H A D | c-api.c | 46 gammap = alpha1 + alpha2; in _compute_eri() 47 Px = (alpha1*A[0] + alpha2*B[0])/gammap; in _compute_eri() 48 Py = (alpha1*A[1] + alpha2*B[1])/gammap; in _compute_eri() 66 erieval->oo2z[0] = 0.5/gammap; in _compute_eri() 69 gammapq = gammap*gammaq/(gammap+gammaq); in _compute_eri() 95 Wx = (gammap*Px + gammaq*Qx)/(gammap+gammaq); in _compute_eri() 96 Wy = (gammap*Py + gammaq*Qy)/(gammap+gammaq); in _compute_eri() 97 Wz = (gammap*Pz + gammaq*Qz)/(gammap+gammaq); in _compute_eri() 106 erieval->roz[0] = gammapq/gammap; in _compute_eri() 109 K1 = exp(-alpha1*alpha2*AB2/gammap); in _compute_eri() [all …]
|
/dports/science/libint2/libint-2.7.1/doc/progman/ |
H A D | lstusecpp.cc | 44 const double gammap = alpha1 + alpha2; in compute_eri() local 45 const double Px = (alpha1*A[0] + alpha2*B[0])/gammap; in compute_eri() 64 erieval.oo2z[0] = 0.5/gammap; in compute_eri() 67 const double gammapq = gammap*gammaq/(gammap+gammaq); in compute_eri() 93 const double Wx = (gammap*Px + gammaq*Qx)/(gammap+gammaq); in compute_eri() 94 const double Wy = (gammap*Py + gammaq*Qy)/(gammap+gammaq); in compute_eri() 95 const double Wz = (gammap*Pz + gammaq*Qz)/(gammap+gammaq); in compute_eri() 103 erieval.oo2ze[0] = 0.5/(gammap+gammaq); in compute_eri() 104 erieval.roz[0] = gammapq/gammap; in compute_eri() 107 double K1 = exp(-alpha1*alpha2*AB2/gammap); in compute_eri() [all …]
|
/dports/science/libint2/libint-2.7.1/export/fortran/ |
H A D | test-eri.cc | 45 double gammap = alpha1_ + alpha2_; in compute_eri_c() local 97 erieval[p0123].oo2z[0] = 0.5/gammap; in compute_eri_c() 100 double gammapq = gammap*gammaq/(gammap+gammaq); in compute_eri_c() 157 double Wx = (gammap*Px + gammaq*Qx)/(gammap+gammaq); in compute_eri_c() 158 double Wy = (gammap*Py + gammaq*Qy)/(gammap+gammaq); in compute_eri_c() 159 double Wz = (gammap*Pz + gammaq*Qz)/(gammap+gammaq); in compute_eri_c() 190 erieval[p0123].alpha1_rho_over_zeta2[0] = alpha1_*gammapq/(gammap*gammap); in compute_eri_c() 193 erieval[p0123].alpha2_rho_over_zeta2[0] = alpha2_*gammapq/(gammap*gammap); in compute_eri_c() 246 double pfac = 2*pow(M_PI,2.5)*K1*K2/(gammap*gammaq*sqrt(gammap+gammaq)); in compute_eri_c() 387 double gammap = alpha1_ + alpha2_; in test_eri_c_f() local [all …]
|
H A D | libint_f.F90 | 332 gammap = alpha1_ + alpha2_ 333 P = (alpha1_*A + alpha2_*B)/gammap 375 erieval(p1234)%oo2z(1) = 0.5_dp/gammap 378 gammapq = gammap*gammaq/(gammap + gammaq) 425 W = (gammap*P + gammaq*Q)/(gammap + gammaq) 450 erieval(p1234)%roz(1) = gammapq/gammap 457 erieval(p1234)%alpha1_rho_over_zeta2(1) = alpha1_*gammapq/(gammap*gammap) 460 erieval(p1234)%alpha2_rho_over_zeta2(1) = alpha2_*gammapq/(gammap*gammap) 480 rhop = alpha1_*alpha2_/gammap 507 K1 = exp(-alpha1_*alpha2_*AB2/gammap) [all …]
|
/dports/science/libint2/libint-2.7.1/src/bin/test_eri/ |
H A D | prep_libint2.h | 280 erieval->zoe[v] = gammap*oogammaq; 318 erieval->alpha1_rho_over_zeta2[v] = alpha0 * gammapq / (gammap * gammap); 321 erieval->alpha2_rho_over_zeta2[v] = alpha1 * gammapq / (gammap * gammap); 503 const double gammapq = gammap * gammaq / (gammap + gammaq); 644 erieval->alpha1_rho_over_zeta2[v] = alpha0 * gammapq / (gammap * gammap); 647 erieval->alpha2_rho_over_zeta2[v] = alpha1 * gammapq / (gammap * gammap); 696 double pfac = two_times_M_PI_to_25 * K1 * K2 / (gammap * gammaq * sqrt(gammap 868 const double gammapq = gammap * gammaq / (gammap + gammaq); 1000 erieval->alpha1_rho_over_zeta2[v] = alpha0 * gammapq / (gammap * gammap); 1003 erieval->alpha2_rho_over_zeta2[v] = alpha1 * gammapq / (gammap * gammap); [all …]
|
H A D | eri.h | 133 const LIBINT2_REF_REALTYPE gammap = alpha1 + alpha2; in eri() local 134 const LIBINT2_REF_REALTYPE Px = (alpha1*A[0] + alpha2*B[0])/gammap; in eri() 135 const LIBINT2_REF_REALTYPE Py = (alpha1*A[1] + alpha2*B[1])/gammap; in eri() 136 const LIBINT2_REF_REALTYPE Pz = (alpha1*A[2] + alpha2*B[2])/gammap; in eri() 146 const LIBINT2_REF_REALTYPE gammapq = gammap*gammaq/(gammap+gammaq); in eri() 178 K1 = exp(-alpha1*alpha2*AB2/gammap); in eri() 182 pfac = 2*sqrt(m_pi_2 * m_pi_2 * m_pi)*K1*K2/(gammap*gammaq*sqrt(gammap+gammaq)); in eri() 295 * expmath.fac[lq] * pow(gammap, u1 - lp) * pow(gammaq, u2 - lq) in eri() 308 * expmath.fac[mq] * pow(gammap, v1 - mp) in eri() 322 * expmath.fac[nq] * pow(gammap, w1 - np) in eri()
|
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
H A D | dynmat_us.f90 | 66 TYPE (bec_type) :: gammap(3,3) local 86 CALL allocate_bec_type(nkb,nbnd, gammap(icart,jcart)) 162 CALL calbec ( npw, vkb, aux1, gammap(icart,jcart) ) 164 CALL beccopy (gammap(icart,jcart),gammap(jcart,icart), nkb, nbnd) 198 (CONJG(gammap(icart,jcart)%nc(ikb,is,ibnd))*& 201 gammap(icart,jcart)%nc(jkb, js, ibnd) + & 212 (CONJG(gammap(icart,jcart)%k(ikb,ibnd)) *& 215 gammap(icart,jcart)%k(jkb,ibnd) + & 264 CALL deallocate_bec_type(gammap(icart,jcart))
|
/dports/graphics/urt/urt-3.1b1_12/lib/ |
H A D | buildmap.c | 63 rle_pixel ** cmap, * gammap; local 147 gammap = (rle_pixel *)malloc( 256 * sizeof(rle_pixel) ); 149 gammap[i] = (int)(0.5 + 255.0 * pow( i / 255.0, gamma )); 152 cmap[i][j] = gammap[cmap[i][j]]; 153 free( gammap );
|
/dports/graphics/argyllcms/Argyll_V1.9.2/gamut/ |
H A D | afiles | 2 gammap.txt 10 gammap.c 11 gammap.h
|
H A D | gammap.h | 42 }; typedef struct _gammap gammap; typedef 55 gammap *new_gammap(
|
/dports/science/bagel/bagel-1.2.2/src/integral/libint/ |
H A D | glibint.cc | 161 const double gammap = alpha0 + alpha1; in GLibint() local 162 const double oogammap = 1.0 / gammap; in GLibint() 213 const double gammapq = gammap * gammaq / (gammap + gammaq); in GLibint() 303 erieval->zoe[0] = gammap*oogammaq; in GLibint() 333 erieval->oo2ze[0] = 0.5/(gammap+gammaq); in GLibint() 345 erieval->alpha1_rho_over_zeta2[0] = alpha0 * gammapq / (gammap * gammap); in GLibint() 348 erieval->alpha2_rho_over_zeta2[0] = alpha1 * gammapq / (gammap * gammap); in GLibint() 357 erieval->alpha1_over_zetapluseta[0] = alpha0 / (gammap + gammaq); in GLibint() 360 erieval->alpha2_over_zetapluseta[0] = alpha1 / (gammap + gammaq); in GLibint() 363 erieval->alpha3_over_zetapluseta[0] = alpha2 / (gammap + gammaq); in GLibint() [all …]
|
H A D | libint.cc | 162 const double gammap = alpha0 + alpha1; in Libint() local 163 const double oogammap = 1.0 / gammap; in Libint() 225 const double gammapq = gammap * gammaq / (gammap + gammaq); in Libint() 311 erieval->zoe[0] = gammap*oogammaq; in Libint() 341 erieval->oo2ze[0] = 0.5/(gammap+gammaq); in Libint() 351 … double pfac = 2 * pow(M_PI, 2.5) * K1 * K2 / (gammap * gammaq * sqrt(gammap + gammaq)); in Libint()
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | libint_wrapper.F | 165 REAL(KIND=dp) :: gammap, gammaq, gammapq, rhop, rhoq local 198 gammap = Zeta_A + Zeta_B 200 gammapq = gammap*gammaq/(gammap + gammaq) 201 libint%prv(1)%alpha1_rho_over_zeta2(1) = Zeta_A*gammapq/(gammap*gammap) 202 libint%prv(1)%alpha2_rho_over_zeta2(1) = Zeta_B*gammapq/(gammap*gammap) 204 libint%prv(1)%alpha1_over_zetapluseta(1) = Zeta_A/(gammap + gammaq) 205 libint%prv(1)%alpha2_over_zetapluseta(1) = Zeta_B/(gammap + gammaq) 206 libint%prv(1)%alpha4_over_zetapluseta(1) = Zeta_D/(gammap + gammaq) 208 rhop = Zeta_A*Zeta_B/gammap
|
/dports/science/cp2k-data/cp2k-7.1.0/src/ |
H A D | libint_wrapper.F | 166 REAL(KIND=dp) :: gammap, gammaq, gammapq, rhop, rhoq local 199 gammap = Zeta_A + Zeta_B 201 gammapq = gammap*gammaq/(gammap + gammaq) 202 libint%prv(1)%alpha1_rho_over_zeta2(1) = Zeta_A*gammapq/(gammap*gammap) 203 libint%prv(1)%alpha2_rho_over_zeta2(1) = Zeta_B*gammapq/(gammap*gammap) 205 libint%prv(1)%alpha1_over_zetapluseta(1) = Zeta_A/(gammap+gammaq) 206 libint%prv(1)%alpha2_over_zetapluseta(1) = Zeta_B/(gammap+gammaq) 207 libint%prv(1)%alpha4_over_zetapluseta(1) = Zeta_D/(gammap+gammaq) 209 rhop = Zeta_A*Zeta_B/gammap
|
/dports/math/flint2/flint-2.8.4/fmpz_mpoly_factor/ |
H A D | gcd_zippel.c | 65 mp_limb_t p, t, gammap; in fmpz_mpolyl_gcd_zippel() local 122 gammap = fmpz_get_nmod(gamma, ctxp->mod); in fmpz_mpolyl_gcd_zippel() 123 if (gammap == 0) in fmpz_mpolyl_gcd_zippel() 152 t = nmod_div(gammap, nmod_mpoly_leadcoeff(Gp, ctxp), ctxp->mod); in fmpz_mpolyl_gcd_zippel() 200 gammap = fmpz_get_nmod(gamma, ctxp->mod); in fmpz_mpolyl_gcd_zippel() 201 if (gammap == 0) in fmpz_mpolyl_gcd_zippel() 219 t = nmod_div(gammap, nmod_mpoly_leadcoeff(Gp, ctxp), ctxp->mod); in fmpz_mpolyl_gcd_zippel()
|
/dports/math/libxsmm/libxsmm-1.16.3/samples/deeplearning/gxm/include/ |
H A D | FusedConvBNImpl.hpp | 69 …np, TensorBuf* weightp, TensorBuf *hweightp, TensorBuf* midp, TensorBuf* gammap, TensorBuf* betap,… 76 …np, TensorBuf* weightp, TensorBuf* hweightp, TensorBuf* midp, TensorBuf* gammap, TensorBuf* betap,… in forwardPropagate() argument 81 forwardPropagate(inp, weightp, hweightp, midp, gammap, betap, gmeanp, gvarp, outp, 0); in forwardPropagate()
|
H A D | FusedBNormImpl.hpp | 68 …virtual void forwardPropagate(vector<TensorBuf *> inp, TensorBuf* gammap, TensorBuf* betap, Tensor… in forwardPropagate() argument 73 forwardPropagate(inp, gammap, betap, gmeanp, gvarp, outp, tid); in forwardPropagate()
|
/dports/math/e-antic/flint2-ae7ec89/fmpz_mpoly/ |
H A D | gcd_zippel.c | 117 mp_limb_t p, t, gammap; in fmpz_mpolyu_gcdm_zippel() local 166 gammap = fmpz_get_ui(gammapp); in fmpz_mpolyu_gcdm_zippel() 167 if (gammap == UWORD(0)) in fmpz_mpolyu_gcdm_zippel() 186 t = nmod_mul(t, gammap, ctxp->ffinfo->mod); in fmpz_mpolyu_gcdm_zippel() 217 gammap = fmpz_get_ui(gammapp); in fmpz_mpolyu_gcdm_zippel() 218 if (gammap == UWORD(0)) in fmpz_mpolyu_gcdm_zippel() 251 t = nmod_mul(t, gammap, ctxp->ffinfo->mod); in fmpz_mpolyu_gcdm_zippel()
|
/dports/math/py-sympy/sympy-1.9/sympy/physics/quantum/tests/ |
H A D | test_cg.py | 147 x, a, b, c, cp, alpha, beta, gamma, gammap = symbols( 160 …a)*CG(a, alpha, b, beta, cp, gammap), (alpha, -a, a), (beta, -b, b))) == KroneckerDelta(c, cp)*Kro… 161 …eta, c, gamma)*CG(a, alpha, b, beta, c, gammap), (alpha, -a, a), (beta, -b, b))) == KroneckerDelta… 165 …eta, 2, gamma)*CG(2, alpha, 1, beta, 2, gammap), (alpha, -2, 2), (beta, -1, 1))) == KroneckerDelta…
|
/dports/math/e-antic/e-antic-1.0.0-rc.13/libeantic/upstream/antic/fmpz_mpoly/ |
H A D | gcd_zippel.c | 117 mp_limb_t p, t, gammap; in fmpz_mpolyu_gcdm_zippel() local 166 gammap = fmpz_get_ui(gammapp); in fmpz_mpolyu_gcdm_zippel() 167 if (gammap == UWORD(0)) in fmpz_mpolyu_gcdm_zippel() 186 t = nmod_mul(t, gammap, ctxp->ffinfo->mod); in fmpz_mpolyu_gcdm_zippel() 217 gammap = fmpz_get_ui(gammapp); in fmpz_mpolyu_gcdm_zippel() 218 if (gammap == UWORD(0)) in fmpz_mpolyu_gcdm_zippel() 251 t = nmod_mul(t, gammap, ctxp->ffinfo->mod); in fmpz_mpolyu_gcdm_zippel()
|
/dports/science/dynare/dynare-4.6.4/tests/identification/LindeTrabandt/ |
H A D | LindeTrabandt2019_xfail.mod | 146 #gammap = pie^IOTA*PIEBAR^(1-IOTA); %indexation rule 147 %#gammap = PIEBAR; 186 s = OMEGAP*lam*y*vartheta^(OMEGAP/(OMEGAP-1))*mc + BETA*XIP*(gammap/pie(+1))^(OMEGAP/(1-OMEGAP))*s(… 189 f = lam*y*vartheta^(OMEGAP/(OMEGAP-1)) + BETA*XIP*(gammap/pie(+1))^(1/(1-OMEGAP))*f(+1); 192 a = PSI*(OMEGAP-1)*lam*y + BETA*XIP*(gammap/pie(+1))*a(+1); 207 delta1^(OMEGAP/(1-OMEGAP)) = (1-XIP)*ptilde^(OMEGAP/(1-OMEGAP)) + XIP*(gammap/pie*delta1(-1))^(OMEG… 210 delta2 = (1-XIP)*ptilde+XIP*gammap/pie*delta2(-1); 213 delta3^(1/(1-OMEGAP)) = (1-XIP)*ptilde^(1/(1-OMEGAP)) + XIP*(gammap/pie*delta3(-1))^(1/(1-OMEGAP));
|
/dports/science/tfel/tfel-3.4.0/mfront/tests/behaviours/ |
H A D | MonoCrystal_DD_CC.mfront | 78 real gammap[12]; 168 gammap[i] = dt * gamma0 * pow( ( abs(tau[i]) / tau_c[i] ), pn) * sgn_tau ; 176 if (abs(gammap[i]) > 0. ) { 177 inv_gammap[i] = 1.0 / gammap[i] ; 199 dgpdtau = pn * gammap[i] / tau[i] ; 265 real dgpdomegai=-pn * gammap[j] / tau_c[j] *dtaucjdomegai ;
|
H A D | MonoCrystal_DD_CC_LevenbergMarquardt.mfront | 76 real gammap[12]; 166 gammap[i] = dt * gamma0 * pow( ( abs(tau[i]) / tau_c[i] ), pn) * sgn_tau ; 174 if (abs(gammap[i]) > 0. ) { 175 inv_gammap[i] = 1.0 / gammap[i] ; 197 dgpdtau = pn * gammap[i] / tau[i] ; 263 real dgpdomegai=-pn * gammap[j] / tau_c[j] *dtaucjdomegai ;
|
/dports/science/tfel-edf/tfel-3.2.1/mfront/tests/behaviours/ |
H A D | MonoCrystal_DD_CC.mfront | 78 real gammap[12]; 168 gammap[i] = dt * gamma0 * pow( ( abs(tau[i]) / tau_c[i] ), pn) * sgn_tau ; 176 if (abs(gammap[i]) > 0. ) { 177 inv_gammap[i] = 1.0 / gammap[i] ; 199 dgpdtau = pn * gammap[i] / tau[i] ; 265 real dgpdomegai=-pn * gammap[j] / tau_c[j] *dtaucjdomegai ;
|
H A D | MonoCrystal_DD_CC_LevenbergMarquardt.mfront | 76 real gammap[12]; 166 gammap[i] = dt * gamma0 * pow( ( abs(tau[i]) / tau_c[i] ), pn) * sgn_tau ; 174 if (abs(gammap[i]) > 0. ) { 175 inv_gammap[i] = 1.0 / gammap[i] ; 197 dgpdtau = pn * gammap[i] / tau[i] ; 263 real dgpdomegai=-pn * gammap[j] / tau_c[j] *dtaucjdomegai ;
|