From d4ba2773b3161013c4bb2a450840d577db9bd1d5 Mon Sep 17 00:00:00 2001
From: tradke <tradke@89daf98e-ef62-4674-b946-b8ff9de2216c>
Date: Tue, 4 Jun 2002 09:43:30 +0000
Subject: Initialize ahfmask each time storage was switched on. This fixes core
 dumps in the testsuites on the T3E and DEC Alphas.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@308 89daf98e-ef62-4674-b946-b8ff9de2216c
---
 src/AHFinder.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/AHFinder.F b/src/AHFinder.F
index 9abcc1f..364e301 100644
--- a/src/AHFinder.F
+++ b/src/AHFinder.F
@@ -95,7 +95,7 @@
 !     sure that the mask is 1 and not 0 in case some other
 !     thorn wants to use it.
 
-      if (cctk_iteration.eq.0) then
+      if (cctk_iteration.eq.0 .or. CCTK_EQUALS(ahf_mask, "off")) then
          ahmask = one
       end if
 
-- 
cgit v1.2.3