From 3e2c4573354984d1b37ac05cf02bce67a4d3933f Mon Sep 17 00:00:00 2001
From: jthorn <jthorn@0a4070d5-58f5-498f-b6c0-2693e757fa0f>
Date: Tue, 31 May 2005 16:04:28 +0000
Subject: Fortran apparently requires an explicit field width for I format --> 
 s/ write (A,I) ... / write (A,I8) ... /

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiBrillBH/trunk@72 0a4070d5-58f5-498f-b6c0-2693e757fa0f
---
 src/IDAxiBrillBH.F | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/IDAxiBrillBH.F b/src/IDAxiBrillBH.F
index b4784de..f6553cb 100644
--- a/src/IDAxiBrillBH.F
+++ b/src/IDAxiBrillBH.F
@@ -128,7 +128,7 @@ c
      $            (param_table_handle,
      $             interpolator_pars_fstring(1:fstring_length))
       if (param_table_handle .lt. 0) then
-        write(message_buffer, '(A,I)')
+        write(message_buffer, '(A,I8)')
      $      'failed to create interpolator param table: error code ',
      $      param_table_handle
         call CCTK_WARN(CCTK_WARN_ABORT, message_buffer)
@@ -230,7 +230,7 @@ c
 c The solution is (hopefully) now available.
 c
       if(ier .ne. 0) then
-         write(message_buffer, '(A,I)')
+         write(message_buffer, '(A,I8)')
      $      'failed to solve elliptic equation: ier=', ier
          call CCTK_WARN(CCTK_WARN_ABORT, message_buffer)
       end if
@@ -357,7 +357,7 @@ c
          open (9, iostat=io_status, status='replace',
      $         file=output_psi2D_file_name_fstring)
          if (io_status .ne. 0) then 
-            write (message_buffer, '(A,A,A,I)')
+            write (message_buffer, '(A,A,A,I8)')
      $            'error opening psi2D output file "',
      $            output_psi2D_file_name_fstring(1:fstring_length),
      $            '": io_status=', io_status
@@ -379,7 +379,7 @@ c
 
          close (9, iostat=io_status)
          if (io_status .ne. 0) then 
-            write(message_buffer, '(A,I)')
+            write(message_buffer, '(A,I8)')
      $         'error closing psi2D output file: io_status=', io_status
             call CCTK_WARN(CCTK_WARN_ABORT, message_buffer)
          endif
@@ -478,7 +478,7 @@ c set up the interpolator array pointers
      $                              6, in_array_dims, type_codes, in_arrays,
      $                              6, type_codes, out_arrays)
       if (ierror < 0) then
-        write(message_buffer, '(A,I)')
+        write(message_buffer, '(A,I8)')
      $      'error in interpolator: ierror=', ierror
         call CCTK_WARN(CCTK_WARN_ABORT, message_buffer)
       endif
-- 
cgit v1.2.3