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:      &       NTESTL,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)
          NCOCCLS = NCOCCLS_ACT
  
negative.code:      &     IPRNT,NCBLOCK,NCBATCH,
       &     int_mb(KCIOIO),int_mb(KCBLTP),NCOCCLS_ACT,
       &     dbl_mb(KCIOCCLS_ACT),
       &     int_mb(KCLBT),int_mb(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
       &     int_mb(KCIBT),
       &     WORK(KCNOCCLS_BAT),WORK(KCIBOCCLS_BAT),ILTEST)
        NBLOCK_P = NCBLOCK
  