| # | Line 37 | Line 37 | contains | |
|---|---|---|
| 37 | endif | |
| 38 | ||
| 39 | me = addElement(atypes) | |
| 40 | + | |
| 41 | call setElementProperty(atypes, me, "c_ident", ident) | |
| 42 | ||
| 43 | call setElementProperty(atypes, me, "is_Directional", is_Directional) | |
| # | Line 70 | Line 71 | subroutine makeatype(atp, status) | |
| 71 | logical :: is_Directional, is_LennardJones, is_Electrostatic | |
| 72 | logical :: is_Charge, is_Dipole, is_Sticky, is_GayBerne, is_EAM | |
| 73 | logical :: is_Shape, is_FLARB | |
| 74 | < | |
| 74 | > | |
| 75 | ident = atp%ident | |
| 76 | is_Directional = (atp%is_Directional .ne. 0) | |
| 77 | is_LennardJones = (atp%is_LennardJones .ne. 0) | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |