mirror of https://gitlab.com/QEF/q-e.git
Cleanup.
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@10843 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
b09d34045e
commit
8921521126
|
@ -112,7 +112,6 @@ SUBROUTINE phq_init()
|
||||||
DO nt = 1, ntyp
|
DO nt = 1, ntyp
|
||||||
!
|
!
|
||||||
IF (upf(nt)%tcoulombp) then
|
IF (upf(nt)%tcoulombp) then
|
||||||
print *,"OBM msh(nt)",msh(nt)
|
|
||||||
CALL setlocq_coul ( xq, upf(nt)%zp, tpiba2, ngm, g, omega, vlocq(1,nt) )
|
CALL setlocq_coul ( xq, upf(nt)%zp, tpiba2, ngm, g, omega, vlocq(1,nt) )
|
||||||
ELSE
|
ELSE
|
||||||
CALL setlocq( xq, rgrid(nt)%mesh, msh(nt), rgrid(nt)%rab, rgrid(nt)%r,&
|
CALL setlocq( xq, rgrid(nt)%mesh, msh(nt), rgrid(nt)%rab, rgrid(nt)%r,&
|
||||||
|
|
Loading…
Reference in New Issue