Searched refs:nap_jcar (Results 1 – 2 of 2) sorted by relevance
/dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
H A D | dynmat_hub_scf.f90 | 78 na_icar, nap_jcar, m1, m2, imode, jmode, ik, ikk, ikq, ipert, nrec1, & local 171 nap_jcar = 3*(nap-1)+jcar 183 dyn_orth_cart (nap_jcar,na_icar) = dyn_orth_cart (nap_jcar,na_icar) & 377 DO nap_jcar = 1, 3*nat 380 * dyn_orth_cart(nap_jcar,na_icar) & 381 * CONJG(u(nap_jcar,nu_i0+ipert))
|
H A D | write_hub.f90 | 38 nap_jcar, nap, na_icar, jcar, icar, nb, imode local
|