CIPRIME CNLFDA                                                          CNLFDA      1
C     IF NPL < 32678 ITRAN AND ITRORD CAN BE HALFWORD ARRAYS            CNLFDA      2
C                                                                       CNLFDA      3
      INTEGER ITRAN,ITRORD                                              CNLFDA      4
C      INTEGER*2 ISCTBL                                                 CNLFDA      5
      COMMON /SCRAT1/                                                   CNLFDA      6
     1 GMWX(NB*2),BMWX(NB*4),BUDAT(NB8),GBFT(NPL*6)                     CNLFDA      7
     2,ITRAN(NTR),ITRORD(NTR),TRANS(NTRX2),ONRX(NB*9/6)                 CNLFDA      8
     3,CORTBL(220)                                                      CNLFDA      9
      DIMENSION                                                         CNLFDA     10
     1         ISCFRM(NB*9/6),ISCTO(NB*9/6),ISCCID(NB*9/6)              CNLFDA     11
     2        ,ISCCON(NB*9/6),ONRMAX(NB*9/6),ONRMIN(NB*9/6)             CNLFDA     12
     3        ,VOLMAX(NB*9/6),VOLMIN(NB*9/6),STEP(NB*9/6)               CNLFDA     13
      EQUIVALENCE                                                       CNLFDA     14
     1            ( ISCFRM(1),ISCTO(1),ISCCID(1),ISCCON(1)              CNLFDA     15
     2            , ONRMAX(1),ONRMIN(1),VOLMAX(1),VOLMIN(1)             CNLFDA     16
     3            , STEP(1),ONRX(1))                                    CNLFDA     17
      DIMENSION                                                         CNLFDA     18
     1 ERBUS(NB*8),EIBUS(NB*8),GMW(NB*2),GMX(NB*2),BSTC(NB*8)           CNLFDA     19
     2,RYGR(NB*8),RIYGR(NB*8),NAMES(NB*8)                               CNLFDA     20
     3,BMW(NB*4),BMX(NB*4),IBAR(NB4),XBASKV(NB*4)                       CNLFDA     21
     4,LFTB(NPL*5),GA(NPL*5),BA(NPL*5),BCHG(NPL*5)                      CNLFDA     22
     5,RATIO(NTR*2),RANG(NTR*2)                                         CNLFDA     23
      EQUIVALENCE                                                       CNLFDA     24
     1(ERBUS(1),EIBUS(1),BSTC(1),RYGR(1),RIYGR(1),NAMES(1),BUDAT(1))    CNLFDA     25
*IF -MI2                                                                CNLFDA     26
      INTEGER*2 LTRANC                                                  CNLFDA     27
*ENDIF                                                                  CNLFDA     28
      DIMENSION LTRANC(NPL)                                             CNLFDA     29
      EQUIVALENCE (LTRANC(1),GMWX(1))                                   CNLFDA     30
      EQUIVALENCE                                                       CNLFDA     31
     1(GMW(1),GMX(1),GMWX(1)),(BMW(1),BMX(1),BMWX(1),IBAR(1),XBASKV(1)) CNLFDA     32
      EQUIVALENCE (GBFT(1),LFTB(1),GA(1),BA(1),BCHG(1))                 CNLFDA     33
      EQUIVALENCE (TRANS(1),RATIO(1),RANG(1))                           CNLFDA     34
