From b3acf406214ff2c8118275bc011b299b8ee4256c Mon Sep 17 00:00:00 2001 From: tradke 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/EinsteinInitialData/IDAxiBrillBH/trunk@66 0a4070d5-58f5-498f-b6c0-2693e757fa0f --- src/IDAxiBrillBH.F | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/IDAxiBrillBH.F b/src/IDAxiBrillBH.F index a80b16e..52dfe3d 100644 --- a/src/IDAxiBrillBH.F +++ b/src/IDAxiBrillBH.F @@ -307,6 +307,8 @@ c phi(i,j,k)= datan2(y(i,j,k),x(i,j,k)) $ 6, in_array_dims, type_codes, in_arrays, $ 6, type_codes, out_arrays) + call Util_TableDestroy (ierror, param_table_handle) + psi = psi2dv * exp (-0.5 * eta) detapsi2dv = sign_eta * detapsi2dv detaqpsi2dv = sign_eta * detaqpsi2dv -- cgit v1.2.3