diff options
author | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-04-19 22:28:39 +0000 |
---|---|---|
committer | allen <allen@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2000-04-19 22:28:39 +0000 |
commit | 1ee240a4812668fedc902d14182344e42fd56c09 (patch) | |
tree | babf12fc4eb60237747676ebcab2dbce0551c99a /src/Extract.F | |
parent | d10b53eb95acb7f525653c5f477ff8483f9b22fa (diff) |
Removing warnings
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@13 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
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 |