From bb2ee246db9490b1564a0289261fa31ca3f11b01 Mon Sep 17 00:00:00 2001
From: allen <allen@971fb155-194f-0410-9daf-e2eca44e59f5>
Date: Sun, 23 Jan 2000 13:31:07 +0000
Subject: Removing ' to please linux compiler

Fixing include lines to look in currect directory for .x files


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@6 971fb155-194f-0410-9daf-e2eca44e59f5
---
 src/DistortedBHIVP.F | 8 ++++----
 src/Stab3d.F         | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/DistortedBHIVP.F b/src/DistortedBHIVP.F
index a9234a5..983b5e5 100644
--- a/src/DistortedBHIVP.F
+++ b/src/DistortedBHIVP.F
@@ -131,7 +131,7 @@ c
       do k = 1,np
          do j = 1,nq
             do i = 1,ne
-#include "CactusEinstein/DistortedBHIVP/src/qfunc.x"
+#include "qfunc.x"
             enddo
          enddo
       enddo
@@ -602,9 +602,9 @@ c     Compute eta,q,phi at the each points of cartesian grid
          do j=1,ny
             do i=1,nx
 c     psix = \partial psi / \partial x / psi
-#include "CactusEinstein/DistortedBHIVP/src/psi_1st_deriv.x"
+#include "psi_1st_deriv.x"
 c     psixx = \partial^2\psi / \partial x^2 / psi
-#include "CactusEinstein/DistortedBHIVP/src/psi_2nd_deriv.x"
+#include "psi_2nd_deriv.x"
             enddo
          enddo
       enddo
@@ -618,7 +618,7 @@ c
       do k=1,nz
          do j=1,ny
             do i=1,nx
-#include "CactusEinstein/DistortedBHIVP/src/gij.x"
+#include "gij.x"
             enddo
          enddo
       enddo
diff --git a/src/Stab3d.F b/src/Stab3d.F
index 1aaa7da..e68802b 100644
--- a/src/Stab3d.F
+++ b/src/Stab3d.F
@@ -249,7 +249,7 @@ c
 c This routine was lifted from stab.f. Minor modifications have
 c been made.
 c
-c Be careful that the c's are zero on their outer boundary!!
+c Be careful that the cs are zero on their outer boundary!!
 c
       implicit none
 c
-- 
cgit v1.2.3