anchor.diff:       &       NAEL,IATP,NBEL,IBTP,IOCTPA,IOCTPB,NOCTPA,NOCTPB,
        &       NSMST,NSMOB,NSMSX,NSMDX,MXPNGAS,NOBPTS,IOBPTS,      
        &       MAXK,MAXI,LSCR1,LSCR1,WORK(KCSCR),WORK(KSSCR),
  -     &       SXSTSM,WORK(KSTSTS),WORK(KSTSTD),SXDXSX,
  +     &       SXSTSM,dbl_mb(KSTSTS),dbl_mb(KSTSTD),SXDXSX,
        &       ADSXA,ASXAD,NGAS,NELFSPGP,IDC,
  -     &       WORK(KI1),WORK(KXI1S),WORK(KI2),WORK(KXI2S),
  -     &       WORK(KI3),WORK(KXI3S),WORK(KI4),WORK(KXI4S),WORK(KINSCR), 
  -     &       MXPOBS,IPRDEN,WORK(KRHO1S),LLUL,LLUR,
  -     &       PSSIGN,PSSIGN,WORK(KRHO1P),WORK(KXNATO),
  +     &       int_mb(KI1),dbl_mb(KXI1S),int_mb(KI2),dbl_mb(KXI2S),
  +     &       int_mb(KI3),dbl_mb(KXI3S),int_mb(KI4),dbl_mb(KXI4S),
  +     &       dbl_mb(KINSCR),
  +     &       MXPOBS,IPRDEN,dbl_mb(KRHO1S),LLUL,LLUR,
  +     &       PSSIGN,PSSIGN,dbl_mb(KRHO1P),dbl_mb(KXNATO),
        &       NBATCHL,WORK(KSLBT),WORK(KSLEBT),WORK(KSI1BT),
        &       WORK(KSIBT),
        &       NBATCHR,WORK(KCLBT),WORK(KCLEBT),WORK(KCI1BT),
  -     &       WORK(KCIBT),WORK(KCONSPA),WORK(KCONSPB),
  -     &       WORK(KLSCLFCL),WORK(KLSCLFCR),S2_TERM1,IUSE_PH,IPHGAS,
  +     &       WORK(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,ICISTR,LV,RV,ICISTR,NVARL,NVARR,ILTEST)
  
positive.code: *. Obtain block A(ISM,IGAS,JSM,JGAS)
  C       EXTR_SYMGAS_BLK_FROM_ORBMAT(A,ABLK,ISM,IGAS,JSM,JGAS)
          CALL EXTR_SYMGAS_BLK_FROM_ORBMAT
       &  (A,WORK(KLABLK),ISM,IGAS,JSM,JGAS)
          DO KSM = 1, NSMOB
           LSM = MULTD2H(KSM,IBSM)
           DO KGAS = 1, NGAS
  
negative.code: *
  c      INCLUDE 'implicit.inc'
  c      INCLUDE 'mxpdim.inc'
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'wrkspc.inc'
        INCLUDE 'clunit.inc'
        INCLUDE 'crun.inc'
  