anchor.diff:       &     IPRNT,NSBLOCK,NSBATCH,
        &     int_mb(KSIOIO),int_mb(KSBLTP),NSOCCLS_ACT,
        &     dbl_mb(KSIOCCLS_ACT),
  -     &     int_mb(KSLBT),WORK(KSLEBT),WORK(KSLBLK),WORK(KSI1BT),
  +     &     int_mb(KSLBT),int_mb(KSLEBT),WORK(KSLBLK),WORK(KSI1BT),
        &     int_mb(KSIBT),
        &     WORK(KSNOCCLS_BAT),WORK(KSIBOCCLS_BAT),ILTEST)
         NBLOCK_Q = NSBLOCK
  
positive.code:      &     IPRNT,NCBLOCK,NCBATCH,
       &     int_mb(KCIOIO),int_mb(KCBLTP),NCOCCLS_ACT,
       &     dbl_mb(KCIOCCLS_ACT),
       &     int_mb(KCLBT),WORK(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
       &     int_mb(KCIBT),
       &     WORK(KCNOCCLS_BAT),WORK(KCIBOCCLS_BAT),ILTEST)
        NBLOCK_P = NCBLOCK
  
negative.code:      & MXP1,MXP2,MXQ,WORK(KH0SCR),EADD,ICISTR,LBLK,
       & IDIAG,dbl_mb(KVEC3),THRES_E,
       & NBATCH,
       & int_mb(KCLBT),int_mb(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
       & int_mb(KCIBT),
       & int_mb(KSLBT),int_mb(KSLEBT),WORK(KSLBLK),WORK(KSI1BT),
       & int_mb(KSIBT),
       & INIDEG,E_THRE,C_THRE,
       & E_CONV,C_CONV,ICLSSEL,WORK(KLBLKCLS),NOCCLS,
  