[Commits] [svn:einsteintoolkit] RotatingDBHIVP/trunk/src/ (Rev. 43)

[knarf at cct.lsu.edu]

User: knarf
Date: 2010/05/25 10:23 PM

Modified:
 /trunk/src/
  Stab3d.F

Log:
 fix intent of tolerance

File Changes:

Directory: /trunk/src/
======================

File [modified]: Stab3d.F
Delta lines: +1 -1
===================================================================
--- trunk/src/Stab3d.F	2006-12-22 10:43:59 UTC (rev 42)
+++ trunk/src/Stab3d.F	2010-05-26 03:23:49 UTC (rev 43)
@@ -9,7 +9,7 @@
       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