10 |
|
|
11 |
|
integer :: ident |
12 |
|
logical :: is_Electrostatic, is_Charge, is_Dipole |
13 |
< |
logical :: is_SplitDipole, is_Quadrupole |
13 |
> |
logical :: is_SplitDipole, is_Quadrupole, is_Tap |
14 |
|
|
15 |
|
ident = atp%ident |
16 |
|
is_Electrostatic = ((atp%is_Charge .ne. 0) .or. & |
20 |
|
is_Dipole = (atp%is_Dipole .ne. 0) |
21 |
|
is_SplitDipole = (atp%is_SplitDipole .ne. 0) |
22 |
|
is_Quadrupole = (atp%is_Quadrupole .ne. 0) |
23 |
+ |
is_Tap = (atp%is_StickyPower .ne. 0) |
24 |
|
|
25 |
|
call module_newElectrostaticType(ident, is_Charge, is_Dipole, & |
26 |
< |
is_SplitDipole, is_Quadrupole, status) |
26 |
> |
is_SplitDipole, is_Quadrupole, is_Tap, status) |
27 |
|
|
28 |
|
end subroutine newElectrostaticType |
29 |
|
|