File: STARSC.FT of Disk: Disks/Working/Build-11-03-07

(Source file text) 

---

C	*************************************************************
C	*************************************************************
C	THIS SUBROUTINE GENERATES SECTOR COORDINATES -- RANK1 & RANK2
	SUBROUTINE SECTOR
	COMMON ARRAY,ZONE1,ZONE2,INSERT,RANK1,RANK2,OK,IRA,JONES
	INTEGER ARRAY(8,8,3),ZONE1,ZONE2,RANK1,RANK2,OK
5380	RANK1 = INT(RAN(IRA,JONES)*8+1)
	RANK2 = INT(RAN(IRA,JONES)*8+1)
	INSERT = 0
	ZONE1 = RANK1
	ZONE2 = RANK2
	CALL CHECK
	IF (OK.EQ.0) GOTO 5380
	RETURN
	END

---