diff options
-rw-r--r-- | src/SourceData.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/SourceData.F77 b/src/SourceData.F77 index 1bdfe37..2659f89 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(infoline(1:len_rim(infoline))) + call CCTK_INFO(infoline(1:len_trim(infoline))) c Call elliptic solver to fill out phi |