diff options
Diffstat (limited to 'src/Extract.F')
-rw-r--r-- | src/Extract.F | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/src/Extract.F b/src/Extract.F index e097471..c59cd1c 100644 --- a/src/Extract.F +++ b/src/Extract.F @@ -61,14 +61,14 @@ 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,iconv,ioutput + & il,im,it,ndet,idet,ioutput INTEGER,SAVE :: openfile = 1 INTEGER,PARAMETER :: & max_detectors = 9,number_timecoords = 2 CCTK_REAL,PARAMETER :: & two = 2.0D0 CCTK_REAL :: - & time,r1,r2,dr,r_max,xmin,xmax,ymin,ymax,zmin,zmax,gf_min,gf_max + & time,r1,r2,dr,r_max,xmin,xmax,ymin,ymax,zmin,zmax CCTK_REAL :: & detector(max_detectors) CHARACTER*100 :: @@ -78,7 +78,6 @@ c Local variables & timestring LOGICAL :: use_proper,use_coordinate,do_output - LOGICAL,SAVE :: firsttime CCTK_REAL,DIMENSION(10),SAVE :: proper_time CCTK_REAL,SAVE :: last_time INTEGER, save :: open_file_level(10) = 0 @@ -530,7 +529,6 @@ c Cannot use the conformal equation for ADM mass now IF (detector(idet) > r_max) THEN IF (openfile == 1 .OR. cctk_iteration == it) THEN call CCTK_WARN(8,"Removing detectors outside coordinate range") -c IF (iconv == 0) STOP END IF ndet =idet-1 GOTO 404 |