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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/atype_interface.F90 (file contents):
Revision 2168 by gezelter, Tue Mar 8 21:06:12 2005 UTC vs.
Revision 2169 by chuckv, Tue Apr 12 17:12:27 2005 UTC

# Line 35 | Line 35 | end subroutine
35         is_Shape, is_FLARB, status)
36    
37   end subroutine
38 +
39 + !clears memory up
40 + subroutine deleteAtypes()
41 + use atype_module,ONLY: delete_atypes
42 + call delete_atypes()
43 + end subroutine deleteatypes

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines