diff options
-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 |