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

(Source file text) 

---

C	*****************************************************************
C	*****************************************************************
C	THIS SUBROUTINE CHECKS TO SEE IF SECTOR LACATION = "INSERT" VALUE
	SUBROUTINE CHECK
	COMMON ARRAY,ZONE1,ZONE2,INSERT,RANK1,RANK2,OK
	INTEGER ARRAY(8,8,3),ZONE1,ZONE2,RANK1,RANK2,OK
	OK = 0
	IF (ARRAY(ZONE1,ZONE2,3).NE.INSERT) GOTO 5810
	OK = 1
5810	RETURN
	END

---