CIPRIME CNJCOB                                                          CNJCOB      1
*IF -MI2                                                                CNJCOB      2
      INTEGER*2 IALUFT                                                  CNJCOB      3
*ENDIF                                                                  CNJCOB      4
      COMMON /SCRAT6/ IALUFT(NG65),AJCOB(NG17),IAJCOB(2,NG17)           CNJCOB      5
     &,ALUFT(NG65),BJCOB(NG40),CJCOB(10*NG),                            CNJCOB      6
     *YGJCOB(4,NG),JCBPEM(NSI),IAIDEX,IBIDEX,ICIDEX,NALUFT,KORDJB       CNJCOB      7
      INTEGER IBJCOB(NG40)                                              CNJCOB      8
      EQUIVALENCE (BJCOB(1),IBJCOB(1))                                  CNJCOB      9
