anchor.diff:       & MXP1,MXP2,MXQ,WORK(KH0SCR),EADD,ICISTR,LBLK,
        & IDIAG,dbl_mb(KVEC3),THRES_E,
        & NBATCH,
  -     & int_mb(KCLBT),WORK(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
  +     & int_mb(KCLBT),int_mb(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
        & int_mb(KCIBT),
  -     & int_mb(KSLBT),WORK(KSLEBT),WORK(KSLBLK),WORK(KSI1BT),
  +     & 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,
  
positive.code:      &     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(KSIBT),
       &     WORK(KSNOCCLS_BAT),WORK(KSIBOCCLS_BAT),ILTEST)
        NBLOCK_Q = NSBLOCK
  
negative.code:           IP_B_CM  = 1
            DO IP_BATCH = 1, NPBATCH
             NP_BLK_BAT = int_mb(KSLBT+IP_BATCH-1)
             NP_CM_BAT  = int_mb(KSLEBT+IP_BATCH-1)
             IF(NTEST.GE.1000)
       &     WRITE(6,*) ' IP_BATCH, NP_BLK_BAT, NP_CM_BAT = ',
       &                  IP_BATCH, NP_BLK_BAT, NP_CM_BAT
  