From d10b53eb95acb7f525653c5f477ff8483f9b22fa Mon Sep 17 00:00:00 2001
From: allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129>
Date: Fri, 10 Mar 2000 15:42:58 +0000
Subject: integer -> CCTK_INT for T3E

Fix for CactusEinstein/270


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

diff --git a/src/Extract.F b/src/Extract.F
index a7a2248..e097471 100644
--- a/src/Extract.F
+++ b/src/Extract.F
@@ -58,9 +58,10 @@ c     Output variables from D3_extract
  
 c     Local variables
 
+      CCTK_INT :: nchar
       INTEGER :: 
      &     ix,iy,iz,fn1,fn2,lmin,lmax,mmin,mmax,lstep,mstep,
-     &     il,im,it,ndet,idet,nx_parfile,nchar,iconv,ioutput
+     &     il,im,it,ndet,idet,nx_parfile,iconv,ioutput
       INTEGER,SAVE :: openfile = 1
       INTEGER,PARAMETER ::
      &     max_detectors = 9,number_timecoords = 2
-- 
cgit v1.2.3