# | Line 78 | Line 78 | module eam | |
---|---|---|
78 | end type EAMTypeList | |
79 | ||
80 | ||
81 | < | type (eamTypeList) :: EAMList |
81 | > | type (eamTypeList), save :: EAMList |
82 | ||
83 | !! standard eam stuff | |
84 | ||
# | 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 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |