# | Line 77 | Line 77 | module electrostatic_module | |
---|---|---|
77 | public :: getCharge | |
78 | public :: getDipoleMoment | |
79 | public :: pre22 | |
80 | + | public :: destroyElectrostaticTypes |
81 | ||
82 | type :: Electrostatic | |
83 | integer :: c_ident | |
# | Line 821 | Line 822 | end module electrostatic_module | |
822 | return | |
823 | end subroutine doElectrostaticPair | |
824 | ||
825 | + | |
826 | + | subroutine destroyElectrostaticTypes() |
827 | + | |
828 | + | if(allocated(ElectrostaticMap)) deallocate(ElectrostaticMap) |
829 | + | |
830 | + | end subroutine destroyElectrostaticTypes |
831 | + | |
832 | end module electrostatic_module |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |