diff options
| author | eschnett <eschnett@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2013-10-30 15:20:38 +0000 |
|---|---|---|
| committer | eschnett <eschnett@a678b1cf-93e1-4b43-a69d-d43939e66649> | 2013-10-30 15:20:38 +0000 |
| commit | 445e2850879ea9da712bda3cd5aee7a9de4b294a (patch) | |
| tree | 75a8a0e7e0e21e32e77479a87074f989f0813f83 /src/setupbrilldata2D.F | |
| parent | 21f2f0f02ce20a45b0033aa6c3ec424dc74b9217 (diff) | |
Make code compile when CCTK_REAL is real*4svn
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDBrillData/trunk@129 a678b1cf-93e1-4b43-a69d-d43939e66649
Diffstat (limited to 'src/setupbrilldata2D.F')
| -rw-r--r-- | src/setupbrilldata2D.F | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/setupbrilldata2D.F b/src/setupbrilldata2D.F index cdc722c..01bf379 100644 --- a/src/setupbrilldata2D.F +++ b/src/setupbrilldata2D.F @@ -33,7 +33,6 @@ c f DECLARE_CCTK_PARAMETERS integer i,j,k - integer ierr CCTK_REAL x1,y1,z1,rho1 CCTK_REAL brillq,eps @@ -87,12 +86,12 @@ c will not be regular on the axis. rhop = rho1 + eps rhom = rho1 - eps - brillMlinear(i,j,k) = 0.25D0 + brillMlinear(i,j,k) = 0.25 . *(brillq(rho1,zp,zero) . + brillq(rho1,zm,zero) . + brillq(rhop,z1,zero) . + brillq(rhom,z1,zero) - . - 4.0D0*brillq(rho1,z1,zero))/eps**2 + . - 4.0*brillq(rho1,z1,zero))/eps**2 brillNsource(i,j,k) = zero |