diff options
author | miguel <miguel@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-10-04 23:22:26 +0000 |
---|---|---|
committer | miguel <miguel@e296648e-0e4f-0410-bd07-d597d9acff87> | 2002-10-04 23:22:26 +0000 |
commit | db2a1f8fa2376f34ca57ea160cb911c7aec22ebb (patch) | |
tree | dd44c040582f643902d9436ed860f1b7eabb5431 /src/metric.F | |
parent | c62ae473e50a93b1fec26c1043b459df26daf0b4 (diff) |
Fixed a Fortran printing format that was not compiling properly.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@129 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src/metric.F')
-rw-r--r-- | src/metric.F | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/metric.F b/src/metric.F index 4b5753a..23797f7 100644 --- a/src/metric.F +++ b/src/metric.F @@ -30,7 +30,7 @@ c arguments c local variables character*100 warn_buffer -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c Minkowski spacetime @@ -68,7 +68,7 @@ c $ gutt, gutx, guty, gutz, $ guxx, guyy, guzz, guxy, guyz, guxz) -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c black hole spacetimes @@ -149,7 +149,7 @@ c $ gutt, gutx, guty, gutz, $ guxx, guyy, guzz, guxy, guyz, guxz) -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c cosmological spacetimes @@ -251,7 +251,7 @@ c $ gutt, gutx, guty, gutz, $ guxx, guyy, guzz, guxy, guyz, guxz) -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c c miscellaneous spacetimes @@ -281,10 +281,10 @@ c $ gutt, gutx, guty, gutz, $ guxx, guyy, guzz, guxy, guyz, guxz) -cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc +cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc else - write (warn_buffer, '(a,i)') + write (warn_buffer, '(a,i8)') $ 'Unknown decoded_exact_model = ', decoded_exact_model call CCTK_WARN(0, warn_buffer) endif |