User: knarf Date: 2010/05/04 01:56 PM
Modified: /trunk/src/ IDAxiBrillBH.F
Log: correct include file paths (the crude way(
File Changes:
Directory: /trunk/src/ ======================
File [modified]: IDAxiBrillBH.F Delta lines: +4 -4 =================================================================== --- trunk/src/IDAxiBrillBH.F 2010-03-16 22:18:33 UTC (rev 108) +++ trunk/src/IDAxiBrillBH.F 2010-05-04 18:56:12 UTC (rev 109) @@ -197,7 +197,7 @@ qgrd(j) = (j-1.5d0)*dq do i=1,neb etagrd(i) = (i-2)*deta -#include "CactusEinstein/IDAxiBrillBH/src/bhbrill.x" +#include "EinsteinInitialData/IDAxiBrillBH/src/bhbrill.x" enddo enddo c Boundary conditions @@ -499,10 +499,10 @@ do j=1,ny do i=1,nx c psix = \partial psi / \partial x / psi -#include "CactusEinstein/IDAxiBrillBH/src/psi_1st_deriv.x" +#include "EinsteinInitialData/IDAxiBrillBH/src/psi_1st_deriv.x"
c psixx = \partial^2\psi / \partial x^2 / psi -#include "CactusEinstein/IDAxiBrillBH/src/psi_2nd_deriv.x" +#include "EinsteinInitialData/IDAxiBrillBH/src/psi_2nd_deriv.x" enddo enddo enddo @@ -514,7 +514,7 @@ c gxx = ... c Derivatives of the metric (currently commented-out) c dxgxx = 1/2 \partial gxx / \partial x -#include "CactusEinstein/IDAxiBrillBH/src/gij.x" +#include "EinsteinInitialData/IDAxiBrillBH/src/gij.x"
if (r(i,j,k) < 1.0d-10) then