CIPRIME CNSTAB                                                          CNSTAB      1
      REAL RINSTA(20,2),ROUTS(20)                                       CNSTAB      2
      INTEGER INSTA(20,2),IOUTS(20)                                     CNSTAB      3
      COMMON /STAB/ICBUSN,TFIOM0,ALPS1,ALPS2,ALPS3,ALPS4,DWTERM,        CNSTAB      4
     *RINSTA,INSTA,ROUTS,IOUTS,DSTB1,DSTB2                              CNSTAB      5
