From d080d161a464edc6e8b29cdebee2492086bfc8c3 Mon Sep 17 00:00:00 2001 From: Eric Bylaska Date: Fri, 26 Jun 2009 22:27:34 +0000 Subject: [PATCH] bug fix --- src/nwpw/pspw/lib/psp/psp.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/nwpw/pspw/lib/psp/psp.F b/src/nwpw/pspw/lib/psp/psp.F index 2c76024561..6e1b49f618 100644 --- a/src/nwpw/pspw/lib/psp/psp.F +++ b/src/nwpw/pspw/lib/psp/psp.F @@ -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))