Removing warnings

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@13 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129

5 files changed, 12 insertions, 14 deletions

diff --git a/src/D2_extract.F b/src/D2_extract.F
index 3b24ae0..780fe19 100644
--- a/src/D2_extract.F
+++ b/src/D2_extract.F
@@ -65,8 +65,8 @@ c     Local Variables
      &     g22comb,g23comb,g33comb,S,rsch2,Lambda,
      &     Pi,
      &     fac_h1,fac_H2,fac_K,fac_G,fac_c1,fac_c2,
-     &     fac_dG,fac_dK,fac_dc2,fac1,fac2,fac3,max_g11,
-     &     sph_g11,sph_g22,sph_g33,sph_dg22,sph_dg33,error,
+     &     fac_dG,fac_dK,fac_dc2,
+     &     sph_g11,sph_g22,sph_g33,sph_dg22,
      &     sphere_int
       CCTK_REAL,DIMENSION(2) :: 
      &     Y,Y1,Y2,Y3,Y4,h1,H2,K,G,c1,c2,dG,dK,dc2
@@ -626,7 +626,7 @@ c     Output variables
 
 c     Local variables
       INTEGER ::
-     &   i,j,Np_start
+     &   i,j
       CCTK_REAL :: 
      &   ft(Nt),fp(Np)
       CCTK_REAL,PARAMETER ::
diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F
index 74c3cdb..c9ccf5e 100644
--- a/src/D3_to_D2.F
+++ b/src/D3_to_D2.F
@@ -328,7 +328,7 @@ c     Calculate integrands for spin
 c     -----------------------------
       IF (do_spin==1) THEN
 
-         CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z,
+         CALL spin_integrand3D(origin,x,y,z,
      &        gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz,
      &        Extract_temp3d,Psi,Psi_power)
          CALL CCTK_SyncGroup(cctkGH,"extract::temps")
@@ -344,7 +344,7 @@ c     -----------------------------
      $        CCTK_VARIABLE_REAL
      $        )
 
-         CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z,
+         CALL spin_integrand3D(origin,x,y,z,
      &        gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz,
      &        Extract_temp3d,Psi,Psi_power)
          CALL CCTK_SyncGroup(cctkGH,"extract::temps")
@@ -361,7 +361,7 @@ c     -----------------------------
      $        )
 
 
-         CALL spin_integrand3D(origin,Dx,Dy,Dz,x,y,z,
+         CALL spin_integrand3D(origin,x,y,z,
      &        gxx,gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz,
      &        Extract_temp3d,Psi,Psi_power)
          CALL CCTK_SyncGroup(cctkGH,"extract::temps")
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
diff --git a/src/spin_integrand3D.F b/src/spin_integrand3D.F
index 3f1afc3..cf617d8 100644
--- a/src/spin_integrand3D.F
+++ b/src/spin_integrand3D.F
@@ -3,7 +3,7 @@
 
 c     ========================================================================
 
-      SUBROUTINE spin_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx,gxy,gxz,
+      SUBROUTINE spin_integrand3D(origin,x,y,z,gxx,gxy,gxz,
      &     gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz,
      &     spin_int,Psi,Psi_power)
 
@@ -21,7 +21,7 @@ c     Input variables
       INTEGER,INTENT(IN) ::
      &     Psi_power
       CCTK_REAL,INTENT(IN) :: 
-     &     Dx,Dy,Dz,origin(3)
+     &     origin(3)
       CCTK_REAL,DIMENSION(:),INTENT(IN) :: 
      &     x,y,z
       CCTK_REAL,DIMENSION(:,:,:),INTENT(IN) :: 
diff --git a/src/spin_integrand3D_int.F b/src/spin_integrand3D_int.F
index cb2a1ca..1a31c78 100644
--- a/src/spin_integrand3D_int.F
+++ b/src/spin_integrand3D_int.F
@@ -7,7 +7,7 @@ c     ------------------------------------------------------------------
 
       INTERFACE
 
-          SUBROUTINE  spin_integrand3D(origin,Dx,Dy,Dz,x,y,z,gxx,
+          SUBROUTINE  spin_integrand3D(origin,x,y,z,gxx,
      &        gxy,gxz,gyy,gyz,gzz,hxx,hxy,hxz,hyy,hyz,hzz,spin_int,
      &        Psi,Psi_power)
 
@@ -15,7 +15,7 @@ c     ------------------------------------------------------------------
           INTEGER,INTENT(IN) ::
      &         Psi_power
           CCTK_REAL,INTENT(IN) :: 
-     &        Dx,Dy,Dz,origin(3)
+     &        origin(3)
           CCTK_REAL,DIMENSION(:),INTENT(IN) :: 
      &        x,y,z
           CCTK_REAL,DIMENSION(:,:,:),INTENT(IN) ::