aboutsummaryrefslogtreecommitdiff
path: root/src/Stab2d.F
diff options
context:
space:
mode:
authortradke <tradke@b6f3ac56-194f-0410-8878-cdf6079d7f1b>2001-04-23 16:31:27 +0000
committertradke <tradke@b6f3ac56-194f-0410-8878-cdf6079d7f1b>2001-04-23 16:31:27 +0000
commita5e8355672c504d0d282cd721d90c2bbb840f953 (patch)
tree85d2e81cbd15b4249a7d3192ab311278ec72385e /src/Stab2d.F
parenta54ca50acc8e15986c54d9ea0ba425017b3dc6ac (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
Diffstat (limited to 'src/Stab2d.F')
-rw-r--r--src/Stab2d.F15
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