diff options
| -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 |