--- trunk/OOPSE/libmdtools/calc_eam.F90 2003/08/08 21:22:37 673 +++ trunk/OOPSE/libmdtools/calc_eam.F90 2003/08/27 16:25:11 730 @@ -832,10 +832,7 @@ contains #endif if (molMembershipList(id1) .ne. molMembershipList(id2)) then - - - tau_Temp(1) = tau_Temp(1) - d(1) * fx tau_Temp(2) = tau_Temp(2) - d(1) * fy tau_Temp(3) = tau_Temp(3) - d(1) * fz