anchor.diff:           KLNALSTSTL_AB = 1
          END IF
   *. Offsets in STRSTR arrays to combinations with given symmetries
  -       CALL MEMMAN(KLSMSMP,NSMST**2,'ADDL  ',1,'SMSMP ')
  -       CALL MEMMAN(KLSMSML,NSMST**2,'ADDL  ',1,'SMSML ')
  +       CALL MEMMAN(KLSMSMP,NSMST**2,'ADDL  ',1,'SMSMP ')  !done
  +       CALL MEMMAN(KLSMSML,NSMST**2,'ADDL  ',1,'SMSML ')  !done
         END IF
   *. For Occupation and projections of a given determinant
  -      CALL MEMMAN(KLDET_OC,NAEL+NBEL,'ADDL  ',1,'CONF_O')
  -      CALL MEMMAN(KLDET_MS,NAEL+NBEL,'ADDL  ',1,'CONF_M')
  -      CALL MEMMAN(KLDET_MS_AB,NAEL+NBEL,'ADDL  ',1,'CONF_M')
  -      CALL MEMMAN(KLDET_VC,NOCOB,'ADDL  ',1,'CONF_M')
  -      CALL MEMMAN(KLBLTP,NSMST,'ADDL   ',1,'BLTP  ')
  +      CALL MEMMAN(KLDET_OC,NAEL+NBEL,'ADDL  ',1,'CONF_O')  !done
  +      CALL MEMMAN(KLDET_MS,NAEL+NBEL,'ADDL  ',1,'CONF_M')  !done
  +      CALL MEMMAN(KLDET_MS_AB,NAEL+NBEL,'ADDL  ',1,'CONF_M')  !done
  +      CALL MEMMAN(KLDET_VC,NOCOB,'ADDL  ',1,'CONF_M')  !done
  +      CALL MEMMAN(KLBLTP,NSMST,'ADDL   ',1,'BLTP  ')  !done
   *. 
         KSVST = 1
         CALL ZBLTP(ISMOST(1,ISYM),NSMST,IDC,int_mb(KLBLTP),int_mb(KSVST))
  
positive.code: *
  *. Jeppe Olsen, July 2011
  *
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'spinfo.inc'
  
negative.code: *
  * Jeppe Olsen, July 2011
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'spinfo.inc'
  