From 9fee2f4cdb0da7d5a11d6847a36afbb6f97d6b9d Mon Sep 17 00:00:00 2001 From: ryoji Date: Wed, 9 Feb 2000 15:25:15 +0000 Subject: inconsistency at integer*4 Thanks Gerd. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@9 535fb057-194f-0410-b5a5-c63992f15602 --- src/Stab3d.F | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/Stab3d.F b/src/Stab3d.F index 0bd7678..9cb01ff 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) @@ -250,7 +251,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) -- cgit v1.2.3