Fortran 90 - Rechenzentrum Universität Osnabrück

Prozeduren - 34 -
7. Prozeduren
In diesem Kapitel werden folgende Erweiterungen bei Prozeduren behandelt:
• Attribute INTENT und OPTIONAL
• Schlüsselwort-Parameter
• Abprüfen der Existenz von optionalen Parametern
• Rekursive Prozeduren
• Feld, Struktur oder Zeiger als Funktionsergebnis
• Interne Prozeduren
• Schnittstellenbeschreibungen vonProzeduren
• Generische Schnittstellen
• Benutzerdefinierte Operatoren und Zuweisungen
7.1. Attribute für Formalparameter
• Bei der Vereinbarung von Formalparametern kennzeichnen die Attribute INTENT und
OPTIONAL Ein- und/oder Ausgabeparameter und optionale Parameter.
subroutine x(r1, r2, r3, r4, iOpt1)
real, intent(in) :: r1, r2 ! for input only
real, intent(out)) :: r3
! for output only
real, intent(inout) :: r4
! input and output
integer, optional :: iOpt1 ! may be omitted
• Ein Fortran 90 Compiler überprüft, ob die übergebenen Aktualparameter zulässig sind.
Z.B. ist eine Konstante als Aktualparamter für einen Formalparameter mit Attribut IN-
TENT(OUT) unzulässig.
integer function x(i1)
integer, intent(out) :: i1
iRC=x(3)
! ERROR: i1 must be a variable
• Eine Prozedur kann mit Schlüsselwort-Parametern aufgerufen werden, wobei in diesem
Fall die Reihenfolge (Position) der Aktualparameter beliebig ist und optionale Parameter
weggelassen werden können.
integer function x(i1, i2, iOpt1, iOpt2, iOpt3)
integer :: i1, i2
integer, optional :: iOpt1, iOpt2, iOpt3
...
end function x
iRC = x(iOpt3=4, i2=4, i1=5)
• Bei einem gemischten Aufruf mit Positions-Parametern und Schlüsselwort-Parametern
müssen zu Beginn Positions- und am Ende Schlüsselwort-Parameter aufgelistet werden.
iRC = x(5, 4, iOpt3=4)
Fortran 90