Adding a deallocation method for CAD pointer.

src/cad.cpp

@@ -41,3 +41,8 @@ void load_cad_geometry_c()
 
   return;
 }
+
+void dealloc_cad_c()
+{
+  delete DAGMC;
+}

src/cad.h

@@ -6,5 +6,6 @@
 #include "surface.h"
 
 extern "C" void load_cad_geometry_c();
+extern "C" void dealloc_cad_c();
 
 #endif // CAD_H

src/cad_header.F90

@@ -8,12 +8,20 @@ module cad_header
   interface
      subroutine load_cad_geometry_c() bind(C)
      end subroutine load_cad_geometry_c
+
+     subroutine dealloc_cad_c() bind(C)
+     end subroutine dealloc_cad_c
+
   end interface
-     
+
 contains
 
   subroutine load_cad_geometry()
     call load_cad_geometry_c()
   end subroutine load_cad_geometry
-  
+
+  subroutine dealloc_cad()
+    call dealloc_cad_c()
+  end subroutine dealloc_cad
+
 end module cad_header