SUBROUTINE START
	COMMON/LINKIT/ISTRT,LINKS(6,15)
	MODULE=1
	IND=2
10	ITEST=LINKS(1,MODULE)
	IF(ITEST.EQ.0)GO TO 1
	MODULE=MODULE+1
	IF(MODULE.EQ.15)GO TO 2
1	ITEST=LINKS(IND,MODULE)
	IF(ITEST.NE.0)GO TO 2
	IND=IND+1
	IF(IND.EQ.7)GO TO 3
	GO TO 1
3	MODULE=MODULE+1
	IF(MODULE.EQ.15)GO TO 2
	GO TO 10
2	ISTRT=MODULE
99	RETURN
	END