diff options
-rw-r--r-- | src/SourceData.F77 | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index 1ff3db7..0b857c3 100644 --- a/src/SourceData.F77 +++ b/src/SourceData.F77 @@ -128,7 +128,6 @@ c Call elliptic solver to fill out phi write(infoline,'(A45,I3,A)') & "Leaving elliptic solver: solve failed (Error ",ierr,")" call CCTK_INFO(infoline) - print *,ierr end if c Set up last timestep ... assume (first order) time symmetry |