From bb568eb19331f243f79abc3a5b3e9331959c8773 Mon Sep 17 00:00:00 2001
From: diener <diener@f69c4107-0314-4c4f-9ad4-17e986b73f4a>
Date: Mon, 14 May 2007 15:30:14 +0000
Subject: Add a deallocate statement for the local allocatable arrays in case
 we encounter a F90 only compiler.

git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/SummationByParts/trunk@84 f69c4107-0314-4c4f-9ad4-17e986b73f4a
---
 src/set_norm_mask.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/set_norm_mask.F90 b/src/set_norm_mask.F90
index 3c892f0..267d7f8 100644
--- a/src/set_norm_mask.F90
+++ b/src/set_norm_mask.F90
@@ -86,6 +86,7 @@ subroutine SBP_SetNormMask (CCTK_ARGUMENTS)
     if (onesided(6)/=0) mask_z(nk:nk-np+1:-1) = bmask(1:np)
 
     nmask = outer_prod_3d ( mask_x, mask_y, mask_z )
+    deallocate ( mask_x, mask_y, mask_z )
   else
     nmask = 1.0_wp
   end if
-- 
cgit v1.2.3