anchor.diff:  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 'lucinp.inc'
         INCLUDE 'orbinp.inc'
  
positive.code: *. Input
  c      IMPLICIT REAL*8(A-H,O-Z)
  c      INCLUDE 'mxpdim.inc'
        INCLUDE 'wrkspc.inc'
        INCLUDE 'lucinp.inc'
        INCLUDE 'orbinp.inc'
  
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,CFAC,
       &                    EFAC)
            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,CFAC,
       &                    EFAC)
          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,CFAC,
       &                    EFAC)
          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,CFAC,
       &                    EFAC)
          ELSE IF (I_UNRORB.EQ.1.AND.ISPCAS.EQ.3) THEN
            CALL GETINCN2(XINT,ITP,ISM,JTP,JSM,KTP,KSM,LTP,LSM,
  