diff options
| author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-03-10 15:42:58 +0000 |
|---|---|---|
| committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-03-10 15:42:58 +0000 |
| commit | d10b53eb95acb7f525653c5f477ff8483f9b22fa (patch) | |
| tree | 980cece0ece7945441a519c31ec76c5730b0ded0 | |
| parent | a8effa46eaba661f4349f2cfb50247601949d1fe (diff) | |
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
| -rw-r--r-- | src/Extract.F | 3 |
1 files changed, 2 insertions, 1 deletions
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 |