CIPRIME CNJDAT                                                          CNJDAT      1
*IF -MI2                                                                CNJDAT      2
      INTEGER*2 IGENDA                                                  CNJDAT      3
*ENDIF                                                                  CNJDAT      4
      COMMON /JDAT/ IGENDA(16,NDYG),JGENDA(12,NDYG),NIFBUS(NM)          CNJDAT      5
     &,JJMDAT(NMT),JMOTB(NMT),JJNLD(NZL),JJRDAT(NXRAN),JSTRAN(NXRAN)    CNJDAT      6
     &,JJTPDA(NXSTP),JSTTP(NXSTP),JJTDAT(NXSTP),JJPDAT(NXSTP)           CNJDAT      7
     &,JSDBDA(NXSDB),JSAB(NSR),JJSDAT(NSR),JJTSCD(NZL),JDSSAB(NSR)      CNJDAT      8
     &,JSTHGS(NSR)                                                      CNJDAT      9
