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/finishbrilldata.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/finishbrilldata.F')
| -rw-r--r-- | src/finishbrilldata.F | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/finishbrilldata.F b/src/finishbrilldata.F index 5efb886..17c66b1 100644 --- a/src/finishbrilldata.F +++ b/src/finishbrilldata.F @@ -31,8 +31,8 @@ c Numbers. - zero = 0.0D0 - one = 1.0D0 + zero = 0.0 + one = 1.0 c Replace flat metric left over from elliptic solve by c Brill metric calculated from q and Psi. @@ -50,7 +50,7 @@ c Brill metric calculated from q and Psi. phi = phif(x1,y1) - e2q = exp(2.d0*brillq(rho1,z1,phi)) + e2q = exp(2.0*brillq(rho1,z1,phi)) c Fudge division by rho^2 on axis. (Physically, y^/rho^2, c x^2/rho^2 and xy/rho^2 are of course regular.) |