diff options
| author | allen <allen@971fb155-194f-0410-9daf-e2eca44e59f5> | 2000-01-23 13:31:07 +0000 |
|---|---|---|
| committer | allen <allen@971fb155-194f-0410-9daf-e2eca44e59f5> | 2000-01-23 13:31:07 +0000 |
| commit | bb2ee246db9490b1564a0289261fa31ca3f11b01 (patch) | |
| tree | ffd646f60089a84004131b0bf2f475cd3c4ed0c1 | |
| parent | 7d1417aaaa1aa7cba3515b006e7d67657bc01b59 (diff) | |
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
| -rw-r--r-- | src/DistortedBHIVP.F | 8 | ||||
| -rw-r--r-- | 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 |