From 8354c54589053154324c795165705759a8af8dfb Mon Sep 17 00:00:00 2001 From: allen Date: Wed, 21 Aug 2002 15:54:37 +0000 Subject: Patch for CCTK_INFO lines from Erik Schnetter demonstrating mastery of F77 string and formating commands. Closes Cactus/1207 git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@53 41e88fdd-2190-4c69-9c84-4659c8cf322e --- src/SourceData.F77 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/SourceData.F77 b/src/SourceData.F77 index e67fe96..1bdfe37 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -104,7 +104,7 @@ c Set parameters for specific solvers end if write(infoline,'("Going into elliptic solver ",A)') fsolver - call CCTK_INFO(trim(infoline)) + call CCTK_INFO(infoline(1:len_rim(infoline))) c Call elliptic solver to fill out phi @@ -123,9 +123,8 @@ c Call elliptic solver to fill out phi else if (ierr .eq. ELL_NOSOLVER) then call CCTK_INFO("Elliptic solver not found") else - write(infoline,'(A45,I3,A)') - & "Leaving elliptic solver: solve failed (Error ",ierr,")" - call CCTK_INFO(infoline) + write(infoline,'("Leaving elliptic solver: solve failed (Error ",I3,")")') ierr + call CCTK_INFO(infoline(1:len_trim(infoline))) end if c Set up last timestep ... assume (first order) time symmetry -- cgit v1.2.3