diff options
| author | tradke <tradke@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2004-11-05 11:17:23 +0000 |
|---|---|---|
| committer | tradke <tradke@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2004-11-05 11:17:23 +0000 |
| commit | b3acf406214ff2c8118275bc011b299b8ee4256c (patch) | |
| tree | de2ecb35bef1e04b3e7159767b9e112ec0ef6b63 | |
| parent | 7a065d79f8f7aa2711caeb3db6c169764caabe55 (diff) | |
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
| -rw-r--r-- | src/IDAxiBrillBH.F | 2 |
1 files changed, 2 insertions, 0 deletions
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 |