diff options
| author | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2000-02-09 15:24:05 +0000 |
|---|---|---|
| committer | ryoji <ryoji@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2000-02-09 15:24:05 +0000 |
| commit | 23e616854ed75d954299f036f0cfdb0c70b102d7 (patch) | |
| tree | c8d490bbcc5ddf9b191f403469d2fafe66076d28 | |
| parent | 1ea44f1290c51ba48f639cbf9a1035654e8dfb98 (diff) | |
inconsistency at integer*4
Thanks Gerd.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiOddBrillBH/trunk@10 b6f3ac56-194f-0410-8878-cdf6079d7f1b
| -rw-r--r-- | src/Stab2d.F | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Stab2d.F b/src/Stab2d.F index 368a3e8..d389710 100644 --- a/src/Stab2d.F +++ b/src/Stab2d.F @@ -6,7 +6,7 @@ c been made. c implicit none c - integer,intent(in) :: im,jm + integer*4,intent(in) :: im,jm real*8,intent(inout) :: cc(im,jm),cn(im,jm),cs(im,jm), $ ce(im,jm),cw(im,jm) real*8,intent(out) :: eps @@ -79,7 +79,8 @@ c been made. c implicit none c - integer,intent(in) :: ncyc,im,jm + integer*4,intent(in) :: im,jm + integer :: ncyc real*8,intent(out) :: cc(im*jm),cn(im*jm) real*8,intent(out) :: cs(im*jm),ce(im*jm) real*8,intent(out) :: cw(im*jm) @@ -243,7 +244,7 @@ c Be careful that the cs are zero on their outer boundary!! c implicit none c - integer,intent(in) :: im,jm + integer*4,intent(in) :: im,jm real*8,intent(out) :: cc(im*jm),cn(im*jm) real*8,intent(out) :: cs(im*jm),ce(im*jm) real*8,intent(out) :: cw(im*jm) |