Commit 68ee7b5e authored by Miguel Carvajal's avatar Miguel Carvajal

Rename module wavefunctions_module to wavefunctions

parent 27bf099c
......@@ -34,3 +34,5 @@ W90
archive/wannier90-*tgz
wannier90-*
tempdir
lapack-3.6.1/
LAPACK*
\ No newline at end of file
......@@ -137,7 +137,7 @@ CONTAINS
USE cp_electronic_mass, ONLY: emass, emass_cutoff, emass_precond
USE cg_module, ONLY : tcg,allocate_cg,cg_info, &
nfi_firstcg,c0old
USE wavefunctions_module, ONLY : cm_bgrp,c0_bgrp
USE wavefunctions, ONLY : cm_bgrp,c0_bgrp
USE ensemble_dft, ONLY : tens,allocate_ensemble_dft
USE uspp, ONLY : nkb, nkbus
USE electrons_base, ONLY : nspin, nbsp, nbspx, nudx
......
......@@ -80,7 +80,7 @@ SUBROUTINE cprmain( tau_out, fion_out, etot_out )
electrons_nosevel, electrons_noseupd
USE pres_ai_mod, ONLY : P_ext, P_in, P_fin, pvar, volclu, &
surfclu, Surf_t, abivol, abisur
USE wavefunctions_module, ONLY : c0_bgrp, cm_bgrp, phi_bgrp
USE wavefunctions, ONLY : c0_bgrp, cm_bgrp, phi_bgrp
USE wannier_module, ONLY : allocate_wannier
USE cp_interfaces, ONLY : printout_new, move_electrons, newinit
USE cell_nose, ONLY : xnhh0, xnhhm, xnhhp, vnhh, temph, &
......
......@@ -25,7 +25,7 @@ SUBROUTINE deallocate_modules_var()
USE local_pseudo, ONLY : deallocate_local_pseudo
USE qgb_mod, ONLY : deallocate_qgb_mod
USE betax, ONLY : deallocate_betax
USE wavefunctions_module, ONLY : deallocate_wavefunctions
USE wavefunctions, ONLY : deallocate_wavefunctions
USE wannier_module, ONLY : deallocate_wannier
USE fft_types, ONLY : fft_type_descriptor, fft_type_deallocate
USE fft_smallbox_type, ONLY : fft_box_deallocate
......
......@@ -48,7 +48,7 @@ SUBROUTINE from_scratch( )
USE printout_base, ONLY : printout_pos
USE orthogonalize_base, ONLY : updatc, calphi_bgrp
USE wave_base, ONLY : wave_steepest
USE wavefunctions_module, ONLY : c0_bgrp, cm_bgrp, phi_bgrp
USE wavefunctions, ONLY : c0_bgrp, cm_bgrp, phi_bgrp
USE fft_base, ONLY : dfftp, dffts
USE time_step, ONLY : delt
USE cp_main_variables, ONLY : descla, bephi, becp_bgrp, nfi, &
......
......@@ -28,7 +28,7 @@ SUBROUTINE init_run()
USE electrons_base, ONLY : nspin, nbsp, nbspx, nupdwn, f
USE uspp, ONLY : nkb, vkb, deeq, becsum,nkbus
USE core, ONLY : rhoc
USE wavefunctions_module, ONLY : c0_bgrp, cm_bgrp, phi_bgrp
USE wavefunctions, ONLY : c0_bgrp, cm_bgrp, phi_bgrp
USE ensemble_dft, ONLY : tens, z0t
USE cg_module, ONLY : tcg
USE electrons_base, ONLY : nudx, nbnd
......@@ -74,7 +74,7 @@ SUBROUTINE init_run()
USE wrappers
USE ldaU_cp
USE control_flags, ONLY : lwfpbe0nscf ! exx_wf related
USE wavefunctions_module, ONLY : cv0 ! exx_wf related
USE wavefunctions, ONLY : cv0 ! exx_wf related
USE wannier_base, ONLY : vnbsp ! exx_wf related
USE cp_restart, ONLY : cp_read_wfc_Kong ! exx_wf related
USE input_parameters, ONLY : ref_cell
......
......@@ -43,7 +43,7 @@ SUBROUTINE move_electrons_x( nfi, tfirst, tlast, b1, b2, b3, fion, c0_bgrp, &
USE electrons_module, ONLY : distribute_c, collect_c, distribute_b
USE gvect, ONLY : eigts1, eigts2, eigts3
USE control_flags, ONLY : lwfpbe0nscf ! exx_wf related
USE wavefunctions_module, ONLY : cv0 ! Lingzhu Kong
USE wavefunctions, ONLY : cv0 ! Lingzhu Kong
USE funct, ONLY : dft_is_hybrid, exx_is_active
!
IMPLICIT NONE
......
......@@ -14,7 +14,7 @@ SUBROUTINE from_restart( )
thdyn, tzeroc, force_pairing, trhor, &
ampre, trane, tpre, dt_old, tv0rd, &
trescalee
USE wavefunctions_module, ONLY : c0_bgrp, cm_bgrp
USE wavefunctions, ONLY : c0_bgrp, cm_bgrp
USE electrons_module, ONLY : occn_info
USE electrons_base, ONLY : nspin, iupdwn, nupdwn, f, nbsp, nbsp_bgrp
USE io_global, ONLY : ionode, ionode_id, stdout
......
......@@ -32,7 +32,7 @@
USE noncollin_module, ONLY : npol
use uspp_param, ONLY : upf
USE wvfct, ONLY : npwx
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE nlcc_ph, ONLY : drc
USE uspp, ONLY : nlcc_any
USE eqv, ONLY : dvpsi, dmuxc, vlocq
......
......@@ -60,7 +60,7 @@
USE mp, ONLY : mp_barrier, mp_bcast, mp_put,mp_sum
USE kinds, ONLY : DP
USE io_global, ONLY : stdout
USE wavefunctions_module, ONLY: evc
USE wavefunctions, ONLY: evc
USE io_files, ONLY : diropn, seqopn
USE wvfct, ONLY : npwx
USE pwcom, ONLY : current_spin, isk, lsda, nbnd, xk, nks
......
......@@ -31,7 +31,7 @@
USE cellmd, ONLY : cell_factor
USE uspp_param, ONLY : lmaxq, nbetam
USE io_files, ONLY : prefix, tmp_dir
USE wavefunctions_module, ONLY: evc
USE wavefunctions, ONLY: evc
USE ions_base, ONLY : nat, nsp, tau, ityp
USE control_flags, ONLY : iverbosity
USE io_epw, ONLY : iuepb, QPeig_read
......
......@@ -28,7 +28,7 @@
USE gvecw, ONLY : ecutwfc
USE gvect, ONLY : eigts1, eigts2, eigts3, g, ngm
USE atom, ONLY : msh, rgrid
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE kinds, ONLY : DP
USE noncollin_module, ONLY : noncolin, npol
USE uspp_param, ONLY : upf
......
......@@ -650,7 +650,7 @@ SUBROUTINE compute_amn_para
USE klist, ONLY : xk, nks, igk_k
USE wvfct, ONLY : nbnd, npw, npwx, g2kin
USE gvecw, ONLY : ecutwfc
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE gvect, ONLY : g, ngm
USE cell_base, ONLY : tpiba2
USE uspp, ONLY : nkb, vkb
......@@ -965,7 +965,7 @@ SUBROUTINE compute_mmn_para
USE kinds, ONLY : DP
USE wvfct, ONLY : nbnd, npw, npwx, g2kin
USE gvecw, ONLY : ecutwfc
USE wavefunctions_module, ONLY : evc, psic, psic_nc
USE wavefunctions, ONLY : evc, psic, psic_nc
USE units_ph, ONLY : lrwfc, iuwfc
USE fft_base, ONLY : dffts
USE fft_interfaces, ONLY : fwfft, invfft
......@@ -1463,7 +1463,7 @@ SUBROUTINE compute_pmn_para
USE klist, ONLY : xk, nks, igk_k
USE wvfct, ONLY : nbnd, npw, npwx, g2kin
USE gvecw, ONLY : ecutwfc
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE units_ph, ONLY : lrwfc, iuwfc
USE gvect, ONLY : g, ngm
USE cell_base, ONLY : tpiba2, tpiba
......@@ -2035,7 +2035,7 @@ SUBROUTINE write_plot
USE io_epw, ONLY : iun_plot
USE wvfct, ONLY : nbnd, npw, npwx, g2kin
USE gvecw, ONLY : ecutwfc
USE wavefunctions_module, ONLY : evc, psic, psic_nc
USE wavefunctions, ONLY : evc, psic, psic_nc
USE wannierEPW, ONLY : reduce_unk, wvfn_formatted, ispinw, nexband, &
excluded_band
USE klist, ONLY : xk, nks, igk_k
......
......@@ -42,7 +42,7 @@
USE control_flags, ONLY : iverbosity
USE pwcom, ONLY : igk
USE constants_epw, ONLY : ci, czero
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE fft_base, ONLY : dfftp, dffts
USE wvfct, ONLY : nbnd
USE gvecs, ONLY : nls
......
......@@ -214,7 +214,7 @@ MODULE bse_basic_structures
use io_global, ONLY : stdout, ionode
USE gvect, ONLY : gstart
USE lsda_mod, ONLY : nspin
use wavefunctions_module, ONLY : evc
use wavefunctions, ONLY : evc
use io_files, ONLY : prefix, iunwfc, tmp_dir
USE io_files, ONLY: nwordwfc
USE wvfct, ONLY : nbnd, npwx,npw,et
......@@ -286,7 +286,7 @@ MODULE bse_basic_structures
use io_global, ONLY : stdout, ionode
USE gvect, ONLY : gstart
USE lsda_mod, ONLY : nspin
use wavefunctions_module, ONLY : evc
use wavefunctions, ONLY : evc
use io_files, ONLY : prefix, iunwfc, tmp_dir
USE io_files, ONLY: nwordwfc
USE wvfct, ONLY : nbnd, npwx,npw,et
......@@ -387,7 +387,7 @@ MODULE bse_basic_structures
USE mp_wave, ONLY : mergewf,splitwf
USE mp, ONLY : mp_sum
USE gvect
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
implicit none
......@@ -472,7 +472,7 @@ MODULE bse_basic_structures
USE mp_wave, ONLY : mergewf,splitwf
USE mp, ONLY : mp_sum
USE gvect
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
implicit none
......
......@@ -9,7 +9,7 @@ USE wvfct, ONLY : nbnd, et, npwx
USE gvecw, ONLY : ecutwfc
USE gvecs, ONLY : doublegrid
use pwcom
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
use mp, ONLY: mp_bcast
USE mp_world, ONLY : world_comm
USE fft_base, ONLY : dfftp
......
......@@ -4,7 +4,7 @@ subroutine check_basis(numwprod,npw)
USE fft_custom_gwl
!USE io_files, ONLY : find_free_unit, prefix, diropn
USE io_files, ONLY : prefix, diropn
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE mp, ONLY :mp_barrier
use io_global, ONLY : stdout, ionode
USE kinds, ONLY : DP
......
......@@ -46,7 +46,7 @@ USE constants, ONLY : e2, fpi
USE cell_base, ONLY : tpiba,omega,tpiba2
!USE io_files, ONLY : find_free_unit, prefix, diropn
USE io_files, ONLY : prefix, diropn
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE io_global, ONLY : stdout, ionode, ionode_id
USE mp_world, ONLY : mpime, nproc
USE mp_pools, ONLY: intra_pool_comm
......@@ -339,7 +339,7 @@ USE constants, ONLY : e2, fpi
USE cell_base, ONLY : tpiba,omega,tpiba2
!USE io_files, ONLY : find_free_unit, prefix, diropn
USE io_files, ONLY : prefix, diropn
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE io_global, ONLY : stdout, ionode, ionode_id
USE mp_world, ONLY : mpime, nproc
USE mp_pools, ONLY: intra_pool_comm
......@@ -472,7 +472,7 @@ subroutine contract_v_build(fc)
USE fft_custom_gwl
use bse_basic_structures
use exciton
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE gvect, ONLY : ig_l2g
USE io_global, ONLY : stdout, ionode, ionode_id
USE mp_world, ONLY : mpime, nproc
......@@ -599,7 +599,7 @@ subroutine contract_v_apply(a_in,fc,a_out)
USE fft_custom_gwl
use bse_basic_structures
use exciton
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE gvect, ONLY : ig_l2g
USE io_global, ONLY : stdout, ionode, ionode_id
USE mp_world, ONLY : mpime, nproc
......
......@@ -3,7 +3,7 @@ subroutine direct_v_exc(a_in,fc,a_out)
USE fft_custom_gwl
use bse_basic_structures
use exciton
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE gvect, ONLY : ig_l2g
USE io_global, ONLY : stdout, ionode, ionode_id
USE mp_world, ONLY : mpime, nproc
......
......@@ -11,7 +11,7 @@ USE constants, ONLY : e2, fpi
USE cell_base, ONLY : tpiba,omega,tpiba2
!USE io_files, ONLY : find_free_unit, prefix, diropn
USE io_files, ONLY : prefix, diropn
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE io_global, ONLY : stdout, ionode, ionode_id
USE mp_world, ONLY : mpime, nproc
USE mp_pools, ONLY: intra_pool_comm
......
......@@ -19,7 +19,7 @@ SUBROUTINE dvpsi_e(kpoint,ipol,dvpsi2,l_lr)
USE cell_base, ONLY : tpiba, tpiba2
USE uspp, ONLY: nkb, vkb, dvan
USE uspp_param, ONLY: nh
USE wavefunctions_module, ONLY: evc
USE wavefunctions, ONLY: evc
USE wvfct, ONLY : nbnd, npwx,et
USE becmod, ONLY: bec_type, becp, calbec, allocate_bec_type, deallocate_bec_type
USE io_files, ONLY: nwordwfc,iunwfc
......
......@@ -19,7 +19,7 @@ USE io_global, ONLY : stdout, ionode, ionode_id
USE mp_world, ONLY : mpime, nproc
USE mp_pools, ONLY: intra_pool_comm
USE mp_world, ONLY : world_comm
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE mp, ONLY :mp_barrier
!USE io_files, ONLY : find_free_unit
......
......@@ -447,7 +447,7 @@ contains
USE mp_world, ONLY : mpime, nproc
USE mp_pools, ONLY : intra_pool_comm
! USE mp_wave, ONLY : mergewf,splitwf
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
implicit none
......@@ -519,7 +519,7 @@ contains
USE mp_world, ONLY : mpime, nproc
USE mp_pools, ONLY : intra_pool_comm
! USE mp_wave, ONLY : mergewf,splitwf
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
implicit none
......
......@@ -16,7 +16,7 @@ subroutine read_export (pp_file,kunit,uspp_spsi, ascii, single_file, raw)
! use char, ONLY : sname
! occhio sname is in symme which is now outside pwcom
use uspp, ONLY : nkb, vkb
use wavefunctions_module, ONLY : evc
use wavefunctions, ONLY : evc
use io_files, ONLY : nd_nmbr, prefix, iunwfc, nwordwfc, iunsat, nwordatwfc
use io_files, ONLY : pseudo_dir, psfile
use io_global, ONLY : ionode, stdout
......
......@@ -17,7 +17,6 @@ subroutine rotate_wannier_gamma_bse( rot_u,a_in,a_out,ispin, itrasp)
USE constants, ONLY : e2, pi, tpi, fpi
USE io_files, ONLY: nwordwfc
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2
! USE wavefunctions_module, ONLY: evc
use exciton
USE io_global, ONLY : stdout
......
subroutine make_v_state(numb_v,v)
USE gvect, ONLY : gstart
USE lsda_mod, ONLY : nspin
use wavefunctions_module, ONLY : evc
use wavefunctions, ONLY : evc
use io_files, ONLY : prefix, iunwfc
USE wvfct, ONLY : nbnd, npwx,npw
implicit none
......
......@@ -75,7 +75,7 @@ subroutine build_exch(vstate,vstate_r,fc)
USE bse_wannier, ONLY : num_nbndv
USE wvfct, ONLY : nbnd, npwx,npw,et
USE lsda_mod, ONLY : nspin
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE io_files, ONLY : prefix, iunwfc, nwordwfc
USE transitions, ONLY : ttab,exch
USE io_global, ONLY : stdout,ionode
......
......@@ -20,7 +20,7 @@ subroutine lanczos_state_k(ik,nstates, nsteps,in_states,d,f,omat,dpsi_ipol, t_ou
USE constants, ONLY : e2, pi, tpi, fpi
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2
USE wvfct, ONLY : g2kin, npwx, nbnd
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_world, ONLY : mpime, world_comm
USE gvecs, ONLY : doublegrid
......@@ -319,7 +319,7 @@ subroutine h_psi_scissor( ik,lda, n, m, psi, hpsi )
USE kinds, ONLY : DP
USE gvect, ONLY : gstart
USE wvfct, ONLY : npwx, npw, nbnd,et
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE wannier_gw, ONLY : scissor
USE mp, ONLY : mp_sum
USE mp_world, ONLY : world_comm
......
......@@ -18,7 +18,7 @@ subroutine solve_head
USE io_files, ONLY : diropn,prefix, tmp_dir
use pwcom
USE cell_base, ONLY : omega, tpiba2
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE kinds, ONLY : DP
USE becmod, ONLY : becp,calbec
USE uspp_param, ONLY : nhm
......
......@@ -20,7 +20,7 @@
USE wvfct, ONLY : npwx, npw, nbnd
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_world, ONLY : mpime,nproc,world_comm
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE gvect, ONLY : gstart
implicit none
......
......@@ -28,7 +28,7 @@ subroutine dft_exchange(nbnd_v,nbnd_s,n_set, e_x,ks_wfcs)
USE gvecs, ONLY : doublegrid
USE uspp
USE uspp_param, ONLY : lmaxq,upf,nh, nhm
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
! USE realus, ONLY : adduspos_gamma_r
USE cell_base, ONLY : at, bg, omega
USE mp, ONLY : mp_sum, mp_bcast
......@@ -328,7 +328,7 @@ subroutine addus_charge(r_ij,becp_iw,becp_jw)
USE scf, ONLY : rho
USE uspp, ONLY : okvan, nkb
USE uspp_param, ONLY : lmaxq, upf, nh
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE control_flags , ONLY : gamma_only
USE fft_base, ONLY : dfftp, dffts
USE fft_interfaces, ONLY : fwfft, invfft
......
......@@ -88,7 +88,7 @@ SUBROUTINE energies_xc( lda, n, m, psi, e_xc, e_h,ispin )
!
! ... k-points version
!
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE becmod, ONLY : becp
!
IMPLICIT NONE
......@@ -206,7 +206,7 @@ SUBROUTINE energies_xc( lda, n, m, psi, e_xc, e_h,ispin )
&l_scissor,scissor,num_nbndv,num_nbnds
! USE realus, ONLY : adduspos_gamma_r
USE wvfct, ONLY : npwx,npw,nbnd, et,g2kin
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE klist, ONLY : xk
USE mp, ONLY : mp_sum
USE mp_world, ONLY : world_comm
......
......@@ -65,7 +65,7 @@ MODULE exchange_custom
USE mp_global, ONLY : me_pool,intra_pool_comm
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2,bg
USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE mp, ONLY : mp_sum
USE mp_world, ONLY : world_comm, nproc
USE wvfct, ONLY : npwx, npw, wg
......@@ -796,7 +796,7 @@ MODULE exchange_custom
USE mp_global, ONLY : me_pool,intra_pool_comm
USE cell_base, ONLY : at, alat, tpiba, omega, tpiba2,bg
USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE mp, ONLY : mp_sum
USE mp_world, ONLY : world_comm, nproc
USE wvfct, ONLY : npwx, npw
......@@ -1132,7 +1132,7 @@ MODULE exchange_custom
USE gvecw, ONLY : ecutwfc
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2,bg
USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE mp_global, ONLY : intra_pool_comm, me_pool
USE gvect
USE mp_wave, ONLY : mergewf,splitwf
......@@ -1468,7 +1468,7 @@ MODULE exchange_custom
USE wvfct, ONLY : npwx, npw, nbnd
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2,bg
USE constants, ONLY : e2, pi, tpi, fpi, RYTOEV
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE gvect
USE mp_pools, ONLY : intra_pool_comm
USE mp_world, ONLY : mpime, nproc
......@@ -1658,7 +1658,7 @@ MODULE exchange_custom
FUNCTION exchange_energy_fast(exx_cus,exxalpha)
USE wvfct, ONLY : npwx, npw, nbnd
USE wavefunctions_module, ONLY : evc
USE wavefunctions, ONLY : evc
USE mp, ONLY : mp_sum
USE mp_world, ONLY : world_comm
USE gvect, ONLY : gstart
......
......@@ -36,7 +36,7 @@ CONTAINS
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2
USE wvfct, ONLY : g2kin, npwx, npw, nbnd, et, wg
USE gvecw, ONLY : ecutwfc
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_pools, ONLY : intra_pool_comm
USE mp_world, ONLY: world_comm, mpime, nproc
......@@ -1419,7 +1419,7 @@ subroutine fake_conduction_wannier_real( cutoff, s_cutoff )
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2
USE wvfct, ONLY : g2kin, npwx, npw, nbnd, et
USE gvecw, ONLY : ecutwfc
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_world, ONLY : world_comm, mpime, nproc
USE mp_pools, ONLY : intra_pool_comm
......@@ -2167,7 +2167,7 @@ end subroutine fake_conduction_wannier_real
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2
USE wvfct, ONLY : g2kin, npwx, npw, nbnd, et, wg
USE gvecw, ONLY : ecutwfc
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_world, ONLY : world_comm, mpime, nproc
USE mp_pools, ONLY : intra_pool_comm
......
......@@ -18,7 +18,7 @@
USE constants, ONLY : e2, pi, tpi, fpi
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2
USE wvfct, ONLY : npwx, npw, nbnd
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_pools, ONLY : intra_pool_comm
USE mp_world, ONLY : mpime,nproc
......
......@@ -436,7 +436,7 @@ SUBROUTINE o_1psi_gamma( numv, v_states, psi, opsi,l_freq,hdiag, ptype,fcw_numbe
USE constants, ONLY : e2, pi, tpi, fpi
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2
USE wvfct, ONLY : g2kin, npwx, npw, nbnd, et
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_world, ONLY : world_comm, mpime, nproc
USE gvecs, ONLY : doublegrid
......@@ -822,7 +822,7 @@ SUBROUTINE evc_to_real(numv, v_states)
USE io_global, ONLY : stdout, ionode, ionode_id
USE kinds, ONLY : DP
USE wvfct, ONLY : npwx, npw, nbnd
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE gvecs, ONLY : doublegrid
USE fft_base, ONLY : dfftp, dffts
USE fft_interfaces, ONLY : fwfft, invfft
......@@ -867,7 +867,7 @@ SUBROUTINE o_basis_init(numpw,o_basis,numv,v_states,cutoff, ptype,fcw_number,fcw
USE io_global, ONLY : stdout, ionode, ionode_id
USE kinds, ONLY : DP
USE wvfct, ONLY : g2kin, npwx, npw, nbnd
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE gvecs, ONLY : doublegrid
USE constants, ONLY : tpi
USE random_numbers, ONLY : randy
......@@ -956,9 +956,9 @@ SUBROUTINE o_basis_init(numpw,o_basis,numv,v_states,cutoff, ptype,fcw_number,fcw
USE io_global, ONLY : stdout, ionode, ionode_id
USE kinds, ONLY : DP
USE wvfct, ONLY : npwx, npw, nbnd
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE gvecs, ONLY : doublegrid
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE io_files, ONLY : diropn, prefix
USE gvect, ONLY : ngm, gg,gstart
USE cell_base, ONLY: tpiba2
......@@ -1041,7 +1041,7 @@ SUBROUTINE o_1psi_gamma_real( numv, v_states, psi, opsi)
USE constants, ONLY : e2, pi, tpi, fpi
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2
USE wvfct, ONLY : npwx, npw, nbnd
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_world, ONLY : mpime, world_comm
USE gvecs, ONLY : doublegrid
......@@ -1122,9 +1122,9 @@ END SUBROUTINE o_1psi_gamma_real
USE io_global, ONLY : stdout, ionode, ionode_id
USE kinds, ONLY : DP
USE wvfct, ONLY : npwx, npw, nbnd
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE gvecs, ONLY : doublegrid
USE wavefunctions_module, ONLY : psic
USE wavefunctions, ONLY : psic
USE io_files, ONLY : prefix, tmp_dir, diropn
USE gvect, ONLY : ngm, gg,gstart
USE cell_base, ONLY: tpiba2
......
......@@ -24,7 +24,7 @@ subroutine pola_basis_lanczos(n_set,nstates,numpw, nsteps,ispin)
USE cell_base, ONLY: at, alat, tpiba, omega, tpiba2
USE wvfct, ONLY : npwx, npw, nbnd
USE gvecw, ONLY : ecutwfc
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_world, ONLY : world_comm, mpime, nproc
USE mp_pools, ONLY : intra_pool_comm
......@@ -541,7 +541,7 @@ subroutine pc_operator(state,ispin,l_cond)
USE kinds, ONLY : DP
USE gvect
USE wvfct, ONLY : npwx, npw, nbnd
USE wavefunctions_module, ONLY : evc, psic
USE wavefunctions, ONLY : evc, psic
USE mp, ONLY : mp_sum, mp_barrier, mp_bcast
USE mp_world, ONLY : world_comm
USE wannier_gw, ONLY : num_nbndv,num_nbnds
......@@ -591,7 +591,7 @@ subroutine pc_operator_t(state,evc_t,ispin, fc)