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

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