From e3018290259a0fead98441cc13a5759f713e4d61 Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Sat, 25 Dec 2004 17:01:00 +0000 Subject: CarpetLib: Don't use len_trim any more when calling CCTK_WARN darcs-hash:20041225170137-891bb-bd67edb07f4190a82ae966c915154cd58e9fd987.gz --- Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77') diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 index 948cd89e8..023980c5a 100644 --- a/Carpet/CarpetLib/src/prolongate_3d_real8_o5.F77 +++ b/Carpet/CarpetLib/src/prolongate_3d_real8_o5.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 -- cgit v1.2.3