Fortran 90 oktatóanyag >> Szubrutinok

7. Szubrutinok

  1. A szubrutinok általános felépítése
  2. Az INTENT(...) attribútum
  3. 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:
Példa: szubrutinmeghivas.f90 a "csere" szubrutin beépítése a főprogramba:
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:
gfortran szubrutinmeghivas.f90 -o szubrutinmeghivas.exe
./szubrutinmeghivas.exe
Az eredmény:
 Adjon meg ket szamot:
3
2
 A szamok megcserelve:    2.00000000       3.00000000


<< Előző | Következő >>

Oldal tetejére | Vissza a főoldalra