From 043a28126be50ae3cd06b456e487c22bb48f7e64 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Tue, 8 Jul 2003 21:02:00 +0000
Subject: Remove unused variables.

darcs-hash:20030708210219-07bb3-03be634af693a15b84dbfb31696e5813379ac2d9.gz
---
 CarpetExtra/IDFOScalarWave/src/InitialData.F77 | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'CarpetExtra')

diff --git a/CarpetExtra/IDFOScalarWave/src/InitialData.F77 b/CarpetExtra/IDFOScalarWave/src/InitialData.F77
index f71eefd32..cfc740ccf 100644
--- a/CarpetExtra/IDFOScalarWave/src/InitialData.F77
+++ b/CarpetExtra/IDFOScalarWave/src/InitialData.F77
@@ -1,5 +1,5 @@
 c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/InitialData.F77,v 1.6 2003/06/27 15:54:58 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/InitialData.F77,v 1.7 2003/07/08 23:02:19 schnetter Exp $
 
  /*@@
    @file      InitialData.F77
@@ -41,7 +41,6 @@ c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDFOScalarWave/src/Ini
       INTEGER    i,j,k
       CCTK_REAL  dt,omega, cpi
       CCTK_REAL  ri3
-      CCTK_REAL  dxi,dyi,dzi
       
 c     call CCTK_INFO ("IDFOScalarWave_InitialData")
       
@@ -233,10 +232,6 @@ c        Use kx,ky,kz as number of modes in each direction.
 
       else if (CCTK_EQUALS(initial_data, "1/r")) then
   
-         dxi = 1/CCTK_DELTA_SPACE(1)
-         dyi = 1/CCTK_DELTA_SPACE(2)
-         dzi = 1/CCTK_DELTA_SPACE(3)
-
          do k=1,cctk_lsh(3)
             do j=1,cctk_lsh(2)
                do i=1,cctk_lsh(1)
-- 
cgit v1.2.3