From e1d4e52632ab27ce4fb79e47f899b3db1e24f10b Mon Sep 17 00:00:00 2001
From: tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129>
Date: Thu, 29 Jun 2000 14:00:32 +0000
Subject: Disable extract if itout is 0.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@16 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
---
 src/Extract.F | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Extract.F b/src/Extract.F
index c59cd1c..3bdc63b 100644
--- a/src/Extract.F
+++ b/src/Extract.F
@@ -105,6 +105,7 @@ c     0. Check to see if Extract should have been called
 c
 c     ------------------------------------------------------------------
 
+      IF (itout) .LE. 0) RETURN
       IF (MODULO(int(cctk_iteration),int(itout)) .NE. 0) RETURN
 
       if (verbose == 1) then
-- 
cgit v1.2.3