From cdad12dda9a658fe213751cd59b4f7d136a1c663 Mon Sep 17 00:00:00 2001
From: tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129>
Date: Fri, 5 Nov 2004 11:17:23 +0000
Subject: Destroy the interpolation parameter table again when all the
 interpolation calls have finished. Fixes a (small) resource leak.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@100 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
---
 src/D3_to_D2.F | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F
index 73a41a8..b6f7138 100644
--- a/src/D3_to_D2.F
+++ b/src/D3_to_D2.F
@@ -545,4 +545,6 @@ c         print*,'23 done'
 
       END IF
 
+      call Util_TableDestroy (ierror, param_table_handle)
+
       END SUBROUTINE D3_to_D2
-- 
cgit v1.2.3