Changed calls to pwcom.

Westpp/westpp_readin.f90

@@ -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
   !

Westpp/westpp_setup.f90

@@ -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

Wfreq/wfreq_readin.f90

@@ -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
   !

Wfreq/wfreq_setup.f90

@@ -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

Wstat/wstat_readin.f90

@@ -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
   !

Wstat/wstat_setup.f90

@@ -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