anchor.diff:            CALL ZBLTP(ISMOST(1,ISYM),NSMST,IDC,dbl_mb(KLBLTP),
        $               dbl_mb(KLCVST))
             CALL NGASDT(IGSOCCX(1,1,ICI),IGSOCCX(1,2,ICI),NGAS,ISYM,
  -     &                NSMST,NOCTPA,NOCTPB,WORK(KNSTSO(IATP)),
  -     &                WORK(KNSTSO(IBTP)),
  +     &                NSMST,NOCTPA,NOCTPB,int_mb(KNSTSO(IATP)),
  +     &                int_mb(KNSTSO(IBTP)),
        &                ISPGPFTP(1,IBSPGPFTP(IATP)),
        &                ISPGPFTP(1,IBSPGPFTP(IBTP)),MXPNGAS,NELFGP,
        &                NCOMB,XNCOMB,MXS,MXSOO,WORK(KLBLTP),NTTSBL,
  
positive.code: 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,
       &       LCMBSPC(ISPCIN),ICMBSPC(1,ISPCIN),IGSOCCX,ISPCIN)
        CALL OCCLS_IN_CISPACE(NOCCLSUT,int_mb(KLOCCLSUT),
       &       NOCCLS_MAX,WORK(KIOCCLS),NGAS,
       &       LCMBSPC(ISPCUT),ICMBSPC(1,ISPCUT),IGSOCCX,ISPCUT)
  
  *
  
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,
  