diff options
| author | ryoji <ryoji@971fb155-194f-0410-9daf-e2eca44e59f5> | 2000-02-09 15:26:23 +0000 |
|---|---|---|
| committer | ryoji <ryoji@971fb155-194f-0410-9daf-e2eca44e59f5> | 2000-02-09 15:26:23 +0000 |
| commit | a9c26f28d75bdb22645ddd9068205487d30c7656 (patch) | |
| tree | 04b6287ea1b965e17e7d719e78a7b88f821fa86b | |
| parent | e9c2c688a4599f3a7d75111332e492ec8cbf06be (diff) | |
inconsistency at integer*4
Thanks Gerd.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/DistortedBHIVP/trunk@9 971fb155-194f-0410-9daf-e2eca44e59f5
| -rw-r--r-- | src/Stab3d.F | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Stab3d.F b/src/Stab3d.F index e68802b..b66d17d 100644 --- a/src/Stab3d.F +++ b/src/Stab3d.F @@ -6,7 +6,7 @@ c been made. c implicit none c - integer,intent(in) :: im,jm,km + integer*4,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 @@ -86,7 +86,8 @@ c been made. c implicit none c - integer,intent(in) :: ncyc,im,jm,km + integer*4,intent(in) :: im,jm,km + integer,intent(in) :: ncyc real*8,intent(out) :: cc(im*jm*km),cn(im*jm*km) real*8,intent(out) :: cs(im*jm*km),ce(im*jm*km) real*8,intent(out) :: cw(im*jm*km),ct(im*jm*km) @@ -253,7 +254,7 @@ c Be careful that the cs are zero on their outer boundary!! c implicit none c - integer,intent(in) :: im,jm,km + integer*4,intent(in) :: im,jm,km real*8,intent(out) :: cc(im*jm*km),cn(im*jm*km) real*8,intent(out) :: cs(im*jm*km),ce(im*jm*km) real*8,intent(out) :: cw(im*jm*km),ct(im*jm*km) |