diff --git a/main/vgen.F90 b/main/vgen.F90 index b4682f6df270bb8234d72a8e7e401e91a662eb65..d7b7f60caeccf7759779366aa668ff0a58f4e5e2 100644 --- a/main/vgen.F90 +++ b/main/vgen.F90 @@ -81,12 +81,6 @@ CONTAINS CALL vCoul%copy_both_spin(vTot) vCoul%mt(:,:,:,input%jspins)=vCoul%mt(:,:,:,1) - DO ispin = 1, input%jspins - DO i = 1, stars%ng3 - vcoul%pw(i,ispin) = vcoul%pw(i,ispin) / stars%nstr(i) - vcoul%pw_w(i,ispin) = vcoul%pw_w(i,ispin) / stars%nstr(i) !this normalization is needed for gw - END DO - END DO IF (noco%l_noco) THEN CALL denRot%init(stars,atoms,sphhar,vacuum,input%jspins,noco%l_noco,0)