Fortran 90 oktatóanyag >> Szubrutinok
7. Szubrutinok
- A szubrutinok általános felépítése
- Az INTENT(...) attribútum
- Szubrutin meghívása
b) Az INTENT(...)
attribútum
A szubrutin argumentumainak a szerepét definiálja. Három lehetőség létezik:
-
INTENT(IN): az argumentum csak bemenő adatként van jelen, a szubrutin nem változtathatja meg az értékét.
-
INTENT(OUT): az argumentum kimenő adatként szerepel.
-
INTENT(INOUT): az argumentum bemenő és kimenő értékként is jelen lehet.
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
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
implicit none
real, intent(inout) :: a, b
real :: c
c=a
a=b
b=c
end subroutine csere