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

F2008 pointer is oresent only when it is actually useful (option __MANYFFT) 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13304 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2017-02-12 16:28:57 +00:00
parent 939f95f9ca
commit 8d5f6e5a72
1 changed files with 11 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
PW/src/exx.f90
View File

@ -1662,7 +1662,9 @@ MODULE exx
!
COMPLEX(DP),ALLOCATABLE :: deexx(:,:)
COMPLEX(DP),ALLOCATABLE,TARGET :: rhoc(:,:), vc(:,:)
COMPLEX(DP),POINTER :: prhoc(:), pvc(:)
#if defined(__USE_3D_FFT) & defined(__USE_MANY_FFT)
COMPLEX(DP),POINTER :: prhoc(:), pvc(:)
#endif
#if defined(__USE_INTEL_HBM_DIRECTIVES)
!DIR$ ATTRIBUTES FASTMEM :: rhoc, vc
#elif defined(__USE_CRAY_HBM_DIRECTIVES)
@ -1711,13 +1713,10 @@ MODULE exx
!
!allocate arrays for rhoc and vc
ALLOCATE(rhoc(nrxxs,jblock), vc(nrxxs,jblock))
#if defined(__USE_3D_FFT) & defined(__USE_MANY_FFT)
prhoc(1:nrxxs*jblock) => rhoc(:,:)
pvc(1:nrxxs*jblock) => vc(:,:)
!
!
!
!
!
#endif
!
DO ii=1, nibands(my_egrp_id+1)
!
@ -2709,7 +2708,9 @@ MODULE exx
COMPLEX(DP), ALLOCATABLE :: temppsic(:,:)
COMPLEX(DP), ALLOCATABLE :: temppsic_nc(:,:,:)
COMPLEX(DP), ALLOCATABLE,TARGET :: rhoc(:,:)
COMPLEX(DP), POINTER :: prhoc(:)
#if defined(__USE_3D_FFT) & defined(__USE_MANY_FFT)
COMPLEX(DP), POINTER :: prhoc(:)
#endif
REAL(DP), ALLOCATABLE :: fac(:)
INTEGER :: npw, jbnd, ibnd, ibnd_inner_start, ibnd_inner_end, ibnd_inner_count, ik, ikk, ig, ikq, iq, ir
INTEGER :: h_ibnd, nrxxs, current_ik, ibnd_loop_start, nblock, nrt, irt, ir_start, ir_end
@ -2861,9 +2862,10 @@ MODULE exx
ibnd_inner_count=jend-jstart+1
!
!allocate arrays
ALLOCATE( rhoc(nrxxs,ibnd_inner_count) )!, vcarr(ibnd_inner_count) )
ALLOCATE( rhoc(nrxxs,ibnd_inner_count) )
#if defined(__USE_3D_FFT) & defined(__USE_MANY_FFT)
prhoc(1:nrxxs*ibnd_inner_count) => rhoc
#endif
!
! load the phi at this k+q and band
IF (noncolin) THEN