
C     INCLUDE 'Zdatx.inc'
C===>  note: /XDATX/ used in COMPAT(COMPRI) but modified !!!
      COMMON /XDATX/ NREFL, HKLMAX(3), STLMAX, E000R
     *             , KEYT, BOV, BP, BR, BPAV, BOVMER, PATBP, PATBR
     *             , SCALE, SCAMER, R1X, R2X, R2EX 
     *             , NAT, NATS, NATL, P1SQ, PSQ
     *             , MPAT, IPAT, MORIE, IORIE
     *             , LEVEL, LEV6, LEV7, LEV8
C end of 'Zdatx.inc'
 