anchor.diff:        DO IQBAT = 1, NSBATCH
   C                  IFRMR(WORK,IROFF,IELMNT)
           IQ_OCCLS = dbl_mb(KSIOCCLS_ACT + IQBAT - 1)
  -        NSBLOCK_BAT = IFRMR(WORK,KSLBT,IQ_OCCLS)
  +        NSBLOCK_BAT = int_mb(KSLBT+IQ_OCCLS-1)
   *. Is this occupation in P-space
   C IS_IVEC_IN_LIST(IVEC,NELMNT,LIST,LLIST)
           IQINP = IS_IVEC_IN_LIST(IQ_OCCLS,1,dbl_mb(KCIOCCLS_ACT),
  
positive.code:      &       NTESTL,NCBLOCK,NCBATCH,
       &       int_mb(KCIOIO),int_mb(KCBLTP),NCOCCLS_ACT,
       &       dbl_mb(KCIOCCLS_ACT),
       &       WORK(KCLBT),WORK(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
       &       int_mb(KCIBT),
       &       WORK(KCNOCCLS_BAT),WORK(KCIBOCCLS_BAT),ILTEST)
          NCOCCLS = NCOCCLS_ACT
  
negative.code:           IP_B_BLK = 1
            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
             CALL SBLOCK(NP_BLK_BAT,int_mb(KSIBT),IP_B_BLK,CB,
       &          HCB(IP_B_CM),
       &          -1,0,0,1,IQBAT,IQBAT,WORK(KVEC4),ECORE,ITASK)
  C               SBLOCK(NBLOCK,IBLOCK,IBOFF,CB,HCB,LUC,IRESTRICT,
  