scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

generalized to non collinear case. 

MCB


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@12438 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
calandra 2016-05-28 16:46:00 +00:00
parent 56dc1c8ee4
commit 2958c72787
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PHonon/PH/read_wfc_rspace_and_fwfft.f90
View File

@ -29,7 +29,7 @@ subroutine read_wfc_rspace_and_fwfft( evc , ik , lrec , iunit , npw , igmap )
COMPLEX(DP), ALLOCATABLE :: evc_r(:,:), dist_evc_r(:,:)
allocate( evc_r( dffts%nnr, npol ) )
allocate( dist_evc_r( dffts%nr1x*dffts%nr2x*dffts%nr3x , nspin_mag) )
allocate( dist_evc_r( dffts%nr1x*dffts%nr2x*dffts%nr3x , npol) )
!
! Fourier transform it in reciprocal space
@ -51,7 +51,7 @@ subroutine read_wfc_rspace_and_fwfft( evc , ik , lrec , iunit , npw , igmap )
!
! ... distributes ddrho between between the tasks of the pool
!
DO is = 1, nspin_mag
DO is = 1, npol
!
CALL scatter_grid ( dffts, dist_evc_r(:,is), evc_r(:,is) )
!