diff options
author | Erik Schnetter <schnetter@aei.mpg.de> | 2004-12-25 17:01:00 +0000 |
---|---|---|
committer | Erik Schnetter <schnetter@aei.mpg.de> | 2004-12-25 17:01:00 +0000 |
commit | e3018290259a0fead98441cc13a5759f713e4d61 (patch) | |
tree | 87d6fd9a0e7639a1626084a5dfce04c389f0ff29 /Carpet/CarpetLib/src/restrict_3d_real8.F77 | |
parent | 437fc16be883533cd4ca8763648f86572a7fb7e0 (diff) |
CarpetLib: Don't use len_trim any more when calling CCTK_WARN
darcs-hash:20041225170137-891bb-bd67edb07f4190a82ae966c915154cd58e9fd987.gz
Diffstat (limited to 'Carpet/CarpetLib/src/restrict_3d_real8.F77')
-rw-r--r-- | Carpet/CarpetLib/src/restrict_3d_real8.F77 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Carpet/CarpetLib/src/restrict_3d_real8.F77 b/Carpet/CarpetLib/src/restrict_3d_real8.F77 index 0824a7b8d..ea51a421f 100644 --- a/Carpet/CarpetLib/src/restrict_3d_real8.F77 +++ b/Carpet/CarpetLib/src/restrict_3d_real8.F77 @@ -11,7 +11,7 @@ c $Header:$ .or. (k).lt.1 .or. (k).gt.(kmax)) then &&\ write (msg, '(a, " array index out of bounds: shape is (",i4,",",i4,",",i4,"), index is (",i4,",",i4,",",i4,")")') \ (where), (imax), (jmax), (kmax), (i), (j), (k) &&\ - call CCTK_WARN (0, msg(1:len_trim(msg))) &&\ + call CCTK_WARN (0, msg) &&\ end if |