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

Comparing trunk/OOPSE-4/src/UseTheForce/DarkSide/shapes_interface.F90 (file contents):
Revision 1948 by gezelter, Fri Jan 14 20:31:16 2005 UTC vs.
Revision 2188 by chuckv, Wed Apr 13 20:17:06 2005 UTC

# Line 52 | Line 52 | end subroutine completeShapeFF
52  
53    return
54   end subroutine completeShapeFF
55 +
56 + subroutine destroyShapeTypes()
57 + use shapes, only: module_destroyShapeTypes => destroyShapeTypes
58 + call module_destroyShapeTypes()
59 +
60 + end subroutine destroyShapeTypes

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines