scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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:
dalcorso 2014-04-03 16:42:37 +00:00
parent b09d34045e
commit 8921521126
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
PHonon/PH/phq_init.f90
View File

@ -112,7 +112,6 @@ SUBROUTINE phq_init()
DO nt = 1, ntyp
!
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) )
ELSE
CALL setlocq( xq, rgrid(nt)%mesh, msh(nt), rgrid(nt)%rab, rgrid(nt)%r,&