*
* $Id: dokdom1.inc,v 1.1.1.1 1996/02/15 17:49:00 mclareni Exp $
*
* $Log: dokdom1.inc,v $
* Revision 1.1.1.1  1996/02/15 17:49:00  mclareni
* Kernlib
*
*
*
* dokdom1.inc
*
          LY1L  =  1
          LZ1L  =  1
          DO 13 L  =  1, K
             LXI1  =  1
             LZIL  =  LZ1L
             DO 12 I  =  1, M
                LXIJ  =  LXI1
                LYJL  =  LY1L