anchor.diff:            ELSE
               IF (I_UNRORB.EQ.0.OR.ISPCAS.EQ.1) THEN
                 GETH1E =
  -     &             GTH1ES(IREOTS,WORK(KPGINT1(IJSM)),WORK(KINT1),IBSO,
  +     &             GTH1ES(IREOTS,dbl_mb(KPGINT1(IJSM)),WORK(KINT1),IBSO,
        &             MXPNGAS,IOBPTS_GN,NTOOBS,IORB,ITP,ISM,JORB,JTP,JSM,1,
        &             NINOB)
               ELSE  IF (I_UNRORB.EQ.1.AND.ISPCAS.EQ.2) THEN
                 GETH1E =
  -     &             GTH1ES(IREOTS,WORK(KPGINT1(IJSM)),WORK(KINT1B),IBSO,
  -     &             MXPNGAS,IOBPTS_GN,NTOOBS,IORB,ITP,ISM,JORB,JTP,JSM,1,
  -     &             NINOB)
  +     &             GTH1ES(IREOTS,dbl_mb(KPGINT1(IJSM)),WORK(KINT1B),
  +     &             IBSO,MXPNGAS,IOBPTS_GN,NTOOBS,IORB,ITP,ISM,JORB,
  +     &             JTP,JSM,1,NINOB)
               ELSE
                 WRITE(6,*) 'Impossible I_UNRORB/ISPCAS combination: ',
        &             I_UNRORB,ISPCAS
  
positive.code: *
  c      IMPLICIT REAL*8(A-H,O-Z)
  c      INCLUDE 'mxpdim.inc'
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'wrkspc.inc'
  
negative.code: C?        WRITE(6,*) ' GETH1E, old route '
              IF (I_UNRORB.EQ.0.OR.ISPCAS.EQ.1) THEN
                GETH1E =
       &           GTH1ES(IREOTS,dbl_mb(KPINT1),WORK(KINT1),IBSO,MXPNGAS,
       &           IOBPTS_GN,NTOOBS,IORB,ITP,ISM,JORB,JTP,JSM,1,NINOB)
              ELSE IF (I_UNRORB.EQ.1.AND.ISPCAS.EQ.2) THEN
                GETH1E =
       &           GTH1ES(IREOTS,dbl_mb(KPINT1),WORK(KINT1B),IBSO,MXPNGAS,
       &           IOBPTS_GN,NTOOBS,IORB,ITP,ISM,JORB,JTP,JSM,1,NINOB)
              ELSE
                WRITE(6,*) 'Impossible I_UNRORB/ISPCAS combination: ',
  