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

Missing #ifdef __PARA. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3080 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2006-05-05 05:33:43 +00:00
parent 9258aa4723
commit 3d7a49afeb
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PWCOND/local.f90
View File

@ -171,7 +171,9 @@ subroutine local_1 (edummy, nrz, vppot, n2d, psibase)
INTEGER :: i, il, j, jl, ixy, ig, jg, ipol, igper, k, &
ios, index, number, nprob, nteam, nteamnow, &
info, kin, kfin, is, js
#ifdef __PARA
INTEGER :: status(MPI_STATUS_SIZE)
#endif
INTEGER, ALLOCATABLE :: fftxy(:,:)
REAL(DP) :: edummy
REAL(DP), ALLOCATABLE :: el(:), gp(:)