anchor.diff:       &               1,0,ICSM,ICSPC,2)
         ELSE
   *. Not in core- write determinant expansion on LU_CDET
  -       CALL CSDTVCMN(CB,HCB,WORK(KVEC3),
  +       CALL CSDTVCMN(CB,HCB,dbl_mb(KVEC3),
        &      1,0,ICSM,ICSPC,2,2,LU_CDET,LUC,NCOCCLS_ACT,
  -     &      dbl_mb(KCIOCCLS_ACT),int_mb(KCIBT),WORK(KCLBT))
  +     &      dbl_mb(KCIOCCLS_ACT),int_mb(KCIBT),int_mb(KCLBT))
         END IF
   * 2: HPP CP (in and out in SD/CM), save on LU_SDET
         ICSPC = IPSPC
         ISSPC = IQSPC
  -      CALL RASSG3(CB,HCB,NCBATCH,WORK(KCLBT),WORK(KCLEBT),
  +      CALL RASSG3(CB,HCB,NCBATCH,int_mb(KCLBT),WORK(KCLEBT),
        &     WORK(KCI1BT),int_mb(KCIBT),LU_CDET,LU_SDET,XDUM,XDUM,ECORE,
        &     ITASK)
   *
  
positive.code:      &               2,0,ICSM,ICSPC,2)
        ELSE
  *. Not in core- write determinant expansion on LU_CDET
         CALL CSDTVCMN(HCB,CB,WORK(KVEC3),
       &      2,0,ICSM,ICSPC,2,2,LU_SDET,LUHC,NCOCCLS_ACT,
       &      dbl_mb(KCIOCCLS_ACT),int_mb(KCIBT),WORK(KCLBT))
        END IF
        IF(NTEST.GE.1000) WRITE(6,*) ' Home from CSDTVCMN '
  *
  
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,
  