diff options
author | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2002-08-20 13:42:37 +0000 |
---|---|---|
committer | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2002-08-20 13:42:37 +0000 |
commit | fa23523a6c82bf84774c6a4180bafe4d73580ea8 (patch) | |
tree | 0c20f2a542bc57469547b10a4c329aefcce89820 | |
parent | a6449e8249c31416a234e3303f47ecd861aa0c24 (diff) |
Tidied up a few things
Implements Cactus/877
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@52 41e88fdd-2190-4c69-9c84-4659c8cf322e
-rw-r--r-- | src/SourceData.F77 | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index 0b857c3..e67fe96 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -5,6 +5,7 @@ @desc Elliptic initial data for wave equation @enddesc + @version $Header$ @@*/ #include "cctk.h" @@ -102,11 +103,8 @@ c Set parameters for specific solvers call Ell_SetIntKey(ierr, sor_maxit,"Ell::SORmaxit") end if -c Fill a fortran string with the name of the solver - call CCTK_FortranString(length,solver,fsolver) - write(infoline,'(A27,A)') 'Going into elliptic solver ', - & fsolver(1:length) - call CCTK_INFO(infoline) + write(infoline,'("Going into elliptic solver ",A)') fsolver + call CCTK_INFO(trim(infoline)) c Call elliptic solver to fill out phi |