From b60dfdac54e49f341df3ad8562d69090f42b9c1a Mon Sep 17 00:00:00 2001
From: shawley <>
Date: Wed, 27 Feb 2002 17:57:00 +0000
Subject: replaced typo for phi_p and phi_p_p using 1/r data

darcs-hash:20020227175754-e415b-4afb8395ce7c50e70d205fa5b66089cee2f2bd86.gz
---
 CarpetExtra/IDScalarWave/src/InitialData.F77 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'CarpetExtra')

diff --git a/CarpetExtra/IDScalarWave/src/InitialData.F77 b/CarpetExtra/IDScalarWave/src/InitialData.F77
index 61576828f..4b6e7f04e 100644
--- a/CarpetExtra/IDScalarWave/src/InitialData.F77
+++ b/CarpetExtra/IDScalarWave/src/InitialData.F77
@@ -1,5 +1,5 @@
 c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/InitialData.F77,v 1.10 2002/02/27 18:54:13 shawley Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/CarpetExtra/IDScalarWave/src/InitialData.F77,v 1.11 2002/02/27 18:57:54 shawley Exp $
 
  /*@@
    @file      InitialData.F77
@@ -143,8 +143,8 @@ c        Use kx,ky,kz as number of modes in each direction.
                   z = cart3d_z(i,j,k)
 
                   phi(i,j,k)     = 1 / sqrt((x-cx)**2 + (y-cy)**2 + (z-cz)**2)
-                  phi_p(i,j,k)   = 1 / phi(i,j,k)
-                  phi_p_p(i,j,k) = 1 / phi(i,j,k)
+                  phi_p(i,j,k)   = phi(i,j,k)
+                  phi_p_p(i,j,k) = phi(i,j,k)
                   
                end do
             end do
-- 
cgit v1.2.3