Home
last modified time | relevance | path

Searched refs:pfac (Results 1 – 25 of 94) sorted by relevance

1234

/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/shg_int/
H A Ds_contract_shg.F198 dsr_int(1) = prefac*(20.0_dp*pfac + 8.0_dp*pfac**2*rab2)
237 dsr_int(1) = 2520.0_dp*pfac + 3024.0_dp*pfac**2*rab2
241 dsr_int(2) = 3024.0_dp*pfac**2 + 1728.0_dp*pfac**3*rab2
244 dsr_int(3) = 1728.0_dp*pfac**3 + 384.0_dp*pfac**4*rab2
269 dsr_int(1) = 34650.0_dp*pfac + 55440.0_dp*pfac**2*rab2
423 dsr_int(1) = prefac*(20.0_dp*pfac + 8.0_dp*pfac**2*rab2)
462 dsr_int(1) = 2520.0_dp*pfac + 3024.0_dp*pfac**2*rab2
466 dsr_int(2) = 3024.0_dp*pfac**2 + 1728.0_dp*pfac**3*rab2
469 dsr_int(3) = 1728.0_dp*pfac**3 + 384.0_dp*pfac**4*rab2
494 dsr_int(1) = 34650.0_dp*pfac + 55440.0_dp*pfac**2*rab2
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/shg_int/
H A Ds_contract_shg.F198 dsr_int(1) = prefac*(20.0_dp*pfac + 8.0_dp*pfac**2*rab2)
237 dsr_int(1) = 2520.0_dp*pfac + 3024.0_dp*pfac**2*rab2
241 dsr_int(2) = 3024.0_dp*pfac**2 + 1728.0_dp*pfac**3*rab2
244 dsr_int(3) = 1728.0_dp*pfac**3 + 384.0_dp*pfac**4*rab2
269 dsr_int(1) = 34650.0_dp*pfac + 55440.0_dp*pfac**2*rab2
423 dsr_int(1) = prefac*(20.0_dp*pfac + 8.0_dp*pfac**2*rab2)
462 dsr_int(1) = 2520.0_dp*pfac + 3024.0_dp*pfac**2*rab2
466 dsr_int(2) = 3024.0_dp*pfac**2 + 1728.0_dp*pfac**3*rab2
469 dsr_int(3) = 1728.0_dp*pfac**3 + 384.0_dp*pfac**4*rab2
494 dsr_int(1) = 34650.0_dp*pfac + 55440.0_dp*pfac**2*rab2
[all …]
/dports/math/flint2/flint-2.8.4/nmod_mpoly_factor/
H A Dirred_smprime_zassenhaus.c24 const nmod_mpolyv_t pfac, in _try_lift() argument
36 FLINT_ASSERT(pfac->length > 1); in _try_lift()
46 for (i = 0; i < pfac->length; i++) in _try_lift()
68 qfac->length = pfac->length; in _try_lift()
157 nmod_mpolyv_init(pfac, ctx); in nmod_mpoly_factor_irred_smprime_zassenhaus()
221 pfac->length = F->length; in nmod_mpoly_factor_irred_smprime_zassenhaus()
225 nmod_mpoly_make_monic(pfac->coeffs + i, pfac->coeffs + i, ctx); in nmod_mpoly_factor_irred_smprime_zassenhaus()
244 if (pfac->length < 2) in nmod_mpoly_factor_irred_smprime_zassenhaus()
266 if (pfac->length == 2) in nmod_mpoly_factor_irred_smprime_zassenhaus()
277 len = pfac->length; in nmod_mpoly_factor_irred_smprime_zassenhaus()
[all …]
/dports/math/flint2/flint-2.8.4/fmpz_mod_mpoly_factor/
H A Dirred_smprime_zassenhaus.c23 const fmpz_mod_mpolyv_t pfac, in _try_lift() argument
35 FLINT_ASSERT(pfac->length > 1); in _try_lift()
45 for (i = 0; i < pfac->length; i++) in _try_lift()
67 qfac->length = pfac->length; in _try_lift()
68 for (i = 0; i < pfac->length; i++) in _try_lift()
156 fmpz_mod_mpolyv_init(pfac, ctx); in fmpz_mod_mpoly_factor_irred_smprime_zassenhaus()
220 pfac->length = F->length; in fmpz_mod_mpoly_factor_irred_smprime_zassenhaus()
224 fmpz_mod_mpoly_make_monic(pfac->coeffs + i, pfac->coeffs + i, ctx); in fmpz_mod_mpoly_factor_irred_smprime_zassenhaus()
243 if (pfac->length < 2) in fmpz_mod_mpoly_factor_irred_smprime_zassenhaus()
265 if (pfac->length == 2) in fmpz_mod_mpoly_factor_irred_smprime_zassenhaus()
[all …]
/dports/math/flint2/flint-2.8.4/fq_zech_mpoly_factor/
H A Dirred_smprime_zassenhaus.c23 const fq_zech_mpolyv_t pfac, in _try_lift() argument
36 FLINT_ASSERT(pfac->length > 1); in _try_lift()
47 for (i = 0; i < pfac->length; i++) in _try_lift()
69 qfac->length = pfac->length; in _try_lift()
70 for (i = 0; i < pfac->length; i++) in _try_lift()
164 fq_zech_mpolyv_init(pfac, ctx); in fq_zech_mpoly_factor_irred_smprime_zassenhaus()
230 pfac->length = F->length; in fq_zech_mpoly_factor_irred_smprime_zassenhaus()
235 fq_zech_mpoly_make_monic(pfac->coeffs + i, pfac->coeffs + i, ctx); in fq_zech_mpoly_factor_irred_smprime_zassenhaus()
250 if (pfac->length < 2) in fq_zech_mpoly_factor_irred_smprime_zassenhaus()
270 if (pfac->length == 2) in fq_zech_mpoly_factor_irred_smprime_zassenhaus()
[all …]
/dports/math/flint2/flint-2.8.4/fq_nmod_mpoly_factor/
H A Dirred_smprime_zassenhaus.c24 const fq_nmod_mpolyv_t pfac, in _try_lift() argument
36 FLINT_ASSERT(pfac->length > 1); in _try_lift()
46 for (i = 0; i < pfac->length; i++) in _try_lift()
68 qfac->length = pfac->length; in _try_lift()
69 for (i = 0; i < pfac->length; i++) in _try_lift()
167 fq_nmod_mpolyv_init(pfac, ctx); in fq_nmod_mpoly_factor_irred_smprime_zassenhaus()
237 pfac->length = F->length; in fq_nmod_mpoly_factor_irred_smprime_zassenhaus()
242 fq_nmod_mpoly_make_monic(pfac->coeffs + i, pfac->coeffs + i, ctx); in fq_nmod_mpoly_factor_irred_smprime_zassenhaus()
261 if (pfac->length < 2) in fq_nmod_mpoly_factor_irred_smprime_zassenhaus()
282 if (pfac->length == 2) in fq_nmod_mpoly_factor_irred_smprime_zassenhaus()
[all …]
/dports/math/flint2/flint-2.8.4/fmpz_mpoly_factor/
H A Dirred_zassenhaus.c24 const fmpz_mpolyv_t pfac, in _try_lift() argument
36 FLINT_ASSERT(pfac->length > 1); in _try_lift()
46 for (i = 0; i < pfac->length; i++) in _try_lift()
68 qfac->length = pfac->length; in _try_lift()
69 for (i = 0; i < pfac->length; i++) in _try_lift()
158 fmpz_mpolyv_init(pfac, ctx); in fmpz_mpoly_factor_irred_zassenhaus()
227 pfac->length = F->length; in fmpz_mpoly_factor_irred_zassenhaus()
251 if (pfac->length < 2) in fmpz_mpoly_factor_irred_zassenhaus()
273 if (pfac->length == 2) in fmpz_mpoly_factor_irred_zassenhaus()
284 len = pfac->length; in fmpz_mpoly_factor_irred_zassenhaus()
[all …]
/dports/science/libint2/libint-2.7.1/export/fortran/
H A Dlibint_f.F90516 C1234*pfac*F(1, p1234)
520 C1234*pfac*F(2, p1234)
524 C1234*pfac*F(3, p1234)
528 C1234*pfac*F(4, p1234)
532 C1234*pfac*F(5, p1234)
536 C1234*pfac*F(6, p1234)
540 C1234*pfac*F(7, p1234)
544 C1234*pfac*F(8, p1234)
548 C1234*pfac*F(9, p1234)
552 C1234*pfac*F(10, p1234)
[all …]
H A Dtest-eri.cc246 double pfac = 2*pow(M_PI,2.5)*K1*K2/(gammap*gammaq*sqrt(gammap+gammaq)); in compute_eri_c() local
252 …eval[p0123]._aB_s___0__s___1___TwoPRep_s___0__s___1___Ab__up_0[0] = c1234*pfac*F[p0123*(am_tot + 1… in compute_eri_c()
255 …eval[p0123]._aB_s___0__s___1___TwoPRep_s___0__s___1___Ab__up_1[0] = c1234*pfac*F[p0123*(am_tot + 1… in compute_eri_c()
258 …eval[p0123]._aB_s___0__s___1___TwoPRep_s___0__s___1___Ab__up_2[0] = c1234*pfac*F[p0123*(am_tot + 1… in compute_eri_c()
261 …eval[p0123]._aB_s___0__s___1___TwoPRep_s___0__s___1___Ab__up_3[0] = c1234*pfac*F[p0123*(am_tot + 1… in compute_eri_c()
264 …eval[p0123]._aB_s___0__s___1___TwoPRep_s___0__s___1___Ab__up_4[0] = c1234*pfac*F[p0123*(am_tot + 1… in compute_eri_c()
267 …eval[p0123]._aB_s___0__s___1___TwoPRep_s___0__s___1___Ab__up_5[0] = c1234*pfac*F[p0123*(am_tot + 1… in compute_eri_c()
270 …eval[p0123]._aB_s___0__s___1___TwoPRep_s___0__s___1___Ab__up_6[0] = c1234*pfac*F[p0123*(am_tot + 1… in compute_eri_c()
273 …eval[p0123]._aB_s___0__s___1___TwoPRep_s___0__s___1___Ab__up_7[0] = c1234*pfac*F[p0123*(am_tot + 1… in compute_eri_c()
276 …eval[p0123]._aB_s___0__s___1___TwoPRep_s___0__s___1___Ab__up_8[0] = c1234*pfac*F[p0123*(am_tot + 1… in compute_eri_c()
[all …]
/dports/science/libint2/libint-2.7.1/src/bin/test_eri/
H A Dprep_libint2.h371 pfac *= c0 * c1 * c2 * c3;
381 *ssss_ptr = *ssss_ptr * pfac;
389 *ssss_ptr = pfac*F[l];
698 pfac *= c0 * c1 * c2 * c3;
706 erieval->LIBINT_T_SS_EREP_SS(0)[v] = pfac*F[0];
709 erieval->LIBINT_T_SS_EREP_SS(1)[v] = pfac*F[1];
712 erieval->LIBINT_T_SS_EREP_SS(2)[v] = pfac*F[2];
715 erieval->LIBINT_T_SS_EREP_SS(3)[v] = pfac*F[3];
718 erieval->LIBINT_T_SS_EREP_SS(4)[v] = pfac*F[4];
721 erieval->LIBINT_T_SS_EREP_SS(5)[v] = pfac*F[5];
[all …]
/dports/science/bagel/bagel-1.2.2/src/integral/libint/
H A Dlibint.cc352 pfac *= c0 * c1 * c2 * c3; in Libint()
357 erieval->LIBINT_T_SS_EREP_SS(0)[0] = pfac*F[0]; in Libint()
360 erieval->LIBINT_T_SS_EREP_SS(1)[0] = pfac*F[1]; in Libint()
363 erieval->LIBINT_T_SS_EREP_SS(2)[0] = pfac*F[2]; in Libint()
366 erieval->LIBINT_T_SS_EREP_SS(3)[0] = pfac*F[3]; in Libint()
369 erieval->LIBINT_T_SS_EREP_SS(4)[0] = pfac*F[4]; in Libint()
372 erieval->LIBINT_T_SS_EREP_SS(5)[0] = pfac*F[5]; in Libint()
375 erieval->LIBINT_T_SS_EREP_SS(6)[0] = pfac*F[6]; in Libint()
378 erieval->LIBINT_T_SS_EREP_SS(7)[0] = pfac*F[7]; in Libint()
381 erieval->LIBINT_T_SS_EREP_SS(8)[0] = pfac*F[8]; in Libint()
[all …]
H A Dglibint.cc397 pfac *= c0 * c1 * c2 * c3; in GLibint()
403 erieval->LIBINT_T_SS_EREP_SS(0)[0] = pfac*F[0]; in GLibint()
406 erieval->LIBINT_T_SS_EREP_SS(1)[0] = pfac*F[1]; in GLibint()
409 erieval->LIBINT_T_SS_EREP_SS(2)[0] = pfac*F[2]; in GLibint()
412 erieval->LIBINT_T_SS_EREP_SS(3)[0] = pfac*F[3]; in GLibint()
415 erieval->LIBINT_T_SS_EREP_SS(4)[0] = pfac*F[4]; in GLibint()
418 erieval->LIBINT_T_SS_EREP_SS(5)[0] = pfac*F[5]; in GLibint()
421 erieval->LIBINT_T_SS_EREP_SS(6)[0] = pfac*F[6]; in GLibint()
424 erieval->LIBINT_T_SS_EREP_SS(7)[0] = pfac*F[7]; in GLibint()
427 erieval->LIBINT_T_SS_EREP_SS(8)[0] = pfac*F[8]; in GLibint()
[all …]
/dports/devel/R-cran-sfsmisc/sfsmisc/R/
H A Dprime-numbers-fn.R123 nP <- length(pfac <- pr[Dp]) # all the small prime factors functionVar
131 Ppf <- prod(pfac)
133 Dp <- nn %% pfac == 0
136 Ppf <- prod(pfac[Dp])
138 pfac <- c(pfac,nn)
143 res[[i]] <- cbind(p = pfac, m = m.pr)
379 pfac <- function(n, nn = 0) function
382 pfac(n, fac(n))
385 else c(nn, pfac(n/nn))
/dports/finance/R-cran-plm/plm/inst/tests/
H A Dtest_pseries_subsetting.R78 pfac <- pGrunfeld$fac globalVar
113 names(fac) <- names(pfac)
121 pfac[1, drop = TRUE] # only level "a" should be left
122 pfac[1:3][drop = TRUE] # only level "a", "b", "c" should be left
127 pfac["nonExist"] # should be NA and levels "a" to "d"
130 pfac["nonExist"][drop = TRUE] # should be NA and no level left
/dports/biology/mafft/mafft-7.267-without-extensions/core/
H A DDalignmm.c1360 pfac = 0.0; in calcpfac_gap_noidatend()
1422 return( pfac ); in calcpfac_gap_noidatend()
1454 pfac = 0.0; in calcpfac_gap_noidatend()
1516 return( pfac ); in calcpfac_gap_noidatend()
1554 pfac = 0.0; in calcpfac_gap_incomplete()
1621 return( pfac ); in calcpfac_gap_incomplete()
1635 pfac = 0.0; in calcpfac_gapex()
1773 pfac = 0.0; in calcpfac_gapex_noidatend()
1822 pfac = 0.0; in calcpfac_gapex_noidatend()
4088 pfac = 0.0; in D__align()
[all …]
/dports/science/libint2/libint-2.7.1/tests/unit/
H A Dc-api.c38 double K1, K2, pfac; in _compute_eri() local
111 pfac = 2*pow(M_PI,2.5)*K1*K2/(gammap*gammaq*sqrt(gammap+gammaq)); in _compute_eri()
121 erieval->LIBINT_T_SS_EREP_SS(0)[0] = pfac*F[0]; in _compute_eri()
122 erieval->LIBINT_T_SS_EREP_SS(1)[0] = pfac*F[1]; in _compute_eri()
123 erieval->LIBINT_T_SS_EREP_SS(2)[0] = pfac*F[2]; in _compute_eri()
124 erieval->LIBINT_T_SS_EREP_SS(3)[0] = pfac*F[3]; in _compute_eri()
125 erieval->LIBINT_T_SS_EREP_SS(4)[0] = pfac*F[4]; in _compute_eri()
/dports/science/afni/afni-AFNI_21.3.16/src/
H A Dthd_fitter.c422 if( pfac == NULL ){ in THD_deconvolve_multipen()
435 qfac = pfac ; in THD_deconvolve_multipen()
540 if( qfac != pfac ) free((void *)qfac) ; in THD_deconvolve_multipen()
559 floatvec **fvv , *fv=NULL ; float pfac=penfac ; in THD_deconvolve() local
565 if( pfac == -666.0f || pfac == 0.0f ){ in THD_deconvolve()
629 float pfac[NPFAC] , pres[NPFAC] , psiz[NPFAC] ; in THD_deconvolve_autopen() local
637 fillerup( -0.01f , -10.0f , NPFAC , pfac ) ; in THD_deconvolve_autopen()
693 if( penfac_used != NULL ) *penfac_used = pfac[ipk] ; in THD_deconvolve_autopen()
701 pbot = (ipk > 0) ? 0.8f*pfac[ipk-1] : 0.5f*pfac[0] ; in THD_deconvolve_autopen()
702 ptop = (ipk < NPFAC-1) ? 1.0f*pfac[ipk+1] : 2.0f*pfac[NPFAC-1] ; in THD_deconvolve_autopen()
[all …]
/dports/devel/caf/actor-framework-0.18.5/libcaf_io/caf/io/
H A Dbroker_servant.hpp64 auto pfac = self->proxy_registry_ptr(); in invoke_mailbox_element_impl() local
65 if (pfac) in invoke_mailbox_element_impl()
66 ctx->proxy_registry_ptr(pfac); in invoke_mailbox_element_impl()
68 if (pfac) in invoke_mailbox_element_impl()
/dports/science/libint2/libint-2.7.1/doc/progman/
H A Dlstusecpp.cc109 double pfac = 2*pow(M_PI,2.5)*K1*K2/(gammap*gammaq*sqrt(gammap+gammaq)); in compute_eri() local
119 erieval.LIBINT_T_SS_EREP_SS(0)[0] = pfac*F[0]; in compute_eri()
120 erieval.LIBINT_T_SS_EREP_SS(1)[0] = pfac*F[1]; in compute_eri()
121 erieval.LIBINT_T_SS_EREP_SS(2)[0] = pfac*F[2]; in compute_eri()
122 erieval.LIBINT_T_SS_EREP_SS(3)[0] = pfac*F[3]; in compute_eri()
123 erieval.LIBINT_T_SS_EREP_SS(4)[0] = pfac*F[4]; in compute_eri()
/dports/games/wolfpack/empire-4.4.1/src/lib/commands/
H A Dnati.c48 double pfac; in c_nation() local
90 pfac = 0.0; in c_nation()
92 pfac = (natp->nat_level[NAT_TLEV] + 100.0) / in c_nation()
94 pr(" Plague factor : %6.2f%%\n", pfac); in c_nation()
/dports/graphics/raster3d/Raster3D_3.0-7/
H A Dqinp.f64 real pfac local
134 pfac = persp(zq)
135 xq = xq * pfac
136 yq = yq * pfac
137 zq = zq * pfac
138 radlim = radlim * pfac
/dports/science/mpqc/mpqc-2.3.1/src/lib/chemistry/qc/cints/
H A Deri_quartet_data.h82 double pfac = 2.0*sqrt(rho*M_1_PI)*scale*pair12->ovlp*pair34->ovlp*pfac_norm; in eri_quartet_data_() local
100 Data->F[0] = fjttable[0]*pfac; in eri_quartet_data_()
113 Data->F[i] = oo2np1[i]*pfac; in eri_quartet_data_()
118 Data->F[i] = fjttable[i]*pfac; in eri_quartet_data_()
/dports/science/code_saturne/code_saturne-7.1.0/src/alge/
H A Dcs_gradient.c1345 cs_real_t pfac in _initialize_scalar_gradient() local
1509 cs_real_t pfac, vecfac; in _compute_cell_cocg_it() local
1542 pfac = -0.5*dofij[f_id][i]; in _compute_cell_cocg_it()
1823 cs_real_t pfac in _iterative_scalar_gradient() local
1933 cs_real_t pfac in _iterative_scalar_gradient() local
2831 cs_real_t pfac in _lsq_scalar_gradient() local
3354 cs_real_t pfac in _reconstruct_scalar_gradient() local
3817 rhsv[ll] += dsij[ll] * pfac; in _lsq_scalar_b_face_val_phyd()
4148 pfac += in _fv_vtx_based_scalar_gradient()
5105 pfac -= pvar[c_id][i]; in _reconstruct_vector_gradient()
[all …]
/dports/science/gromacs/gromacs-2021.4/src/gromacs/listed_forces/
H A Dorires.cpp396 real edt, edt_1, invn, pfac, r2, invr, corrfac, wsv2, sw, dev; in calc_orires_dev() local
484 pfac = ip[type].orires.c * invr * invr * 3; in calc_orires_dev()
487 pfac *= invr; in calc_orires_dev()
490 Dinsl[0] = pfac * (2 * r[0] * r[0] + r[1] * r[1] - r2); in calc_orires_dev()
491 Dinsl[1] = pfac * (2 * r[0] * r[1]); in calc_orires_dev()
492 Dinsl[2] = pfac * (2 * r[0] * r[2]); in calc_orires_dev()
493 Dinsl[3] = pfac * (2 * r[1] * r[1] + r[0] * r[0] - r2); in calc_orires_dev()
494 Dinsl[4] = pfac * (2 * r[1] * r[2]); in calc_orires_dev()
660 real r2, invr, invr2, fc, smooth_fc, dev, devins, pfac; in orires() local
725 pfac = fc * ip[type].orires.c * invr2; in orires()
[all …]
/dports/math/ccmath/ccmath-2.2.1/fft/test/
H A Dtpfac.c21 n=pfac(ns,kk,'e');} in main()
23 n=pfac(ns,kk,'o');} in main()

1234