Searched refs:efe_ion (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/CPV/src/ |
| H A D | wannier.f90 | 176 REAL(DP) :: efe_elec, efe_ion, prefactor, e_tuned(3) variable
609 USE electric_field_module, ONLY : efe_elec, efe_ion, tt2, tt
643 efe_ion=0.d0
654 efe_ion=efe_ion+efx*ionx+efy*iony+efz*ionz
656 WRITE(28,'(f12.9,1x,f12.9,1x,f12.9,1x,f20.15,1x,f20.15)') efx, efy, efz, efe_elec,-efe_ion
660 efe_ion = 0.0_DP
662 enthal=enthal+efe_elec-efe_ion
|