CIPRIME CNMON                                                           CNMON       1
      CHARACTER*4 IRD                                                   CNMON       2
      COMMON /LMONC/ IRD(3,MONL)                                        CNMON       3
      COMMON /LMON/  LINMON(MONL*12)                                    CNMON       4
      DIMENSION MLFTB(MONL*12),MACKT(MONL*12),MTYIRS(MONL*12)           CNMON       5
     &,JRSKRS(MONL*12),GLM(MONL*12),BLM(MONL*12),BLCF(MONL*12)          CNMON       6
     &,BLT(MONL*12),RADX(MONL*12),RORIG(MONL*12),XORIG(MONL*12)         CNMON       7
     &,KRADX(MONL*12)                                                   CNMON       8
      EQUIVALENCE                                                       CNMON       9
     &(LINMON(1),MLFTB(1),MACKT(1),MTYIRS(1),JRSKRS(1),GLM(1)           CNMON      10
     &,BLM(1),BLCF(1),BLT(1),RADX(1),KRADX(1),RORIG(1),XORIG(1))        CNMON      11
