# | 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 |