--- trunk/mdtools/md_code/lj_FF.F90	2003/02/03 21:15:59	261
+++ trunk/mdtools/md_code/lj_FF.F90	2003/02/04 20:16:08	264
@@ -2,7 +2,7 @@
 !! Corresponds to the force field defined in lj_FF.cpp 
 !! @author Charles F. Vardeman II
 !! @author Matthew Meineke
-!! @version $Id: lj_FF.F90,v 1.17 2003-02-03 21:15:59 chuckv Exp $, $Date: 2003-02-03 21:15:59 $, $Name: not supported by cvs2svn $, $Revision: 1.17 $
+!! @version $Id: lj_FF.F90,v 1.18 2003-02-04 20:16:08 chuckv Exp $, $Date: 2003-02-04 20:16:08 $, $Name: not supported by cvs2svn $, $Revision: 1.18 $
 
 
 
@@ -668,6 +668,7 @@ contains
 
     
     if (do_pot) then
+    
 ! scatter/gather pot_row into the members of my column
        call scatter(eRow,eTemp,plan_row)
        
@@ -683,8 +684,9 @@ contains
              pe_local = pe_local + eTemp(i)
           enddo
        endif
+     
+       pe = pe_local
     endif
-    potE = pe_local
 #endif
 
     potE = pe