Searched defs:newdxx_r (Results 1 – 1 of 1) sorted by relevance
| /dports/science/quantum-espresso/q-e-qe-6.7.0/PW/src/ |
| H A D | us_exx.f90 | 671 SUBROUTINE newdxx_r( dfftt, vr, becphi, deexx ) subroutine
688 TYPE(fft_type_descriptor), INTENT(IN) :: dfftt
690 COMPLEX(DP), INTENT(IN) :: vr(:)
692 COMPLEX(DP), INTENT(IN) :: becphi(nkb)
694 COMPLEX(DP), INTENT(INOUT) :: deexx(nkb)
699 INTEGER :: ia, ih, jh, ir, nt
700 INTEGER :: mbia
701 INTEGER :: ikb, jkb, ijkb0
702 REAL(DP) :: domega
703 COMPLEX(DP) :: aux
|