disser1.pdf (2006 KB) - Ernst-Moritz-Arndt-Universität Greifswald
disser1.pdf (2006 KB) - Ernst-Moritz-Arndt-Universität Greifswald
disser1.pdf (2006 KB) - Ernst-Moritz-Arndt-Universität Greifswald
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
ANHANG B<br />
OC-ODE<br />
B.1. Programm 1. Berechnung mit stückweise<br />
konstanten Steuerungen<br />
PROGRAM FISCH6<br />
IMPLICIT NONE<br />
INTEGER DIM(8),INFO(31),LIW,LRW,IRES,IREALTIME,NREALTIME,<br />
+ ISTEUER, IADJOINT,LRWADJ,LIWADJ,IUPDATE,LENACTIVE,<br />
IPARAM(5),NVAR<br />
DOUBLE PRECISION T(0:1),XL(0:1,6),XU(0:1,6),<br />
+ UL(-1:1,3),UU(-1:1,3),<br />
+ P(0:2,1),G(0:1,1),BC(0:1,6),<br />
+ TOL(6),TAUU(1),TAUX(1),<br />
+ HREALTIME,PARAM(12),D1MACH,SOL(1000)<br />
CHARACTER*5 MERIT<br />
PARAMETER (ISTEUER=1,LRW=3019074,LIW=5263,LIWADJ=500,<br />
+ LRWADJ=655, LENACTIVE=1000)<br />
CHARACTER*2 ACTIVE(LENACTIVE)<br />
INTEGER I,IWORK(LIW),IWADJ(LIWADJ),IUSER(2)<br />
DOUBLE PRECISION RWORK(LRW),RWADJ(LRWADJ),USER(2)<br />
C<br />
TOL(1) = 1.0d-10 ! Feasibility tolerance<br />
TOL(2) = DSQRT(D1MACH(4)) ! Optimality tolerance<br />
TOL(3) = 1.0d-15 ! Function precision<br />
TOL(4) = 1.0d-12 ! Tolerance state<br />
TOL(5) = 1.0d+7 ! Tolerance sensitivities<br />
TOL(6) = 1.0d-6 ! finite difference step size<br />
137