| # | Line 3 | Line 3 | subroutine makeShape(nContactFuncs, ContactFuncLValue, | |
|---|---|---|
| 3 | nRangeFuncs, RangeFuncLValue, RangeFuncMValue, RangeFunctionType, & | |
| 4 | RangeFuncCoefficient, nStrengthFuncs, StrengthFuncLValue, & | |
| 5 | StrengthFuncMValue, StrengthFunctionType, StrengthFuncCoefficient, & | |
| 6 | < | myATID, status) |
| 6 | > | c_ident, status) |
| 7 | ||
| 8 | use definitions | |
| 9 | use shapes, only: newShapeType | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |