anchor.diff:  * total symmetry of the operator
   c      IMPLICIT REAL*8(A-H,O-Z)
   c      INCLUDE 'mxpdim.inc'
  +#include "errquit.fh"
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'wrkspc.inc'
         INCLUDE 'glbbas.inc'
         INCLUDE 'lucinp.inc'
  
positive.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),
       &                    WORK(KPINT2),NSMOB,WORK(KINH1),ICOUL,0)
            ELSE
              CALL GETINCN2_NOCCSYM(XINT,ITP,ISM,JTP,JSM,KTP,KSM,LTP,LSM,
       &                  IXCHNG,IKSM,JLSM,WORK(KINT2),
       &                  WORK(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),
       &                  WORK(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),
       &                  WORK(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),
       &                  WORK(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),
  
negative.code:           ELSE
              IF (I_UNRORB.EQ.0.OR.ISPCAS.EQ.1) THEN
                GETH1E =
       &             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,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
  