anchor.diff:  C?        WRITE(6,*) ' KCLBT, WORK(KCLBT) = ', KCLBT
   C?        CALL IWRTMA(WORK(KCLBT),1,1,1,1)
   *
  -          CALL CSDTVCMN(KKVEC1,KKVEC2,KVEC3,
  +          CALL CSDTVCMN(KKVEC1,KKVEC2,dbl_mb(KVEC3),
        &         1,0,ICSM,ICSPC,2,2,LUC_SD,LUCEFF,NCOCCLS,
  -     &         dbl_mb(KCIOCCLS_ACT),int_mb(KCIBT),WORK(KCLBT))
  +     &         dbl_mb(KCIOCCLS_ACT),int_mb(KCIBT),int_mb(KCLBT))
             LUC2 = LUC_SD
   C?        WRITE(6,*) ' After CSDTVCMN '
            END IF
  
positive.code:       ILTEST = -3006
        IF(ICISTR.GE.2) THEN
  *. Out of core version
          CALL GASDN2(I12,RHO1,RHO2,L,R,WORK(KC2),
       &       WORK(KCIOIO),int_mb(KSIOIO),ISMOST(1,ICSM),
       &       ISMOST(1,ISSM),int_mb(KCBLTP),int_mb(KSBLTP),NACOB,
       &       int_mb(KNSTSO(IATP)),int_mb(KISTSO(IATP)),
       &       int_mb(KNSTSO(IBTP)),int_mb(KISTSO(IBTP)),
       &       NAEL,IATP,NBEL,IBTP,IOCTPA,IOCTPB,NOCTPA,NOCTPB,
       &       NSMST,NSMOB,NSMSX,NSMDX,MXPNGAS,NOBPTS,IOBPTS,      
       &       MAXK,MAXI,LSCR1,LSCR1,WORK(KCSCR),WORK(KSSCR),
       &       SXSTSM,dbl_mb(KSTSTS),dbl_mb(KSTSTD),SXDXSX,
       &       ADSXA,ASXAD,NGAS,NELFSPGP,IDC,
       &       int_mb(KI1),dbl_mb(KXI1S),int_mb(KI2),dbl_mb(KXI2S),
  
negative.code: C    &           IMAXMIN_OR_GAS,ICNFBAT,LU_DET,LU_CSF,NOCCLS_ACT,
  C    &           IOCCLS_ACT,IBLOCK,NBLK_PER_BATCH)
  *. 
  cnw     CALL REWINO(LUR)
  cnw     CALL REWINO(LU_RDET)
  *. It is assumed that routines defining expansions, for ex.
  *. KCIBT have been constructed
          CALL CSDTVCMN(L,R,dbl_mb(KVEC3),
       &       1,0,ICSM,ICSPC,2,2,LU_RDET,LUR,NCOCCLS_ACT,
       &       dbl_mb(KCIOCCLS_ACT),int_mb(KCIBT),int_mb(KCLBT))
  *. 
          CALL REWINO(LUL)
          CALL REWINO(LU_LDET)
          CALL CSDTVCMN(L,R,dbl_mb(KVEC3),
       &       1,0,ISSM,ISSPC,2,2,LU_LDET,LUL,NSOCCLS_ACT,
       &       dbl_mb(KSIOCCLS_ACT),int_mb(KSIBT),int_mb(KSLBT))
         END IF ! Incore 
        END IF ! CSFs are in use
  
  