anchor.diff:        ILTEST = -3006
         IF(ICISTR.GE.2) THEN
   *. Out of core version
  -        CALL GASDN2(I12,RHO1,RHO2,L,R,WORK(KC2),
  +        CALL GASDN2(I12,RHO1,RHO2,L,R,dbl_mb(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),
  +     &       MAXK,MAXI,LSCR1,LSCR1,dbl_mb(KCSCR),dbl_mb(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),
  
positive.code: C    &           IMAXMIN_OR_GAS,ICNFBAT,LU_DET,LU_CSF,NOCCLS_ACT,
  C    &           IOCCLS_ACT,IBLOCK,NBLK_PER_BATCH)
  *. 
          CALL REWINO(LUR)
          CALL REWINO(LU_RDET)
  *. It is assumed that routines defining expansions, for ex.
  *. KCIBT have been constructed
          CALL CSDTVCMN(L,R,WORK(KVEC3),
       &       1,0,ICSM,ICSPC,2,2,LU_RDET,LUR,NCOCCLS_ACT,
       &       dbl_mb(KCIOCCLS_ACT),int_mb(KCIBT),WORK(KCLBT))
  *. 
          CALL REWINO(LUL)
          CALL REWINO(LU_LDET)
          CALL CSDTVCMN(L,R,WORK(KVEC3),
       &       1,0,ISSM,ISSPC,2,2,LU_LDET,LUL,NSOCCLS_ACT,
       &       dbl_mb(KSIOCCLS_ACT),WORK(KSIBT),WORK(KSLBT))
         END IF ! Incore 
        END IF ! CSFs are in use
  
  
negative.code:      &       dbl_mb(KINSCR),
       &       MXPOBS,IPRDEN,dbl_mb(KRHO1S),-1,-1,
       &       PSSIGN,PSSIGN,dbl_mb(KRHO1P),dbl_mb(KXNATO),
       &       NBATCHL,int_mb(KSLBT),WORK(KSLEBT),WORK(KSI1BT),
       &       int_mb(KSIBT),
       &       NBATCHR,int_mb(KCLBT),WORK(KCLEBT),WORK(KCI1BT),
       &       int_mb(KCIBT),int_mb(KCONSPA),int_mb(KCONSPB),
       &       dbl_mb(KLSCLFCL),dbl_mb(KLSCLFCR),S2_TERM1,IUSE_PH,IPHGAS,
       &       IDOSRHO1,SRHO1,IDOSRHO2,RHO2AA,RHO2AB,RHO2BB,
  