Evolution and Optimum Seeking

( + ) Evolution Strategy KORR 399
C
C LOOK FOR THE BEST OF THE INDIVIDUALS HELD AS
C PARENTS FOR THE NEXT GENERATION. IF THIS IS BETTER
C THAN ANY DESCENDANT PREVIOUSLY GENERATED, THE DATA
C ARE WRITTEN INTO ZSTERN AND XSTERN.
C
IF(ZBEST.GT.ZSTERN) GOTO 28
ZSTERN=ZBEST
K=LBEST*NZ
DO 27 I=1,N
27 XSTERN(I)=Y(K+I)
28 IF(IFALLK.EQ.3) GOTO 30
Z2=0.
K=L2*NZ
DO 29 L=1,IELTER
K=K+NZ
29 Z2=Z2+Y(K)
CALL ABSCHA
1(IELTER,KONVKR,IFALLK,EPSILO,ZBEST,ZSCHL,Z1,Z2,
2KONVZ,BKONVG)
C
C TEST CONVERGENCE CRITERION.
C
IF(BKONVG) GOTO 30
C
C CHECK TIME ELAPSED.
C
IF(TKONTR(D).LT.TMAXIM) GOTO 17
C
C PREPARE FINAL DATA FOR RETURN FROM KORR IF THE
C STARTING POINT WAS FEASIBLE.
C
30 K=LBEST*NZ
DO 31 I=1,N
K=K+1
31 X(I)=Y(K)
DO 32 I=1,NS
K=K+1
32 S(I)=Y(K)
IF(.NOT.BKORRL) RETURN
DO 33 I=1,NP
K=K+1
33 P(I)=Y(K)
RETURN