CONSX—这是一个主要子程序，调用其它于程序及输出中间结果 *

!* CHECK—检查所有的点是否满足约束条件,对违背约束的点进行校正 *

!* CENTR—计算中心点 *

!* FUNC —目标函数，由用户提供 *

- PROGRAM COMPLEX

PARAMETER(N=3,M=4,K=6)

DIMENSION X(K,M),R(K,N),F(K),G(M),H(M),XC(N)

INTEGER GAMMA

OPEN(4,FILE= COMPDATA )

READ(4,*)ITMAX,IPRINT,ALPHA,BETA,GAMMA,DELTA

READ(4,*)(X(1,J),J=1,N)

IX=2097151

YFL=0.

DO 100 II=2,K

DO 100 JJ=1,N

CALL RANDU(IX,YFL)

R(II,JJ)=YFL

100 CONTINUE

OPEN(2,FILE= COMPDAT.OUT ,STATUS= UNKNOWN )

WRITE(2,10)

10 FORMAT(//,10X, COMPLEX PROGRAM OF BOX )



WRITE(2,11)N,M,K,ITMAX,IPRINT,ALPHA,BETA,G