
C     INCLUDE 'Zdifta.inc'

C     used only in PHASEX ( incl. almost all subr. )
C     PSQ -> Zdatx.inc 
C     E000R naar Zdatx.inc
C     moet /BLANK/ worden !! en een andere /BLANK/ incl /DIFTA1/ !!

      COMMON /DIFTA/ ITAB, MCT, NCT, ICR, MARKA4, ISTO4, INCA4,MAXA4,
     *               NR, MCH, MCK, I34, I35, MAXHKL(3), IPG2(8),
     *               IDC, NC, ESTART(5), ESTAR1, TO(3), KORIS,
     *               QEET, MAXT, MCTLAT, IICENT, MS, NGN, NSP,
     *               E2ALE, E2CLE, E2AGE, E2CGE, E2AG(7), E2CG(7),
     *               IDC3, PSQDUM, IPSQ, E1MIN, E1100
      PARAMETER (ISIZ = 59876)
      INTEGER *2 ITAB(ISIZ)

C end of 'Zdifta.inc'
 