diff options
| author | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-12-10 16:56:34 +0000 |
|---|---|---|
| committer | jthorn <jthorn@e296648e-0e4f-0410-bd07-d597d9acff87> | 2003-12-10 16:56:34 +0000 |
| commit | e245d4d4fd5ecb46b4586cab30645df41821b68f (patch) | |
| tree | 52db110bff44ce10bf91ae6b28abea40b4e2cffc /src | |
| parent | 8b60680f115a4a2442d8118f05d75ae12ed5957a (diff) | |
fix a glitch spotted by Scott Hawley, where...
> The NAG fortran compiler hates a line in Exact/metrics/bowl.F77
> where a warning statement has a format for an integer, but the number
> of spaces allowed for the printing of the integer is not specified. I
> put in an "8" (8 spaces) for this, and the compiler loved it.
n.b. this only changes formatting of a level 0 error msg -- there's no
change in this thorn's behavior
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/Exact/trunk@195 e296648e-0e4f-0410-bd07-d597d9acff87
Diffstat (limited to 'src')
| -rw-r--r-- | src/metrics/bowl.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/metrics/bowl.F77 b/src/metrics/bowl.F77 index 100d5e2..e70aad3 100644 --- a/src/metrics/bowl.F77 +++ b/src/metrics/bowl.F77 @@ -194,7 +194,7 @@ c I use the same trick as above. rr2 = (one - a*fac/(one + dexp(-s*(r-c)))/r)**2 else - write (warn_buffer, '(a,i)') + write (warn_buffer, '(a,i8)') $ 'Unknown type = ', type call CCTK_WARN(0, warn_buffer) |