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

A. DIRCOL
C* of the form
C* F(E) = F1(E(1)) + F2(E(2)) + ... + FM(E(M))
C* which is a sum of functions F_i, i = 1,...,M, that
depend
C* either only on the state, control and parameter values
C* at initial (i=1) or final (i=M) time, or on the leftand
C* rightsided limites at a switching point (i=2,...M-1).
C*
C*
C* -----------
C* EXIT-Parameters:
C* ----------
C* FOBJ...computed value of the NR-th part FNR(E(NR)) of
the sum
C* defines the objective (real)
C
IMPLICIT NONE
C
INTEGER NX, LU, LP, NR
C**** REAL
DOUBLE PRECISION
+ ENR, XL(NX), UL(LU), P(LP), FOBJ, XR(NX), UR(LU)
C
C-----BEGIN--PROBLEM
C
IF (NR .EQ. 2) THEN
FOBJ = -XL(4)
ELSE
FOBJ = 0.0D0
END IF
C
C------END---PROBLEM
C
RETURN
C -- End of subroutine USROBJ
END
SUBROUTINE USRDEQ( IPHASE, NX, LU, LP, X, U, P, T, F)
C*****************************************
C* Purpose:
C* -----
C* Computation of the right hand side F of the
128