comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 14:15:30 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

bug fix

Browse source
This commit is contained in:
Eric Bylaska 2009-06-26 22:27:34 +00:00
parent f9bc943d1e
commit d080d161a4
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/nwpw/pspw/lib/psp/psp.F
View file

@ -787,8 +787,8 @@ c vlr_out(i) = vlr_out(i) + (q/r)*erf(r*c)
end if
end do
call Parallel_Vector_SumAll(3*nion,fion)
if (np_j.gt.1) call D1dB_Vector_SumAll(2*npack0,vl_out)
if (move) call Parallel_Vector_SumAll(3*nion,fion)
value = .true.
if (move) value = value.and.MA_pop_stack(xtmp(2))