diff options
author | tradke <tradke@535fb057-194f-0410-b5a5-c63992f15602> | 2001-04-24 11:48:29 +0000 |
---|---|---|
committer | tradke <tradke@535fb057-194f-0410-b5a5-c63992f15602> | 2001-04-24 11:48:29 +0000 |
commit | cfc874239dbaf2dd93a2292daea96ac421569e48 (patch) | |
tree | 1d3eab8b4ab5cfcaf2c5bc493edfc95630cfaa3a | |
parent | b48afe77422e94346cd0413357a740e5353c47ec (diff) |
Changed 'intent(out)' to 'intent(in)' where appropriate.
This closes PR Thorns-636.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinInitialData/RotatingDBHIVP/trunk@23 535fb057-194f-0410-b5a5-c63992f15602
-rw-r--r-- | src/Stab3d.F | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/src/Stab3d.F b/src/Stab3d.F index 6305ab9..23576aa 100644 --- a/src/Stab3d.F +++ b/src/Stab3d.F @@ -88,11 +88,12 @@ c c integer,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) - real*8,intent(out) :: cb(im*jm*km) - real*8,intent(out) :: tol,rnorm + real*8,intent(in) :: cc(im*jm*km),cn(im*jm*km) + real*8,intent(in) :: cs(im*jm*km),ce(im*jm*km) + real*8,intent(in) :: cw(im*jm*km),ct(im*jm*km) + real*8,intent(in) :: cb(im*jm*km) + real*8,intent(in) :: tol + real*8,intent(out) :: rnorm integer,intent(out) :: ier real*8 x(im*jm*km),r(im*jm*km) c Local variables @@ -251,10 +252,10 @@ c implicit none c integer,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) - real*8,intent(out) :: cb(im*jm*km) + real*8,intent(in) :: cc(im*jm*km),cn(im*jm*km) + real*8,intent(in) :: cs(im*jm*km),ce(im*jm*km) + real*8,intent(in) :: cw(im*jm*km),ct(im*jm*km) + real*8,intent(in) :: cb(im*jm*km) real*8 :: x(im*jm*km), y(im*jm*km) c Local variables integer :: i, j, k |