diff options
author | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2002-08-21 15:54:37 +0000 |
---|---|---|
committer | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2002-08-21 15:54:37 +0000 |
commit | 8354c54589053154324c795165705759a8af8dfb (patch) | |
tree | 9bbc86e4a8c2d190401a6f491f54e4715ee6a071 | |
parent | fa23523a6c82bf84774c6a4180bafe4d73580ea8 (diff) |
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
-rw-r--r-- | src/SourceData.F77 | 7 |
1 files 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 |