anchor.diff:  C    &           NBATCH,LBATCH,LEBATCH,I1BATCH,IBATCH,ICOMP,
   C    &           NOCCLS_BAT,IB_OCCLS_BAT)
         ELSE
  -        CALL PART_CIV2(IDC,IBLTP,WORK(KNSTSO(IATP)),
  -     &       WORK(KNSTSO(IBTP)),
  +        CALL PART_CIV2(IDC,IBLTP,int_mb(KNSTSO(IATP)),
  +     &       int_mb(KNSTSO(IBTP)),
        &       NOCTPA,NOCTPB,NSMST,LBLOCK,IOIO,
        &       ISMOST(1,ISM),
        &       NBATCH,NBLK_PER_BATCH,NELMNT_PER_BATCH,
  
positive.code: *. The active occupation classes
        IF(ISPC.LE.NCMBSPC) THEN
          CALL OCCLS_IN_CISPACE(NOCCLS_ACT,IOCCLS_ACT,
       &       NOCCLS_MAX,WORK(KIOCCLS),NGAS,
       &       LCMBSPC(ISPC),ICMBSPC(1,ISPC),IGSOCCX,ISPC)
  *. Number of configurations per number of open orbitals
          IF(NOCSF.EQ.0) THEN
            CALL GET_NCONF_PER_OPEN_FOR_SUM_OCCLS(NCONF_PER_OPEN(1,ISM),
       &         MAXOP,NOCCLS_ACT,IOCCLS_ACT,ISM,WORK(KNCN_PER_OP_SM),
       &         NIRREP)
  *. And offsets
            CALL INFO_CONF_LIST(ISM,LENGTH_LIST_LOC, NCONF_TOT_LOC)
  
negative.code:       CALL MEMCHK2('Z_BEPA')
        IF(NOCSF.EQ.0.AND.I_DO_BLOCKS.EQ.1) THEN
          CALL PART_CIV_OCC(IDC, IBLTP,ISM,NSMST,
       &       LBLOCK,ISMOST(1,ISM),int_mb(KNSTSO(IATP)),
       &       int_mb(KNSTSO(IBTP)),
       &       NOCCLS_ACT,IOCCLS_ACT,
       &       dbl_mb(KNABSPGP_FOR_OCCLS),dbl_mb(KIBABSPGP_FOR_OCCLS),
       &       dbl_mb(KIABSPGP_FOR_OCCLS),
       %       int_mb(KNSD_FOR_OCCLS),
       &       NBATCH,NBLK_PER_BATCH,NELMNT_PER_BATCH,
       &       IB_FOR_BATCH, IBLOCKFO,ICOMP,
       &       NOCCLS_BAT,IBOCCLS_BAT)
  