File: STARSC.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 GENERATES SECTOR COORDINATES -- RANK1 & RANK2
0002 SUBROUTINE SECTOR
0003 COMMON ARRAY,ZONE1,ZONE2,INSERT,RANK1,RANK2,OK,IRA,JONES
0004 INTEGER ARRAY(8,8,3),ZONE1,ZONE2,RANK1,RANK2,OK
0005 5380 RANK1 = INT(RAN(IRA,JONES)*8+1)
0006 RANK2 = INT(RAN(IRA,JONES)*8+1)
0007 INSERT = 0
0010 ZONE1 = RANK1
0011 ZONE2 = RANK2
0012 CALL CHECK
0013 IF (OK.EQ.0) GOTO 5380
0014 RETURN
0015 END