CIPRIME CNABAK                                                          CNABAK      1
      DIMENSION IBC(NSID,2),IA(NSID,NSID),IB(NSID,40)                   CNABAK      2
      COMMON /ABAK/ A(NSID,NSID),B(NSID,40),NBR(20),AK(4,NSID),YD(4,4), CNABAK      3
     *BC(NSID,2),FCTM(6),MSUDM(20,5),ICOLBV                             CNABAK      4
      EQUIVALENCE (BC(1,1),IBC(1,1)),(A(1,1),IA(1,1)),(B(1,1),IB(1,1))  CNABAK      5
