CALL CHOICE (NCAT,BC,NMC,NUMC,IZC)
NC=IP+NCAT
DO 2200 I=1, NCAT
I1=I+IP
DO 2201 J=1,IP
AIN(J,I1)=BC(J,I)
2201
CONTINUE
NM(I1)=NMC(I)
NMM(I1)=NUMC(I)
NUMIN(I1)=I1
IZ(I1)=IZC(I)
2200
CONTINUE
CALL CHOICE (NANI,BC,NMC,NUMC,IZC)
NA=NC+NANI
DO 2300 I=1, NANI
I1=I+NC
DO 2301 J=1,IP
AIN(J,I1)=BC(J,I)
2301
CONTINUE
NM(I1)=NMC(I)
NMM(I1)=NUMC(I)
NUMIN(I1)=I1
IZ(I1)=IZC(I)
2300
CONTINUE
CALL CHOICE (NNEI,BC,NMC,NUMC,IZC)
NL=NA+NNEI
DO 2400 I=1, NNEI
I1=I+NA
DO 2401 J=1,IP
AIN(J,I1)=BC(J,I)
2401
CONTINUE
NM(I1)=NMC(I)
NMM(I1)=NUMC(I)
IF(NMM(I1).EQ.30)IV=I1
NUMIN(I1)=I1
IZ(I1)=IZC(I)
2400
CONTINUE
CALL CHOICE (NSOL,BC,NMC,NUMC,IZC)
DO 2500 I=1, NSOL
I1=I+NL
DO 2501 J=1,IP
AIN(J,I1)=BC(J,I)
2501
CONTINUE
13
Previous Page
