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

COmpilation problem 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@7163 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2010-10-23 07:03:03 +00:00
parent 9ac1c4ecaf
commit 388e78dc35
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
GWW/pw4gww/matrix_wannier_gamma.f90
View File

@ -18,6 +18,7 @@ subroutine matrix_wannier_gamma_big( matsincos, ispin, n_set, itask )
USE io_files, ONLY : find_free_unit, diropn
USE io_global, ONLY : stdout
USE gsmooth, ONLY : nrxxs, doublegrid
USE smooth_grid_dimensions,ONLY: nr3s
USE realus, ONLY : qsave, box,maxbox
USE gvect, ONLY : nr1, nr2, nr3, nr1x, nr2x, &
nr3x, nrxx
@ -63,13 +64,11 @@ subroutine matrix_wannier_gamma_big( matsincos, ispin, n_set, itask )
allocate(tmprealis(nrxxs,n_set),tmprealjs(nrxxs,n_set), tmpreal(nrxxs))
allocate(tmpexp2(nrxxs,6))
!set npp for not parallel case
! set npp for not parallel case
! I don't think this is necessary - PG
#ifndef __PARA
dfftp%npp(1)=nr3
dffts%npp(1)=nr3s
! npp(1) = nr3
! npps(1) = nr3s
#endif