anchor.diff:        CALL MEMMAN(KI4  ,LSCR3,'ADDL  ',1,'I4    ')
         CALL MEMMAN(KXI4S,LSCR3,'ADDL  ',2,'XI4S  ')
         KSVST = 1
  -      CALL ZBLTP(ISMOST(1,ICSM),NSMST,IDC,WORK(KCBLTP),WORK(KSVST))
  +      CALL ZBLTP(ISMOST(1,ICSM),NSMST,IDC,int_mb(KCBLTP),int_mb(KSVST))
   *.Some TTS arrays 
         NOOS = NOCTPA*NOCTPB*NSMCI 
         NTTS = MXNTTS
  
positive.code:          KSCIOIO = KCIOIO
        END IF
        IPRCIXL = 0
        CALL MXRESCPH(WORK(KSCIOIO),IOCTPA,IOCTPB,NOCTPA,NOCTPB,
       &            NSMST,NSTFSMSPGP,MXPNSMST,
       &            NSMOB,MXPNGAS,NGAS,NOBPTS,IPRCIXL,MAXK,
       &            NELFSPGP,
  
negative.code:       CALL MEMMAN(KCONSPB,NOCTPB**2,'ADDL  ',1,'CONSPB')
  C     SPGRPCON(IOFSPGRP,NSPGRP,NGAS,MXPNGAS,IELFSPGRP,ISPGRPCON,IPRNT)
        CALL SPGRPCON(IOCTPA,NOCTPA,NGAS,MXPNGAS,NELFSPGP,
       &              int_mb(KCONSPA),IPRCIX)
        CALL SPGRPCON(IOCTPB,NOCTPB,NGAS,MXPNGAS,NELFSPGP,
       &              int_mb(KCONSPB),IPRCIX)
  *
  * string sym, string sym => sx sym
  * string sym, string sym => dx sym
        CALL MEMMAN(KSTSTS,NSMST ** 2,'ADDL  ',2,'KSTSTS')
        CALL MEMMAN(KSTSTD,NSMST ** 2,'ADDL  ',2,'KSTSTD')
        CALL STSTSM(dbl_mb(KSTSTS),dbl_mb(KSTSTD),NSMST)
  *. Largest block of strings in zero order space
        MXSTBL0 = MXNSTR           
  *. Largest number of strings of given symmetry and type
        MAXA = 0
        MAXA0 = IMNMX(int_mb(KNSTSO(IATP)),NSMST*NOCTYP(IATP),2)
        MAXA = MAX(MAXA,MAXA0)
        IF(NAEL.GE.1) THEN
          MAXA1 = IMNMX(int_mb(KNSTSO(IATPM1)),NSMST*NOCTYP(IATPM1),2)
          MAXA = MAX(MAXA,MAXA1)
        END IF
        IF(NAEL.GE.2) THEN
          MAXA1 = IMNMX(int_mb(KNSTSO(IATPM2)),NSMST*NOCTYP(IATPM2),2)
          MAXA = MAX(MAXA,MAXA1)
        END IF
  *
        MAXB = 0
        MAXB0 = IMNMX(int_mb(KNSTSO(IBTP)),NSMST*NOCTYP(IBTP),2)
        MAXB = MAX(MAXB,MAXB0)
        IF(NBEL.GE.1) THEN
          MAXB1 = IMNMX(int_mb(KNSTSO(IBTPM1)),NSMST*NOCTYP(IBTPM1),2)
          MAXB = MAX(MAXB,MAXB1)
        END IF
        IF(NBEL.GE.2) THEN
          MAXB1 = IMNMX(int_mb(KNSTSO(IBTPM2)),NSMST*NOCTYP(IBTPM2),2)
          MAXB = MAX(MAXB,MAXB1)
        END IF
        MXSTBL = MAX(MAXA,MAXB)
  