--- trunk/OOPSE-4/src/UseTheForce/DarkSide/eam.F90	2005/10/12 21:00:26	2360
+++ trunk/OOPSE-4/src/UseTheForce/DarkSide/eam.F90	2005/10/12 21:00:50	2361
@@ -864,8 +864,8 @@ contains
 
 #ifdef IS_MPI
        if (do_pot) then
-          pot_Row(EAM_POT,atom1) = pot_Row(EAM_POT,atom1) + phab*0.5
-          pot_Col(EAM_POT,atom2) = pot_Col(EAM_POT,atom2) + phab*0.5
+          pot_Row(METALLIC_POT,atom1) = pot_Row(METALLIC_POT,atom1) + phab*0.5
+          pot_Col(METALLIC_POT,atom2) = pot_Col(METALLIC_POT,atom2) + phab*0.5
        end if
 
        f_Row(1,atom1) = f_Row(1,atom1) + fx