anchor.diff:  *. Set up the basespace for the various occupation classes
   C          Z_BASSPC_FOR_ALL_OCCLS(IOCCLS,NOCCLS,IBASSPC)
         CALL Z_BASSPC_FOR_ALL_OCCLS(int_mb(KIOCCLS),NOCCLS_MAX,
  -     &      WORK(KBASSPC))
  +     &      int_mb(KBASSPC))
   *. Dimensions for all occupation classes
   
   *
  
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,CFAC,
       &                    EFAC)
            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,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),
       &                  WORK(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),
       &                  WORK(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,
  
negative.code: *. Input
  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'
  