| # | Line 1 | Line 1 | |
|---|---|---|
| 1 | subroutine newLJtype(c_ident, sigma, epsilon, soft_pot, status) | |
| 2 | + | use definitions |
| 3 | use lj, ONLY : module_newLJtype => newLJtype | |
| 4 | < | integer, parameter :: DP = selected_real_kind(15) |
| 4 | > | |
| 5 | integer,intent(inout) :: c_ident | |
| 6 | real(kind=dp),intent(inout) :: sigma | |
| 7 | real(kind=dp),intent(inout) :: epsilon | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |