# | Line 77 | Line 77 | end subroutine setQuadrupoleMoments | |
---|---|---|
77 | call module_setQuadrupoleMoments(ident, quadrupole_moments, status) | |
78 | ||
79 | end subroutine setQuadrupoleMoments | |
80 | + | |
81 | + | subroutine destroyElectrostaticTypes() |
82 | + | use electrostatic_module, ONLY: module_destroyElectrostaticTypes =>destroyElectrostaticTypes |
83 | + | |
84 | + | call module_destroyElectrostaticTypes() |
85 | + | |
86 | + | end subroutine destroyElectrostaticTypes |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |