From a85df6dd98dc36ede49901ac929b7cd497495932 Mon Sep 17 00:00:00 2001
From: goodale <goodale@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129>
Date: Fri, 15 Dec 2000 02:09:13 +0000
Subject: T3E doesn't like MODULO, MOD works, 'though.

Tom


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

(limited to 'src')

diff --git a/src/Extract.F b/src/Extract.F
index b1c0f23..6868a93 100644
--- a/src/Extract.F
+++ b/src/Extract.F
@@ -106,7 +106,7 @@ c
 c     ------------------------------------------------------------------
 
       IF ((itout) .LE. 0) RETURN
-      IF (MODULO(int(cctk_iteration),int(itout)) .NE. 0) RETURN
+      IF(MOD(int(cctk_iteration),int(itout)) .NE. 0) RETURN 
 
       if (verbose == 1) then
          write(infoline,'(A24,G12.7)') 
-- 
cgit v1.2.3