C T2(IX)=K2(II) 

 C T3(IX)=K3(I) 



C IF((K2(II)-K1(II)).GT.IDIFF)T3(IX)=K3(II) 

 C GO TO 80 

 C 75 T2(IX-1)=K2(I) 

 C T1(IX)=K1(II) 

 C T2(IX)=K2(II) 

 C T3(IX)=K3(I) 



C IF((K2(II)-K1(II)).GT.IDIFF)T3(IX)=K3(II) 

 C BISECT SEGMENT AND PUT HALVES INTO ADJACENT PROVINCES 

 70 K=(K2(I)+Kl(I))/2 



T2(IX-1)=K 



T1(IX)=K 



T2(IX)=K2(II) 



T3(IX)=K3(II) 

 80 ISKIP=ISKIP+1 



ICYCLE=1 



GO TO 100 

 95 ICYCLE=ICYCLE-1 

 100 CONTINUE 



IF(ISKIP.EQ.O.AND.MIN.EQ.MINSAV) GO TO 500 



KST=KST-ISKIP 



DO 150 1=1, KST 



K1(I)=T1(I) 



K2(I)=T2(I) 

 150 K3(I)=T3(I) 



K3(KST+1)=99 



60 TO 10 

 500 RETUR^' 



END 



176 



