CIPRIME CNB4                                                            CNB4        1
      LOGICAL JMUPDT                                                    CNB4        2
      COMMON /B4I/ IFAULT,IFAUTO,ITER,ITTER,LITER,LITTER,ITSTRN,ISPEED  CNB4        3
     &,KSALI,MPRITE,MAXIT,JZV,NCHG,NDUMP,IDUMP,ISWF,ISWFA,IASWX,ISKIP   CNB4        4
     &,JMUPDT,NSMTCL,NSMULC,MTFLAG,ICHECK                               CNB4        5
      COMMON /B4F/ TS,TSOLD,TNOFA,TL,TCL,ERTOL,PNLI,TNLIS,VTHZL,VTHZH   CNB4        6
     &,ZILTOL,ZDTOL,XMAXSD,TMIN,DTMIN,GVTMIN,GVTMAX,BUVMIN,BUVMAX,DBTOL CNB4        7
     &,VBUS(MP),BNSTEP                                                  CNB4        8
