*
* $Id: dokdom2.inc,v 1.1.1.1 1996/02/15 17:49:01 mclareni Exp $
*
* $Log: dokdom2.inc,v $
* Revision 1.1.1.1  1996/02/15 17:49:01  mclareni
* Kernlib
*
*
*
* dokdom2.inc
*
                LXI1  =  LXI1 + IX
                LZIL  =  LZIL + IZ
  12            CONTINUE
             LY1L  =  LY1L + LY
             LZ1L  =  LZ1L + LZ
  13         CONTINUE
          RETURN