SUBROUTINE READIN
	COMMON/POINTS/LNS(2,15),PTS(6,200)
	COMMON/LINKIT/ISTRT,LINKS(6,15)
	COMMON/CENTS/C(3,15)
	COMMON/LIMITS/XMIN,XMAX,YMIN,YMAX
	READ(5,400)((LNS(I,J),I=1,2),J=1,15)
400	FORMAT(2I4)
	DO 1 I=1,15
	I3STRT=LNS(1,I)
	IF(I3STRT.EQ.0)GO TO 1
	I3END=LNS(2,I)
	READ(5,401)((PTS(K,J),K=1,6),J=I3STRT,I3END)
1	CONTINUE
401	FORMAT(6F5.1)
	READ(5,402)((LINKS(I,J),J=1,15),I=1,6)
402	FORMAT(15I3)
	DO 99 I=1,15
	IF(LINKS(1,I).NE.0)GO TO 99
	IF(LINKS(2,I).NE.0.OR.LINKS(3,I).NE.0.OR.LINKS(3,I).NE.0
	9.OR.LINKS(4,I).NE.0.OR.LINKS(5,I).NE.0.OR.LINKS(6,I)
	9.NE.0)GO TO 98
	GO TO 99
98	ISTRT=I
99	CONTINUE
	READ(5,403)((C(I,J),I=1,3),J=1,15)
403	FORMAT(3F5.1)
	READ(5,404)XMIN,XMAX,YMIN,YMAX
404	FORMAT(4F5.1)
	RETURN
	END