anchor.diff:        IF(ICFIRST.EQ.1) THEN
           CALL Z_BLKFO_FOR_CISPACE(ICSPC,ICSM,LBLOCK,ICOMP,
        &       NTESTL,NCBLOCK,NCBATCH,
  -     &       WORK(KCIOIO),WORK(KCBLTP),NCOCCLS_ACT,WORK(KCIOCCLS_ACT),
  +     &       int_mb(KCIOIO),int_mb(KCBLTP),NCOCCLS_ACT,
  +     &       WORK(KCIOCCLS_ACT),
        &       WORK(KCLBT),WORK(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
        &       WORK(KCIBT),
        &       WORK(KCNOCCLS_BAT),WORK(KCIBOCCLS_BAT),ILTEST)
  
positive.code:         IF(NTEST.GE.1000)
       &  WRITE(6,*) ' NCBLK, NSBLK, NXBLOCK = ', NCBLK, NSBLK, NXBLOCK
          CALL GASDIAT(VECSCR,LUSC,SHIFT,ICISTR,I12,
       &               WORK(KXBLTP),NXBLOCK,WORK(KXIBT),IUSE_EXP)
  *
  * Average diagonal in each configuration
  *
  
negative.code:         SHIFT = ECORE
          IUSE_EXP = 1
          CALL GASDIAT(WORK(KVEC2),LUDIA,SHIFT,ICISTR,I12,
       &               int_mb(KCBLTP),NCBLOCK,WORK(KCIBT),IUSE_EXP)
          CALL FILEMAN_MINI(LUSC,'ASSIGN')
          CALL CSDIAG(WORK(KVEC1P),WORK(KVEC1P),
       &       NCONF_PER_OPEN(1,IREFSM),MAXOP,IREFSM,
  