anchor.diff:       &       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(KCLBT),int_mb(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
        &       int_mb(KCIBT),
        &       WORK(KCNOCCLS_BAT),WORK(KCIBOCCLS_BAT),ILTEST)
           NCOCCLS = NCOCCLS_ACT
  
positive.code:           IP_B_CM  = 1
            DO IP_BATCH = 1, NPBATCH
             NP_BLK_BAT = int_mb(KSLBT+IP_BATCH-1)
             NP_CM_BAT  = IFRMR(WORK,KSLEBT,IP_BATCH)
             IF(NTEST.GE.1000)
       &     WRITE(6,*) ' IP_BATCH, NP_BLK_BAT, NP_CM_BAT = ',
       &                  IP_BATCH, NP_BLK_BAT, NP_CM_BAT
  
negative.code:      &     IPRNT,NSBLOCK,NSBATCH,
       &     int_mb(KSIOIO),int_mb(KSBLTP),NSOCCLS_ACT,
       &     dbl_mb(KSIOCCLS_ACT),
       &     int_mb(KSLBT),int_mb(KSLEBT),WORK(KSLBLK),WORK(KSI1BT),
       &     int_mb(KSIBT),
       &     WORK(KSNOCCLS_BAT),WORK(KSIBOCCLS_BAT),ILTEST)
        NBLOCK_Q = NSBLOCK
  