KFK2666.pdf

-96- 4-34
Erläuterung
REDEFINE A(I), REL_EASED STEP(O), LOW}
END}
REOEFINE A, RELEASEO}
Es werden Daten nach X(1,Jf1) gelesen. Dieser ODE-Vektor hat die
Priorität HIGH. Vor dem Umspeichern nach X(2,J) in umgekehrter
Reihenfolge erhält auch dieser Vektor hohe Priorität. Jeweils
nach der letzten Benutzung der Vektoren in diesem Programmteil
erhalten sie die niedrigste Aktualität (LOW RELEASED) und außer­
dem die Schrittweite O. Da auch auf den Deskriptorvektor, auf den
A zeigt, zugegriffen wurde, wird auch dieser am Schluß RELEASED.
Im folgenden Beispiel wird gezeigt, wie der im obigen Beispiel auf
den Label END1 folgende Teil des Programms durch Verwendung von FIX
und LOOSE mit höchster Effektivität programmiert werden kann.
Beispiel
/x1x/
/x2x/
/x3x/
/x4x/
/x5x/
/x6x/
Erläuterung
DCL Y1(32000) BASED(X1)}
DCL Y2(32000) BASED(X2)}
FIX A(1) SET(X1) ON(1) READ}
FIX A(2) SET(X2) ON(1)}
00 1=1 TO J}
Y2(J-It1) = Yl(I)}
END}
,00 1=1 TO J}
Y2(I)
END}
= SQRT(ABS(Y2(I)))J
00 1=1 TO 2}
LOOSE
END}
A(I)}
Dies ist die effektivste Art des Zugriffs auf ODE-Vektoren.