diff options
| author | allen <allen@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-08-09 19:20:06 +0000 |
|---|---|---|
| committer | allen <allen@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-08-09 19:20:06 +0000 |
| commit | 85aaf9998dec1043df43f3b467f45e8e7987f772 (patch) | |
| tree | c0f202771e14d574b643efa086b39efb3d8ae57e /src | |
| parent | 956c7f155691fc0faa430b02502ce80591177982 (diff) | |
CCTK_WARN needs to be on one line for the origin C preprocessor not to
error in Fortran on the origin.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@122 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
| -rw-r--r-- | src/metrics/Kerr_KerrSchild.F | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/metrics/Kerr_KerrSchild.F b/src/metrics/Kerr_KerrSchild.F index 870dfcf..3561612 100644 --- a/src/metrics/Kerr_KerrSchild.F +++ b/src/metrics/Kerr_KerrSchild.F @@ -73,8 +73,7 @@ C Spherical auxiliary coordinate r and angle theta in BH rest frame. r02 = 0.5d0 * (rho02 - a**2) $ + sqrt(0.25d0 * (rho02 - a**2)**2 + a**2 * z0**2) if (r02 .lt. eps) then - call CCTK_WARN(R02_TOO_SMALL_WARN_LEVEL, - $ 'Kerr/Kerr-Schild: r02 is too small at relative position') + call CCTK_WARN(R02_TOO_SMALL_WARN_LEVEL,'Kerr/Kerr-Schild: r02 is too small at relative position') write(warn_buffer, '(a,f8.3, a,f8.3, a,f8.3)') $ ' x0=',x0, ' y0=',y0, ' z0=',z0 |