diff options
| author | tradke <tradke@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2001-04-23 16:31:27 +0000 |
|---|---|---|
| committer | tradke <tradke@b6f3ac56-194f-0410-8878-cdf6079d7f1b> | 2001-04-23 16:31:27 +0000 |
| commit | a5e8355672c504d0d282cd721d90c2bbb840f953 (patch) | |
| tree | 85d2e81cbd15b4249a7d3192ab311278ec72385e | |
| parent | a54ca50acc8e15986c54d9ea0ba425017b3dc6ac (diff) | |
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
| -rw-r--r-- | src/Stab2d.F | 15 |
1 files 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 |