diff --git a/PHonon/PH/phq_init.f90 b/PHonon/PH/phq_init.f90 index db4eb5bf2..21a5d81ac 100644 --- a/PHonon/PH/phq_init.f90 +++ b/PHonon/PH/phq_init.f90 @@ -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,&