diff options
| author | jthorn <jthorn@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2005-05-31 16:04:28 +0000 |
|---|---|---|
| committer | jthorn <jthorn@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2005-05-31 16:04:28 +0000 |
| commit | 3e2c4573354984d1b37ac05cf02bce67a4d3933f (patch) | |
| tree | 1a995152e77797d9f4300832a80e11554f3285cb | |
| parent | d70d7eb0fcf42ee8ec7135bf54492d00021f6a40 (diff) | |
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
| -rw-r--r-- | src/IDAxiBrillBH.F | 10 |
1 files 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 |