anchor.diff:           ELSE
   *. Not in core  write determinant expansion on scratch unit LUC_SD
             CALL FILEMAN_MINI(LUC_SD,'ASSIGN')
  -          CALL REWINO(LUC_SD) 
  -          CALL REWINO(LUCEFF)
  +cnw       CALL REWINO(LUC_SD) 
  +cnw       CALL REWINO(LUCEFF)
   C         CSDTVCMN(CSFVEC,DETVEC,SCR,IWAY,ICOPY,ISYM,ISPC,
   C    &             IMAXMIN_OR_GAS,ICNFBAT,LUC_DET,LU_CSF,NOCCLS_ACT,
   C    &             IOCCLS_ACT,IBLOCK,NBLK_PER_BATCH)
  
positive.code: C?        WRITE(6,*) ' KCLBT, WORK(KCLBT) = ', KCLBT
  C?        CALL IWRTMA(WORK(KCLBT),1,1,1,1)
  *
            CALL CSDTVCMN(WORK(KKVEC1),WORK(KKVEC2),WORK(KVEC3),
       &         1,0,ICSM,ICSPC,2,2,LUC_SD,LUCEFF,NCOCCLS,
       &         WORK(KCIOCCLS_ACT),WORK(KCIBT),WORK(KCLBT))
            LUC2 = LUC_SD
  C?        WRITE(6,*) ' After CSDTVCMN '
           END IF
  
negative.code:      &       NBATCHL,WORK(KSLBT),WORK(KSLEBT),WORK(KSI1BT),
       &       WORK(KSIBT),
       &       NBATCHR,WORK(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,
       &       NDACTORB,IDACTSPC,IDTFREORD,IFTDREORD,IOBPTS_SEL,NINOB,
  