anchor.diff:            IP_B_BLK = 1
             IP_B_CM  = 1
             DO IP_BATCH = 1, NPBATCH
  -           NP_BLK_BAT = IFRMR(WORK,KSLBT,IP_BATCH)
  +           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,WORK(KSIBT),IP_B_BLK,CB,
  +           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,
  
positive.code:      &       NCONF_PER_OPEN(1,ISM),MAXOP,ISM,
       &       WORK(KSDREO_I(ISM)),NPCMCNF,NPCSCNF,IPRCSF,
       &       ICNFBAT,NXIOCCLS_ACT,dbl_mb(KXIOCCLS_ACT),
       &       WORK(KXLBT),LUSC,LUDIA_A)
          IF(ICISTR.NE.1) CALL FILEMAN_MINI(LUSC,'FREE  ')
        ELSE
  *
  
negative.code:      &               2,0,ICSM,ICSPC,2)
        ELSE
  *. Not in core- write determinant expansion on LU_CDET
         CALL CSDTVCMN(HCB,CB,dbl_mb(KVEC3),
       &      2,0,ICSM,ICSPC,2,2,LU_SDET,LUHC,NCOCCLS_ACT,
       &      dbl_mb(KCIOCCLS_ACT),int_mb(KCIBT),int_mb(KCLBT))
        END IF
        IF(NTEST.GE.1000) WRITE(6,*) ' Home from CSDTVCMN '
  *
  