--- trunk/OOPSE-4/src/UseTheForce/DarkSide/shapes_interface.F90	2005/01/14 20:31:16	1948
+++ trunk/OOPSE-4/src/UseTheForce/DarkSide/shapes_interface.F90	2005/04/13 20:17:06	2188
@@ -52,3 +52,9 @@ end subroutine completeShapeFF
 
   return
 end subroutine completeShapeFF
+
+subroutine destroyShapeTypes()
+ use shapes, only: module_destroyShapeTypes => destroyShapeTypes
+ call module_destroyShapeTypes()
+
+end subroutine destroyShapeTypes