From a5e8355672c504d0d282cd721d90c2bbb840f953 Mon Sep 17 00:00:00 2001 From: tradke Date: Mon, 23 Apr 2001 16:31:27 +0000 Subject: Changed 'intent(out)' declarations to 'intent(in)' for variables which are used only as input values. This fixes problems with the Lahey Fortran compiler 6.00a which was simply treating these as errors. Closes PR Cactus-619. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/IDAxiOddBrillBH/trunk@30 b6f3ac56-194f-0410-8878-cdf6079d7f1b --- src/Stab2d.F | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/src/Stab2d.F b/src/Stab2d.F index fdbd893..e34ce6b 100644 --- a/src/Stab2d.F +++ b/src/Stab2d.F @@ -81,10 +81,11 @@ c c 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) - real*8,intent(out) :: cw(im*jm) - real*8,intent(out) :: tol,rnorm + real*8,intent(in) :: cc(im*jm),cn(im*jm) + real*8,intent(in) :: cs(im*jm),ce(im*jm) + real*8,intent(in) :: cw(im*jm) + real*8,intent(in) :: tol + real*8,intent(out):: rnorm integer,intent(out) :: ier real*8 x(im*jm),r(im*jm) c Local variables @@ -244,9 +245,9 @@ c implicit none c 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) + real*8,intent(in) :: cc(im*jm),cn(im*jm) + real*8,intent(in) :: cs(im*jm),ce(im*jm) + real*8,intent(in) :: cw(im*jm) real*8 :: x(im*jm), y(im*jm) c Local variables integer :: i, j, k -- cgit v1.2.3