diff options
author | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2001-05-11 15:22:47 +0000 |
---|---|---|
committer | allen <allen@41e88fdd-2190-4c69-9c84-4659c8cf322e> | 2001-05-11 15:22:47 +0000 |
commit | bea3ef280436282b09c8b5f9560c3293f81e8161 (patch) | |
tree | aa3c669f54e5a7d0a352f215de2c44571b8c72d9 | |
parent | 6bdf4af876ec4bb7e2f6490b18ef8fb1139e9aab (diff) |
Changes to info to screen
git-svn-id: http://svn.cactuscode.org/arrangements/CactusWave/IDScalarWaveElliptic/trunk@36 41e88fdd-2190-4c69-9c84-4659c8cf322e
-rw-r--r-- | src/SourceData.F77 | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index b6093ad..cde3fb8 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -35,7 +35,8 @@ c where Q is the total charge and R is the sphere radius integer length character*30 fsolver - + character*200 infoline + c Get variable indices for all grid functions call CCTK_VarIndex (iMcoeff, "idscalarwaveelliptic::Mcoeff") @@ -100,9 +101,9 @@ c Call elliptic solver to fill out phi c Fill a fortran string with the name of the solver call CCTK_FortranString(length,solver,fsolver) - - call CCTK_INFO("Going into elliptic solver") - print *,"Solver:",fsolver(1:length),"." + write(infoline,'(A27,A)') 'Going into elliptic solver ', + & fsolver(1:length) + call CCTK_INFO(infoline) call Ell_LinFlatSolver( & ierr, |