anchor.diff:         IF(NTEST.GE.10) WRITE(6,*) ' NCMB, NCSF = ', NCMB, NCSF
   *. No reordering
          IDO_REO = 0
  -       CALL CSDTVCB(CSFVEC,DETVEC,IWAY,WORK(KDTOC),
  -     &      WORK(KICONF_REO_GN(ISYM,ISPC)),NCMB,NCMB,NCSF,
  +       CALL CSDTVCB(CSFVEC,DETVEC,IWAY,dbl_mb(KDTOC),
  +     &      int_mb(KICONF_REO_GN(ISYM,ISPC)),NCMB,NCMB,NCSF,
        &      NCONF_PER_OPEN_GN(1,ISYM,ISPC),
        &      ICOPY,IDO_REO,NTEST)
   C     CSDTVCB(CSFVEC,DETVEC,IWAY,DTOCMT,ICTSDT,
  
positive.code: *. Last modification; May 17, 2013; Jeppe Olsen;  Distinction between NCM_CN, NCM_ST
  *                     for INFBAT = 2
  *
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'spinfo.inc'
  
negative.code: *
  * Jeppe Olsen, June 2011
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'spinfo.inc'
  