Searched refs:massfac (Results 1 – 4 of 4) sorted by relevance
/dports/science/quantum-espresso/q-e-qe-6.7.0/EPW/src/ |
H A D | rotate.f90 | 110 REAL(KIND = DP) :: massfac local 143 massfac = 1.d0 / DSQRT(amass(ityp(na)) * amass(ityp(nb))) 145 dynq(3 * (na - 1) + 1:3 * na, 3 * (nb - 1) + 1:3 * nb, iq_first) * massfac 257 massfac = 1.d0 / DSQRT(amass(ityp(na)) * amass(ityp(nb))) 259 dynq(3 * (na - 1) + 1:3 * na, 3 * (nb - 1) + 1:3 * nb, nqc) * massfac 354 REAL(KIND = DP) :: massfac local 376 massfac = DSQRT(amass(ityp(na))) 377 cz1(mu, :) = cz1(mu, :) / massfac 378 cz2(mu, :) = cz2(mu, :) * massfac 379 cz2t(mu, :) = cz2t(mu, :) / massfac
|
H A D | dynmat_asr.f90 | 157 REAL(KIND = DP) :: massfac local 634 massfac = 1.d0 / DSQRT(amass(ityp(na)) * amass(ityp(nb))) 636 dynq(3 * (na - 1) + 1:3 * na, 3 * (nb - 1) + 1:3 * nb, current_iq) * massfac
|
H A D | wan2bloch.f90 | 344 REAL(KIND = DP) :: massfac local 407 massfac = 1.d0 / DSQRT(amass(ityp(na)) * amass(ityp(nb)) ) 410 chf(3 * (na - 1) + 1:3 * na, 3 * (nb - 1) + 1:3 * nb) * massfac 531 REAL(KIND = DP) :: massfac local 663 massfac = 1.d0 / DSQRT(amass(ityp(na)) * amass(ityp(nb))) 666 chf(3 * (na - 1) + 1:3 * na, 3 * (nb - 1) + 1:3 * nb) * massfac
|
/dports/graphics/blender/blender-2.91.0/source/blender/blenkernel/intern/ |
H A D | particle_system.c | 1686 float massfac; member 1703 pfr->massfac = psys[i]->part->mass / pfr->mass; in sph_evaluate_func() 1746 q = (1.f - dist / pfr->h) * pfr->massfac; in sph_density_accum_cb()
|