anchor.diff:  C    &           NOCCLS,IOCCLS_OCC,NGAS,
   C    &           NMNMX_SPC,IMNMX_SPC,MNMX_OCC,ISPC)
         CALL OCCLS_IN_CISPACE(NOCCLSIN,int_mb(KLOCCLSIN),
  -     &       NOCCLS_MAX,WORK(KIOCCLS),NGAS,
  +     &       NOCCLS_MAX,int_mb(KIOCCLS),NGAS,
        &       LCMBSPC(ISPCIN),ICMBSPC(1,ISPCIN),IGSOCCX,ISPCIN)
         CALL OCCLS_IN_CISPACE(NOCCLSUT,int_mb(KLOCCLSUT),
  -     &       NOCCLS_MAX,WORK(KIOCCLS),NGAS,
  +     &       NOCCLS_MAX,int_mb(KIOCCLS),NGAS,
        &       LCMBSPC(ISPCUT),ICMBSPC(1,ISPCUT),IGSOCCX,ISPCUT)
   
   *
  
positive.code:       IB_B = IBSPGPFTP(IBTP)
        CALL ABSPGP_TO_CISPACE(ISPGPFTP(1,IB_A),NASPGP,
       &     ISPGPFTP(1,IB_B),NBSPGP,NGAS,IGSOCC,NELFGP,
       &     N_ABSPGP_MAX,WORK(KIABSPGP_FOR_CMPSPC),0)
  *. Obtain mapping from occupation classes to supergroups
        IATP = 1
        IBTP = 2
  
negative.code:         CALL MEMMAN(KWCPMT,LENGTH,'ADDL  ',2,'KWCPMT') !done
  *
  *. Occupation of strings of given sym and supergroup
          CALL GASANAS(C,LUC,int_mb(KNSTSO(IATP)),int_mb(KNSTSO(IBTP)),
       &       NOCTPA,NOCTPB,MXPNGAS,IOCTPA,IOCTPB,
       &       NBLOCK,IBLOCK,
       &       THRES,MAXTRM,NAEL,NBEL,
  