diff options
| author | schnetter <schnetter@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2005-05-20 21:45:02 +0000 |
|---|---|---|
| committer | schnetter <schnetter@0a4070d5-58f5-498f-b6c0-2693e757fa0f> | 2005-05-20 21:45:02 +0000 |
| commit | 5c4a2df0af4927748a8fa062a53f6dfb9bcf2fdf (patch) | |
| tree | 2c797509c190f2bb14928f8aa07bcae78ea8e231 | |
| parent | e20c593a8ea763e2d6c1b24ca56e9cfe4fc07e07 (diff) | |
Use "character(max_string_length)" instead of
"character*max_string_length", which is not legal Fortran. (The
syntax "character*(max_string_length)" would also be legal, but is
deprecated.)
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiBrillBH/trunk@70 0a4070d5-58f5-498f-b6c0-2693e757fa0f
| -rw-r--r-- | src/IDAxiBrillBH.F | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/IDAxiBrillBH.F b/src/IDAxiBrillBH.F index 7637776..9e15dab 100644 --- a/src/IDAxiBrillBH.F +++ b/src/IDAxiBrillBH.F @@ -69,13 +69,13 @@ c@@*/ integer, parameter :: max_string_length = 500 - integer param_table_handle, interp_handle - character*max_string_length :: message_buffer + integer param_table_handle, interp_handle + character(max_string_length) :: message_buffer - integer fstring_length - character*max_string_length :: interpolator_name_fstring - character*max_string_length :: interpolator_pars_fstring - character*max_string_length :: output_psi2D_file_name_fstring + integer fstring_length + character(max_string_length) :: interpolator_name_fstring + character(max_string_length) :: interpolator_pars_fstring + character(max_string_length) :: output_psi2D_file_name_fstring CCTK_REAL, dimension(2) :: coord_origin, coord_delta CCTK_POINTER, dimension(2) :: interp_coords |