Evolution and Optimum Seeking

404 Appendix B
32 WRITE(KANAL,126)
RETURN
33 NP=NPP
WRITE(KANAL,127)NP
34 NYY=(N+NS+NP+1)*IELTER*2
IF(NY-NYY)35,37,36
35 WRITE(KANAL,128)
RETURN
36 NY=NYY
WRITE(KANAL,129)NY
37 BFATAL=.FALSE.
RETURN
END
---------------------------------------------------------
Function ZULASS
This function is required only if there are constraints. If the starting point does not lie
in the feasible region, ZULASS generates an auxiliary objective function that is used to
search for a feasible initial vector.
If ZULASS, the negative sum of the values for the functions representing constraints
that have been violated, is zero, then X represents a feasible vector that can be used in
restarting the search with KORR.
XX represents XSTERN or X.
---------------------------------------------------------
FUNCTION ZULASS
1(N,M,XX,RESTRI)
DIMENSION XX(N)
ZULASS=0.
DO 1 J=1,M
R=RESTRI(J,N,XX)
IF(R.LT.0.) ZULASS=ZULASS-R
1 CONTINUE
RETURN
END
---------------------------------------------------------
Subroutine UMSPEI
UMSPEI is required only if BKOMMA = .FALSE., whereupon the parents in the source
generation have to be subject to selection. UMSPEI transposes the data on the parents
within array Y.
K1, K2, and KK are auxiliary quantities transmitted from KORR that de ne the number
and addresses of the data to be transposed.