Commit 66ab1ce7 authored by Govoni's avatar Govoni
Browse files

Updated pwcom.

parent 68d5a8ac
......@@ -18,7 +18,7 @@ SUBROUTINE dfpt (m,dvg,dng,tr2)
USE io_global, ONLY : stdout
USE wvfct, ONLY : nbnd,g2kin,et
USE fft_base, ONLY : dfftp,dffts
USE gvect, ONLY : nl,gstart,ig_l2g
USE gvect, ONLY : nl,gstart,ig_l2g,g,ngm
USE wavefunctions_module, ONLY : evc,psic
USE gvecs, ONLY : ngms
USE gvecw, ONLY : gcutw
......@@ -29,8 +29,9 @@ SUBROUTINE dfpt (m,dvg,dng,tr2)
USE buffers, ONLY : get_buffer
USE noncollin_module, ONLY : noncolin,npol
USE bar, ONLY : bar_type,start_bar_type,update_bar_type,stop_bar_type
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,g,igk_k,ngm,tpiba2,xk,omega,npw,npwx,lsda,nkstot,&
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,igk_k,xk,npw,npwx,lsda,nkstot,&
& current_k,ngk
USE cell_base, ONLY : tpiba2,omega
USE control_flags, ONLY : gamma_only, io_level
USE io_files, ONLY : tmp_dir, nwordwfc, iunwfc, diropn
USE uspp, ONLY : nkb, vkb, okvan
......
......@@ -41,6 +41,7 @@ SUBROUTINE init_pw_arrays(ncalbec)
&deallocate_exx,exxinit,vexx
USE westcom, ONLY : iuwfc,lrwfc
USE gvecw, ONLY : gcutw
USE gvecs, ONLY : doublegrid
!
IMPLICIT NONE
!
......
......@@ -17,7 +17,7 @@ SUBROUTINE do_eigenpot2 ( )
USE kinds, ONLY : DP
USE uspp, ONLY : vkb,nkb
USE io_global, ONLY : stdout
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,g,igk_k,ngm,tpiba2,xk,lsda,nkstot,&
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,igk_k,xk,lsda,nkstot,&
& current_k,ngk
USE io_push, ONLY : io_push_title,io_push_bar
USE westcom, ONLY : westpp_sign,iuwfc,lrwfc,westpp_calculation,westpp_range,westpp_save_dir,fftdriver,&
......
......@@ -17,8 +17,7 @@ SUBROUTINE do_rho ( )
USE kinds, ONLY : DP
USE uspp, ONLY : vkb,nkb
USE io_global, ONLY : stdout
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,g,igk_k,ngm,xk,npw,npwx,lsda,nkstot,&
& current_k,ngk
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,igk_k,xk,npw,npwx,lsda,nkstot,current_k,ngk
USE cell_base, ONLY : tpiba2
USE io_push, ONLY : io_push_title,io_push_bar
USE westcom, ONLY : westpp_sign,iuwfc,lrwfc,westpp_calculation,westpp_range,westpp_save_dir,nbnd_occ
......
......@@ -17,8 +17,7 @@ SUBROUTINE do_sxx ( )
USE kinds, ONLY : DP
USE uspp, ONLY : vkb,nkb
USE io_global, ONLY : stdout
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,g,igk_k,ngm,tpiba2,xk,npw,npwx,lsda,nkstot,&
& current_k,ngk,et
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,igk_k,xk,npw,npwx,lsda,nkstot,current_k,ngk,et
USE io_push, ONLY : io_push_title,io_push_bar
USE westcom, ONLY : iuwfc,lrwfc,westpp_range,westpp_save_dir,nbnd_occ,iks_l2g,westpp_epsinfty,dvg,ev,&
& npwq0,npwq0x,fftdriver
......@@ -35,7 +34,7 @@ SUBROUTINE do_sxx ( )
USE control_flags, ONLY : gamma_only
USE gvecs, ONLY : ngms
USE gvect, ONLY : g,nl,gstart,ngm_g,ig_l2g,ngm
USE cell_base, ONLY : tpiba2,omega,tpiba,at,alat
USE cell_base, ONLY : omega,at,alat
USE noncollin_module, ONLY : noncolin,npol
USE west_io, ONLY : serial_table_output
USE mp_world, ONLY : mpime,root
......
......@@ -17,8 +17,7 @@ SUBROUTINE do_wfc2 ( )
USE kinds, ONLY : DP
USE uspp, ONLY : vkb,nkb
USE io_global, ONLY : stdout
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,g,igk_k,ngm,tpiba2,xk,npw,npwx,lsda,nkstot,&
& current_k,ngk
USE pwcom, ONLY : current_spin,wk,nks,nelup,neldw,isk,igk_k,xk,npw,npwx,lsda,nkstot,current_k,ngk
USE io_push, ONLY : io_push_title,io_push_bar
USE westcom, ONLY : westpp_sign,iuwfc,lrwfc,westpp_calculation,westpp_range,westpp_save_dir
USE mp_global, ONLY : inter_image_comm,my_image_id
......
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