var/convertor/kma_wave2grid/SETARY.inc

   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