From 92c06fdb18b54cbc4f8fd35c258c186d61c90975 Mon Sep 17 00:00:00 2001
From: ryoji <ryoji@535fb057-194f-0410-b5a5-c63992f15602>
Date: Tue, 23 Oct 2001 11:40:56 +0000
Subject: should pass testsuite now.

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@25 535fb057-194f-0410-b5a5-c63992f15602
---
 src/RotatingDBHIVP.F | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/RotatingDBHIVP.F b/src/RotatingDBHIVP.F
index 21a307b..8582934 100644
--- a/src/RotatingDBHIVP.F
+++ b/src/RotatingDBHIVP.F
@@ -142,8 +142,8 @@ c
       do k = 1,np
          do j = 1,nq
             do i = 1,ne
-#include "Development/RotatingDBHIVP/src/gauss.x"
-#include "Development/RotatingDBHIVP/src/ksq_odd.x"
+#include "gauss.x"
+#include "ksq_odd.x"
             enddo
          enddo
       enddo
@@ -686,10 +686,10 @@ c
          do j=1,ny
             do i=1,nx
 c     psix = \partial psi / \partial x / psi
-#include "Development/RotatingDBHIVP/src/psi_1st_deriv.x"
+#include "psi_1st_deriv.x"
                
 c     psixx = \partial^2\psi / \partial x^2 / psi
-#include "Development/RotatingDBHIVP/src/psi_2nd_deriv.x"
+#include "psi_2nd_deriv.x"
             enddo
          enddo
       enddo
@@ -703,7 +703,7 @@ c
       do k= 1,nz
          do j= 1,ny
             do i= 1,nx
-#include "Development/RotatingDBHIVP/src/gij.x"
+#include "gij.x"
             enddo
          enddo
       enddo
@@ -711,8 +711,8 @@ c     Extrinsic Curvture:Cactus only needs physical extrinsic curvature
       do k= 1,nz
          do j= 1,ny
             do i= 1,nx 
-#include "Development/RotatingDBHIVP/src/cgauss.x"
-#include "Development/RotatingDBHIVP/src/kij_odd.x"
+#include "cgauss.x"
+#include "kij_odd.x"
             enddo
          enddo
       enddo
-- 
cgit v1.2.3