Evolution and Optimum Seeking

392 Appendix B
GLEICH, and TKONTR declared as external. This applies also to the name of any
function used instead of GAUSSN to convert a uniform distribution to a normal one.
ZIELFU Objective function, to be programmed by the user in the form:
-------------------------------------------------
FUNCTION ZIELFU(N,X)
DIMENSION X(N)
...
ZIELFU=...
RETURN
END
-------------------------------------------------
N represents the number of parameters, and X represents the formal parameter vector.
The actual values are supplied by KORR. The function should be written on the basis
that KORR searches for a minimum if a maximum is to be sought, F must be supplied
with a negative sign.
RESTRI Constraints function, to be programmed by the user in the general style:
-------------------------------------------------
FUNCTION RESTRI(J,N,X)
DIMENSION X(N)
GOTO(1,2,3,...,(M)),J
1 RESTRI=...
RETURN
2 RESTRI=...
RETURN
...
...
(M) RESTRI=...
RETURN
END
-------------------------------------------------
N and X have the meanings described for the objective function, while J (integer) is
the serial number of the constraint. The statements should be written on the basis that
KORR will accept vector X as feasible if RESTRI 0.0 for all J = 1(1)M.
TKONTR The function for monitoring the computation time may bede nedby the user
or called from the subroutine library in the particular machine. The following structure
is assumed:
REAL FUNCTION TKONTR(D)
where D is a dummy parameter. TKONTR should be assigned the monitored quantity,
e.g., the CPU time in seconds limited by TGRENZ. Many computers are supplied with