From 7d1417aaaa1aa7cba3515b006e7d67657bc01b59 Mon Sep 17 00:00:00 2001
From: ryoji <ryoji@971fb155-194f-0410-9daf-e2eca44e59f5>
Date: Wed, 12 Jan 2000 17:00:55 +0000
Subject: fix typo Still trouble in alpha

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@5 971fb155-194f-0410-9daf-e2eca44e59f5
---
 src/DistortedBHIVP.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/DistortedBHIVP.F b/src/DistortedBHIVP.F
index 9682cf4..a9234a5 100644
--- a/src/DistortedBHIVP.F
+++ b/src/DistortedBHIVP.F
@@ -61,7 +61,7 @@ c     Perhaps this and others should go into cctk.h
      $     o63,o64,o65,o66,o67
       real*8 rmax,adm
       real*8,parameter :: dbh_eps = 1.0d-9
-      real*8 r,pi
+      real*8 pi
       integer :: nx,ny,nz
       integer i,j,k,ier,nquads,nocts,order
       integer npoints,handle,ierror
-- 
cgit v1.2.3