diff options
| author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2004-11-05 11:17:23 +0000 |
|---|---|---|
| committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2004-11-05 11:17:23 +0000 |
| commit | cdad12dda9a658fe213751cd59b4f7d136a1c663 (patch) | |
| tree | be1cdb707e67bcae198e24002ee0e2c1144da366 | |
| parent | 7a277abc90d5965c75b5f6cc7d901881b92c6bd7 (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/EinsteinAnalysis/Extract/trunk@100 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
| -rw-r--r-- | src/D3_to_D2.F | 2 |
1 files changed, 2 insertions, 0 deletions
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 |