CIPRIME CNNETD                                                          CNNETD      1
*IF -MI2                                                                CNNETD      2
      INTEGER*2 LTRANC                                                  CNNETD      3
*ENDIF                                                                  CNNETD      4
      COMMON /SCRAT1/ LTRANC(NPL),LISMON(NPL),IARCCT(NPL)               CNNETD      5
     1,GBFT(NPL*5),ITRAN(NTR),ITRORD(NTR),TRANS(NTRX2)                  CNNETD      6
     2,ONRX(NB*9/6),CORTBL(220)                                         CNNETD      7
      DIMENSION                                                         CNNETD      8
     1         ISCFRM(NB*9/6),ISCTO(NB*9/6),ISCCID(NB*9/6)              CNNETD      9
     2        ,ISCCON(NB*9/6),ONRMAX(NB*9/6),ONRMIN(NB*9/6)             CNNETD     10
     3        ,VOLMAX(NB*9/6),VOLMIN(NB*9/6),STEP(NB*9/6)               CNNETD     11
      EQUIVALENCE                                                       CNNETD     12
     1            ( ISCFRM(1),ISCTO(1),ISCCID(1),ISCCON(1)              CNNETD     13
     2            , ONRMAX(1),ONRMIN(1),VOLMAX(1),VOLMIN(1)             CNNETD     14
     3            , STEP(1),ONRX(1))                                    CNNETD     15
      DIMENSION                                                         CNNETD     16
     4 LFTB(NPL*5),GA(NPL*5),BA(NPL*5),BCHG(NPL*5)                      CNNETD     17
     5,RATIO(NTR*2),RANG(NTR*2)                                         CNNETD     18
      EQUIVALENCE (GBFT(1),LFTB(1),GA(1),BA(1),BCHG(1))                 CNNETD     19
      EQUIVALENCE (TRANS(1),RATIO(1),RANG(1))                           CNNETD     20
