Commit a4b0e5ee authored by Govoni's avatar Govoni
Browse files

Changed calls to pwcom.

parent ead96702
......@@ -14,14 +14,14 @@
SUBROUTINE westpp_readin()
!-----------------------------------------------------------------------
!
USE pwcom
USE westcom
USE ions_base, ONLY : nat
USE uspp, ONLY : okvan
USE io_files, ONLY : tmp_dir, prefix
USE io_global, ONLY : stdout
USE noncollin_module, ONLY : noncolin
USE mp, ONLY : mp_bcast
USE gvecs, ONLY : doublegrid
USE spin_orb, ONLY : domag
!
IMPLICIT NONE
!
......
......@@ -19,7 +19,7 @@ SUBROUTINE westpp_setup
& n_refreq,isz,qp_bandrange,westpp_calculation,westpp_n_pdep_eigen_to_use
USE mp, ONLY : mp_max
USE mp_global, ONLY : intra_bgrp_comm
USE pwcom, ONLY : npw,nbnd
USE pwcom, ONLY : nbnd
USE kinds, ONLY : DP
USE gvect, ONLY : gstart,g,ig_l2g
USE io_files, ONLY : tmp_dir
......
......@@ -14,14 +14,14 @@
SUBROUTINE wfreq_readin()
!-----------------------------------------------------------------------
!
USE pwcom
USE westcom
USE ions_base, ONLY : nat
USE uspp, ONLY : okvan
USE io_files, ONLY : tmp_dir, prefix
USE io_global, ONLY : stdout
USE noncollin_module, ONLY : noncolin
USE mp, ONLY : mp_bcast
USE gvecs, ONLY : doublegrid
USE spin_orb, ONLY : domag
!
IMPLICIT NONE
!
......
......@@ -22,7 +22,7 @@ SUBROUTINE wfreq_setup
USE westcom, ONLY :
USE mp, ONLY : mp_max
USE mp_global, ONLY : intra_bgrp_comm
USE pwcom, ONLY : npw,nbnd,nks
USE pwcom, ONLY : nbnd,nks
USE kinds, ONLY : DP
USE gvect, ONLY : gstart,g,ig_l2g
USE io_files, ONLY : tmp_dir
......
......@@ -14,8 +14,6 @@
SUBROUTINE wstat_readin()
!-----------------------------------------------------------------------
!
USE pwcom
USE westcom
USE ions_base, ONLY : nat
USE uspp, ONLY : okvan
USE io_files, ONLY : tmp_dir, prefix
......@@ -23,6 +21,8 @@ SUBROUTINE wstat_readin()
USE noncollin_module, ONLY : noncolin
USE mp, ONLY : mp_bcast
USE mp_world, ONLY : nproc,mpime,root
USE gvecs, ONLY : doublegrid
USE spin_orb, ONLY : domag
!
IMPLICIT NONE
!
......
......@@ -19,7 +19,6 @@ SUBROUTINE wstat_setup
& wstat_save_dir, wstat_restart_dir
USE mp, ONLY : mp_max
USE mp_global, ONLY : intra_bgrp_comm
USE pwcom, ONLY : npw,npwx
USE kinds, ONLY : DP
USE gvect, ONLY : gstart,g,ig_l2g,ngm,ngmx
USE constants, ONLY : e2,fpi
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment