CarpetLib: Don't use len_trim any more when calling CCTK_WARN

darcs-hash:20041225170137-891bb-bd67edb07f4190a82ae966c915154cd58e9fd987.gz

14 files changed, 14 insertions, 14 deletions

diff --git a/Carpet/CarpetLib/src/checkindex.F77 b/Carpet/CarpetLib/src/checkindex.F77
index 026d9c2bd..0df62994f 100644
--- a/Carpet/CarpetLib/src/checkindex.F77
+++ b/Carpet/CarpetLib/src/checkindex.F77
@@ -18,6 +18,6 @@ c     $Header:$
      $     .or. k.lt.1 .or. k+dk-1.gt.kmax) then
          write (msg, '(a, " array index out of bounds: shape is (",i4,",",i4,",",i4,"), index is (",i4,",",i4,",",i4,"), extent is (",i4,",",i4,",",i4,")")')
      $        where, imax,jmax,kmax, i,j,k, di,dj,dk
-         call CCTK_WARN (0, msg(1:len_trim(msg)))
+         call CCTK_WARN (0, msg)
       end if
       end
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8.F77
index 7eaf3b1b3..22bee8de5 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8.F77
+++ b/Carpet/CarpetLib/src/prolongate_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
 
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl.F77
index 0d8960daf..15411f08d 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl.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
 
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77
index 05d7feb8c..dd11843f5 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_minmod.F77
@@ -29,7 +29,7 @@ c$$$      prolongate_3d_real8_minmod.F77
            .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
 
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77
index 557dca22a..a3b5fa117 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o3.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
 
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77
index 5fb646ad9..248073f4a 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_o5.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_2tl_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
 
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl.F77
index 436147d22..d1a61450f 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl.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
 
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77
index 7126c7e44..94518548e 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_minmod.F77
@@ -31,7 +31,7 @@ c$$$      prolongate_3d_real8_minmod.F77
            .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
 
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o3.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o3.F77
index 5791809d1..d411b9aa7 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o3.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o3.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
 
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77
index b4965c8eb..97b9b5bd9 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_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
 
 
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77
index 1bff0b2a8..01cb3a288 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_minmod.F77
@@ -31,7 +31,7 @@ c$$$      prolongate_3d_real8_minmod.F77
            .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
 
       function minmod(a, b)
diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_o3.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_o3.F77
index 43c10fa12..e720e984e 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_o3.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_o3.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
 
 
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
 
 
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