diff options
| author | knarf <knarf@535fb057-194f-0410-b5a5-c63992f15602> | 2010-05-26 03:23:49 +0000 |
|---|---|---|
| committer | knarf <knarf@535fb057-194f-0410-b5a5-c63992f15602> | 2010-05-26 03:23:49 +0000 |
| commit | c3047327f2a146345b38efb8ebc32de7c3b90db5 (patch) | |
| tree | bdae2462bc9b462519319d3ebe7c5d815541370f | |
| parent | 87ad06c80067c4c828f100dd2d4be2635b8bf5ea (diff) | |
fix intent of tolerance
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@43 535fb057-194f-0410-b5a5-c63992f15602
| -rw-r--r-- | src/Stab3d.F | 2 |
1 files changed, 1 insertions, 1 deletions
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 |