File: STARCH.LS of Tape: V50/Source/Source-Listing-FORTRAN-1

(Source file text) 

---

        FORTRAN IV  5AAAA (A6)   9-APR-92             PAGE  ONE 

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

---