From b26d7b2db0234b2e6b1e7b7466b0b3ca9604f5c9 Mon Sep 17 00:00:00 2001
From: schnetter <>
Date: Fri, 9 Jan 2004 12:21:00 +0000
Subject: Clarify error message.

darcs-hash:20040109122120-07bb3-ec22ca801d35b1de50585080dd2ab0e8d31da4d5.gz
---
 Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77')

diff --git a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77 b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77
index e664ac47e..e718033f5 100644
--- a/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77
+++ b/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77
@@ -1,5 +1,5 @@
 c     -*-Fortran-*-
-c     $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77,v 1.1 2003/06/24 14:00:58 schnetter Exp $
+c     $Header: /home/eschnett/C/carpet/Carpet/Carpet/CarpetLib/src/prolongate_3d_real8_3tl_o5.F77,v 1.2 2004/01/09 13:21:20 schnetter Exp $
       
 #include "cctk.h"
 
@@ -149,7 +149,7 @@ c     Quadratic (second order) interpolation
          call CCTK_WARN (0, "Internal error: arrays have same time")
       end if
       if (t.lt.min(t1,t2,t3)-eps .or. t.gt.max(t1,t2,t3)+eps) then
-         call CCTK_WARN (0, "Internal error: extrapolation")
+         call CCTK_WARN (0, "Internal error: extrapolation in time")
       end if
       
       s1fac = (t - t2) * (t - t3) / ((t1 - t2) * (t1 - t3))
-- 
cgit v1.2.3