From c3047327f2a146345b38efb8ebc32de7c3b90db5 Mon Sep 17 00:00:00 2001
From: knarf <knarf@535fb057-194f-0410-b5a5-c63992f15602>
Date: Wed, 26 May 2010 03:23:49 +0000
Subject: fix intent of tolerance

git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@43 535fb057-194f-0410-b5a5-c63992f15602
---
 src/Stab3d.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Stab3d.F b/src/Stab3d.F
index 2106f4f..0e9004c 100644
--- a/src/Stab3d.F
+++ b/src/Stab3d.F
@@ -9,7 +9,7 @@ c
       integer,intent(in) :: im,jm,km
       real*8,intent(inout) :: cc(im,jm,km),cn(im,jm,km),cs(im,jm,km),
      $     ce(im,jm,km),cw(im,jm,km),ct(im,jm,km),cb(im,jm,km)
-      real*8,intent(out) :: eps
+      real*8,intent(in) :: eps
       real*8,intent(out) :: rmax
       real*8,intent(inout) :: u(im,jm,km),rhs(im,jm,km)
 c     Local variable
-- 
cgit v1.2.3