From 9351fa97ec00d95b820e036bda56e534087be1d4 Mon Sep 17 00:00:00 2001 From: ryoji Date: Mon, 14 Feb 2000 15:09:44 +0000 Subject: now it passes testsuite on t3e. thanks thomas. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiOddBrillBH/trunk@13 b6f3ac56-194f-0410-8878-cdf6079d7f1b --- src/Stab2d.F | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Stab2d.F b/src/Stab2d.F index d389710..4a65a31 100644 --- a/src/Stab2d.F +++ b/src/Stab2d.F @@ -6,7 +6,7 @@ c been made. c implicit none c - integer*4,intent(in) :: im,jm + integer,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,7 @@ c been made. c implicit none c - integer*4,intent(in) :: im,jm + integer,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) @@ -244,7 +244,7 @@ c Be careful that the cs are zero on their outer boundary!! c implicit none c - integer*4,intent(in) :: im,jm + integer,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) -- cgit v1.2.3