anchor.diff:          IF(NTEST.GE.100) 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: *. SD => CSF transformation
  *. Read determinant blocks in
           CALL FRMDSCN(DETVEC,NBLK,-1,LU_DET)
           CALL CSDTVCB(SCR,DETVEC,IWAY,WORK(KDTOC),
       &        WORK(KSDREO_I(ISYM)),NCM_OCCLS,NCM_OCCLS_AB,
       &        NCSF_OCCLS,NCN_FOR_OC_OP_ACT,
       &        ICOPY,IDO_REO,NTEST)
  *. Write CSF coefs to disc
  
negative.code: *
  * Jeppe Olsen, June 2011
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'spinfo.inc'
  