anchor.diff:  *.0: Pointers to one-integrals, all symmetries, Lower half matrices
         DO ISM = 1, NSMOB
           CALL PNT2DM(1,NSMOB,NSMSX,ADSXA,NTOOBS,NTOOBS,
  -     &       ISM  ,ISL1,WORK(KPGINT1(ISM)),MXPOBS)
  +     &       ISM  ,ISL1,dbl_mb(KPGINT1(ISM)),MXPOBS)
         END DO
   *.0.5: Pointers to one-electron integrals, all symmetries, complete form
         DO ISM = 1, NSMOB
           CALL PNT2DM(0,NSMOB,NSMSX,ADSXA,NTOOBS,NTOOBS,
  -     &       ISM  ,ISL1,WORK(KPGINT1A(ISM)),MXPOBS)
  +     &       ISM  ,ISL1,dbl_mb(KPGINT1A(ISM)),MXPOBS)
         END DO
   *.1: Number of one-electron integrals
         CALL PNT2DM(1,NSMOB,NSMSX,ADSXA,NTOOBS,NTOOBS,
  
positive.code:           ELSE
              IF (I_UNRORB.EQ.0.OR.ISPCAS.EQ.1) THEN
                GETH1E =
       &             GTH1ES(IREOTS,WORK(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)
              ELSE
                WRITE(6,*) 'Impossible I_UNRORB/ISPCAS combination: ',
       &             I_UNRORB,ISPCAS
  
negative.code:           IF (I12S.EQ.1.AND.I34S.EQ.1) THEN
              CALL GETINCN2(XINT,ITP,ISM,JTP,JSM,KTP,KSM,LTP,LSM,
       &                    IXCHNG,IKSM,JLSM,WORK(KINT2),
       &                    dbl_mb(KPINT2),NSMOB,WORK(KINH1),ICOUL,0)
            ELSE
              CALL GETINCN2_NOCCSYM(XINT,ITP,ISM,JTP,JSM,KTP,KSM,LTP,LSM,
       &                  IXCHNG,IKSM,JLSM,WORK(KINT2),
       &                  dbl_mb(KPINT2),NSMOB,WORK(KINH1),ICOUL,0)
            END IF
          ELSE IF (I_UNRORB.EQ.0) THEN
            CALL GETINCN2(XINT,ITP,ISM,JTP,JSM,KTP,KSM,LTP,LSM,
       &                  IXCHNG,IKSM,JLSM,WORK(KINT2),
       &                  dbl_mb(KPINT2),NSMOB,WORK(KINH1),ICOUL,0)
          ELSE IF (I_UNRORB.EQ.1.AND.ISPCAS.EQ.1) THEN
            CALL GETINCN2(XINT,ITP,ISM,JTP,JSM,KTP,KSM,LTP,LSM,
       &                  IXCHNG,IKSM,JLSM,WORK(KINT2),
       &                  dbl_mb(KPINT2),NSMOB,WORK(KINH1),ICOUL,0)
          ELSE IF (I_UNRORB.EQ.1.AND.ISPCAS.EQ.2) THEN
            CALL GETINCN2(XINT,ITP,ISM,JTP,JSM,KTP,KSM,LTP,LSM,
       &                  IXCHNG,IKSM,JLSM,WORK(KINT2BB),
       &                  dbl_mb(KPINT2),NSMOB,WORK(KINH1),ICOUL,0)
          ELSE IF (I_UNRORB.EQ.1.AND.ISPCAS.EQ.3) THEN
            CALL GETINCN2(XINT,ITP,ISM,JTP,JSM,KTP,KSM,LTP,LSM,
       &                  IXCHNG,IKSM,JLSM,WORK(KINT2AB),
  