Fortran 90 oktatóanyag >> Szubrutinok
7. Szubrutinok
- A szubrutinok általános felépítése
- Az INTENT(...) attribútum
- Szubrutin meghívása
c) Szubrutin meghívása
A szubrutin meghívása a főprograban a Fortran77-ben megszokott CALL paranccsal történik. A szubrutinhoz igazodva a meghívás három különböző módon lehetséges:
- CALL szubrutin neve(arg1,arg2,...,argn)
- CALL szubrutin neve()
- CALL szubrutin neve
program szubrutinmeghivas
implicit none
real :: x, y
write(*,*) 'Adjon meg ket szamot: '
read(*,*) x,y
call csere(x,y)
write(*,*) 'A szamok megcserelve: ', x,y
contains
subroutine csere(a,b)
implicit none
real, intent(inout) :: a, b
real :: c
c=a
a=b
b=c
end subroutine csere
end program szubrutinmeghivas
Fordítása és futtatása:implicit none
real :: x, y
write(*,*) 'Adjon meg ket szamot: '
read(*,*) x,y
call csere(x,y)
write(*,*) 'A szamok megcserelve: ', x,y
contains
subroutine csere(a,b)
implicit none
real, intent(inout) :: a, b
real :: c
c=a
a=b
b=c
end subroutine csere
end program szubrutinmeghivas
gfortran szubrutinmeghivas.f90 -o
szubrutinmeghivas.exe
./szubrutinmeghivas.exe
Az eredmény:./szubrutinmeghivas.exe
Adjon meg ket szamot:
3
2
A szamok megcserelve: 2.00000000 3.00000000
3
2
A szamok megcserelve: 2.00000000 3.00000000