Searched refs:dns_cart (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PHonon/PH/ |
| H A D | sym_dns_wrapper.f90 | 26 COMPLEX(DP), INTENT(INOUT) :: dns_cart(ldim,ldim,nspin,nat,3,nat) local
46 dns_cart(:,:,:,:,icart,na) * u(na_icart,imode)
72 dns_cart = (0.d0, 0.d0)
78 dns_cart(:,:,:,:,icart,na) = dns_cart(:,:,:,:,icart,na) + &
|