ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE/libmdtools/calc_eam.F90
(Generate patch)

Comparing trunk/OOPSE/libmdtools/calc_eam.F90 (file contents):
Revision 673 by chuckv, Fri Aug 8 21:22:37 2003 UTC vs.
Revision 730 by gezelter, Wed Aug 27 16:25:11 2003 UTC

# Line 832 | Line 832 | contains
832   #endif
833            
834            if (molMembershipList(id1) .ne. molMembershipList(id2)) then
835            
835  
837
838
836               tau_Temp(1) = tau_Temp(1) - d(1) * fx
837               tau_Temp(2) = tau_Temp(2) - d(1) * fy
838               tau_Temp(3) = tau_Temp(3) - d(1) * fz

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines