1 SUBROUTINE SETARY(LAG,MEND1,NEND1,JEND1) 2 INTEGER*4 LAG(MEND1,NEND1) 3 C 4 L=0 5 DO 100 N=1,NEND1 6 MMAX=MIN(MEND1,JEND1+1-N) 7 DO 100 M=1,MMAX 8 L=L+1 9 LAG(M,N)=L 10 100 CONTINUE 11 C 12 RETURN 13 END SUBROUTINE SETARY 14