anchor.diff:  *
             IF(IPRNT.GT.2) THEN
              IF(NOCSF.EQ.1) THEN
  -            CALL GASANA(WORK(KPVEC1),NBLOCK,WORK(KCIBT),WORK(KCBLTP),
  -     &                  LUC,ICISTR)
  +            CALL GASANA(WORK(KPVEC1),NBLOCK,int_mb(KCIBT),
  +     &                  int_mb(KCBLTP),LUC,ICISTR)
              ELSE
               THRES = 0.1D0
               MAXTRM = 100
               IOUT = 6
   C                ANACSF(CIVEC,ICONF_OCC,NCONF_FOR_OPEN,IPROCS,THRES,MAXTRM,IOUT)
               IF(ICNFBAT.EQ.1) THEN
  -              CALL ANACSF(WORK(KPVEC1),WORK(KICONF_OCC(ISM)),
  -     &                    NCONF_PER_OPEN(1,ISM),WORK(KCFTP),
  +              CALL ANACSF(WORK(KPVEC1),int_mb(KICONF_OCC(ISM)),
  +     &                    NCONF_PER_OPEN(1,ISM),int_mb(KCFTP),
        &                    THRES,MAXTRM,IOUT)
               ELSE
               THRES = 0.1D0
               MAXTRM = 100
                 IOUT = 6
  -              CALL ANACSF2(LUC,NCOCCLS_ACT,WORK(KCIOCCLS_ACT),ISM,
  -     &             WORK(KPVEC1),WORK(KICONF_OCC(ISM)),
  -     &             NCONF_PER_OPEN(1,ISM),WORK(KCFTP),THRES,
  +              CALL ANACSF2(LUC,NCOCCLS_ACT,dbl_mb(KCIOCCLS_ACT),ISM,
  +     &             WORK(KPVEC1),int_mb(KICONF_OCC(ISM)),
  +     &             NCONF_PER_OPEN(1,ISM),int_mb(KCFTP),THRES,
        &             MAXTRM,IOUT)
   C      ANACSF2(LUC,NOCCLS_SPC,IOCCLS_SPC,
   C     &           CIVEC,ICONF_OCC,NCONF_FOR_OPEN,IPROCS,THRES,
  
positive.code: C?       WRITE(6,*) ' Ecore before GET_CSF.... ', ECORE
  C?       WRITE(6,*) ' KPDIA_SD = ', KPDIA_SD
           CALL GET_CSF_H_PRECOND(NCONF_PER_OPEN(1,ISM),
       &        WORK(KICONF_OCC(ISM)),WORK(KPDIA_SD),ECORE,
       &        LUDIA,NCOCCLS_ACT,WORK(KCIOCCLS_ACT),ISM)
  C        GET_CSF_H_PRECOND(NCONF_FOR_OPEN,ICONF_OCC,H0,ECORE,
  C    &   LUDIA,NOCCLS_ACT,IOCCLS_ACT),ISYM)
         END IF
  
negative.code:      & NPRDET,WORK(KH0),WORK(KLH0_SUBDT),
       & NP1,NP2,NQ,WORK(KH0SCR),EADD,ICISTR,LBLK,
       & IDIAG,WORK(KVEC3),THRES_E,NBATCH,
       & int_mb(KCLBT),int_mb(KCLEBT),int_mb(KCLBLK),int_mb(KCI1BT),
       & int_mb(KCIBT),
       & int_mb(KSLBT),int_mb(KSLEBT),int_mb(KSLBLK),int_mb(KSI1BT),
       & int_mb(KSIBT),
       & INIDEG,E_THRE,C_THRE,
       & E_CONV,C_CONV,ICLSSEL,int_mb(KLBLKCLS),NOCCLS_MAX,
       & dbl_mb(KLCLSC),dbl_mb(KLCLSE),dbl_mb(KLCLSCT),dbl_mb(KLCLSET),
       & dbl_mb(KLCLSA),int_mb(KLCLSL),dbl_mb(KLCLSLR),int_mb(KLBLKA),
       & dbl_mb(KLCLSD),dbl_mb(KLCLSDT),dbl_mb(KLCLSG),dbl_mb(KLCLSGT),
       & ISKIPEI,int_mb(KC2B),dbl_mb(KLCLSA2),
       & LBLOCK,IROOT_SEL,int_mb(KBASSPC),dbl_mb(KLEBASC),
       & dbl_mb(KLCBASC),NCMBSPC,MULSPCA,IPAT,LPAT,ISPC,NCNV_RT,
       & IPRECOND,IIUSEH0P,MPORENP_E,RNRM,CONV_F,ISBSPPR_ACT,
       & ILAST)
  *
  