diff options
| author | allen <allen@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2002-05-05 20:47:30 +0000 |
|---|---|---|
| committer | allen <allen@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2002-05-05 20:47:30 +0000 |
| commit | 5c1af29c4b9500710c9f4ab6a2a2ffd2bedf4ed3 (patch) | |
| tree | b729829b26f6acb05a244f78bce2c4405abcc5bf | |
| parent | 1fab9bf37aaccac77d22eef0067df76e88e7e58a (diff) | |
nclude files need to be from new arangement temporarily
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiBrillBH/trunk@43 0a4070d5-58f5-498f-b6c0-2693e757fa0f
| -rw-r--r-- | src/IDAxiBrillBH.F | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/IDAxiBrillBH.F b/src/IDAxiBrillBH.F index d9bc0af..6cb5e44 100644 --- a/src/IDAxiBrillBH.F +++ b/src/IDAxiBrillBH.F @@ -112,7 +112,7 @@ c Initialize some arrays qgrd(j) = (j-1.5)*dq do i=1,neb etagrd(i) = (i-2)*deta -#include "CactusEinstein/IDAxiBrillBH/src/bhbrill.x" +#include "CactusEinstein2/IDAxiBrillBH/src/bhbrill.x" enddo enddo c Boundary conditions @@ -295,12 +295,12 @@ c psi(i,j,k) = psi2dv(i,j,k)*exp(-0.5*eta(i,j,k)) c detapsi2dv(i,j,k) = sign_eta(i,j,k)*detapsi2dv(i,j,k) c psix = \partial psi / \partial x / psi -#include "CactusEinstein/IDAxiBrillBH/src/psi_1st_deriv.x" +#include "CactusEinstein2/IDAxiBrillBH/src/psi_1st_deriv.x" c detaqpsi2dv(i,j,k) = sign_eta(i,j,k)*detaqpsi2dv(i,j,k) c psixx = \partial^2\psi / \partial x^2 / psi -#include "CactusEinstein/IDAxiBrillBH/src/psi_2nd_deriv.x" +#include "CactusEinstein2/IDAxiBrillBH/src/psi_2nd_deriv.x" enddo enddo enddo @@ -318,7 +318,7 @@ c THESE WERE ALREADY CALCULATED ABOVE !!! c eta(i,j,k) = 0.5d0*dlog(x(i,j,k)**2+y(i,j,k)**2+z(i,j,k)**2) c q(i,j,k) = datan2(sqrt(x(i,j,k)**2+y(i,j,k)**2),z(i,j,k)) c phi(i,j,k) = datan2(y(i,j,k),x(i,j,k)) -#include "CactusEinstein/IDAxiBrillBH/src/gij.x" +#include "CactusEinstein2/IDAxiBrillBH/src/gij.x" enddo enddo enddo |