disser1.pdf (2006 KB) - Ernst-Moritz-Arndt-Universität Greifswald

ANHANG A
DIRCOL
A.1. Programm 1. Hauptprogramm user.f
(wesentliche Teile)
SUBROUTINE USRSTV( IPHASE, NX, LU, TAU, X, U)
C* Purpose:
C* -----
C* This subroutine contains the initial estimates of the
C* state and control variable histories, (on a normalized
C* time interval), the control parameters, and initial
C* estimates of the events as provided by the user.
C*
C* The values of the arguments of this subroutine depend
C* on the value of the integer parameter IPHASE.
C*
C* If IPHASE > 0 then:
C* ==================
C* ENTRY-Parameters:
C* -----------
C* IPHASE...number of the actual phase (integer)
C* 1