diff options
| author | rhaas <rhaas@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2012-02-22 22:40:09 +0000 |
|---|---|---|
| committer | rhaas <rhaas@ef6f4158-a8ee-47d1-ba14-cb73256398e0> | 2012-02-22 22:40:09 +0000 |
| commit | 8863351bc9906db9ed06e4a58e99593b4e63e9d1 (patch) | |
| tree | 7c2a2b2eb21d0bb9da48064d63ccdb9db0f519be | |
| parent | cc396ab996df8be585ddb70c84c9b943002c99a5 (diff) | |
properly construct Fotran string from Cactus string for write() statement
git-svn-id: https://svn.cct.lsu.edu/repos/numrel/LSUThorns/QuasiLocalMeasures/trunk@37 ef6f4158-a8ee-47d1-ba14-cb73256398e0
| -rw-r--r-- | src/qlm_import_surface.F90 | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/qlm_import_surface.F90 b/src/qlm_import_surface.F90 index 18173db..1bb5500 100644 --- a/src/qlm_import_surface.F90 +++ b/src/qlm_import_surface.F90 @@ -14,8 +14,8 @@ subroutine qlm_import_surface (CCTK_ARGUMENTS, hn) DECLARE_CCTK_PARAMETERS integer :: hn - integer :: i, j, sn - character :: msg*1000 + integer :: i, j, sn, sname_length + character :: msg*1000, sname*200 if (veryverbose/=0) then call CCTK_INFO ("Importing surface shape") @@ -29,8 +29,10 @@ subroutine qlm_import_surface (CCTK_ARGUMENTS, hn) sn = sf_IdFromName(surface_index(hn), surface_name(hn)) + 1 if (verbose/=0 .or. veryverbose/=0) then - write (msg, '("Importing from spherical surface ",a," ",i4)') & - surface_name(hn), sn - 1 + call CCTK_FortranString(sname_length, surface_name(hn), sname) + ! no error checking since FortranString's truncation is sufficient + write (msg, '("Importing from spherical surface ",i4," ",a)') & + sn - 1, TRIM(sname) call CCTK_INFO (msg) end if |