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

b) Az INTENT(...) attribútum

A szubrutin argumentumainak a szerepét definiálja. Három lehetőség létezik:

Példa: A következő szubrutin 3 bemenő argumentumra számolja ki a számtani és a mértani középértékeket, melyeket majd kimenő adatként szolgáltathat az őt meghívó főprogramnak.

subroutine atlag(a, b, c, szamt, mert)
 implicit none
 real, intent(in) :: a, b, c
 real, intent(out) :: szamt, mert

 szamt=(a+b+c)/3.0
 mert=(a*b*c)**(1.0/3.0)

end subroutine atlag

Példa: Az alábbi szubrutin 2 változó felcserélését végzi el, egy 3. (c) segédváltozó segítségével. Itt az a és b bemenő és kimenő változók is egyben.

subroutine csere(a,b)
 implicit none
 real, intent(inout) :: a, b
 real :: c
 
 c=a
 a=b
 b=c

end subroutine csere


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

Oldal tetejére | Vissza a főoldalra