
C     INCLUDE 'Zdiftb.inc'

C     for PHASEX only
C     -------- /DIFTB/   for ITAB5*2 and DACOP parameters (see DACOP)

C     moet /BLANK/ worden !!  incl Zdifta.inc !!


      COMMON /DIFTB/ ITAB5, ISTO5, INCA5, ISTA4, ISTA42, MAXA4N,
     *                  JSYMB, FAK, FAKWS, REDUS, KBMAX,
     *                  KB10X(15,25), KB10XX(15,25)
      LOGICAL REDUS
      PARAMETER (ISIZ5 = 10000)
      INTEGER *2 ITAB5(5*ISIZ5)



C end of 'Zdiftb.inc'
 