ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/group/trunk/OOPSE-3.0/src/UseTheForce/DarkSide/electrostatic.F90
(Generate patch)

Comparing trunk/OOPSE-3.0/src/UseTheForce/DarkSide/electrostatic.F90 (file contents):
Revision 2162 by chrisfen, Mon Apr 11 20:19:22 2005 UTC vs.
Revision 2189 by chuckv, Wed Apr 13 20:36:45 2005 UTC

# 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

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines