diff options
| author | ryoji <ryoji@535fb057-194f-0410-b5a5-c63992f15602> | 2001-10-23 11:40:56 +0000 |
|---|---|---|
| committer | ryoji <ryoji@535fb057-194f-0410-b5a5-c63992f15602> | 2001-10-23 11:40:56 +0000 |
| commit | 92c06fdb18b54cbc4f8fd35c258c186d61c90975 (patch) | |
| tree | ea67ec65201b9daa620b738031dbad8175b8f8e4 /src | |
| parent | 3ee31534e8a67d84d747020e15aa901854feed25 (diff) | |
should pass testsuite now.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@25 535fb057-194f-0410-b5a5-c63992f15602
Diffstat (limited to 'src')
| -rw-r--r-- | src/RotatingDBHIVP.F | 14 |
1 files changed, 7 insertions, 7 deletions
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 |