anchor.diff:  *
   *. Reform to shell format 
   *
  -      CALL REFORM_CMO(CMO,IFORM,WORK(KLMO1),4)
  +      CALL REFORM_CMO(CMO,IFORM,dbl_mb(KLMO1),4)
   *
   *. And analyze /align
   *
  -      CALL ANA_SUBSHELLS_CMO_IN(WORK(KLMO1),
  -     &     WORK(KNSUPSYM_FOR_IRREP),WORK(KIBSUPSYM_FOR_IRREP),
  +      CALL ANA_SUBSHELLS_CMO_IN(dbl_mb(KLMO1),
  +     &     int_mb(KNSUPSYM_FOR_IRREP),int_mb(KIBSUPSYM_FOR_IRREP),
        &     XMAX,MAXIRR,MAXSHL,IALIGN)
   *
         IF(IALIGN.EQ.1) THEN
   *. Pump aligned MOs back in CMO
  -        CALL REFORM_CMO(WORK(KLMO1),4,CMO,IFORM)
  +        CALL REFORM_CMO(dbl_mb(KLMO1),4,CMO,IFORM)
         END IF
   
         CALL MEMMAN(IDUM,IDUM,'FLUSM ',IDUM,'AN_SHL')
  
positive.code:       CALL N_SUPSYM_IRREP_TO_SUPSYM_S(
       &     N_PER_IRREP,N_PER_SUPSYM,
       &     N_SUPSYM_IRREP, N_SUPSYM,
       &     WORK(KNSUPSYM_FOR_IRREP),
       &     WORK(KIBSUPSYM_FOR_IRREP),
       &     WORK(KISUPSYM_FOR_IRREP)  )
  *
        IF(NTEST.GE.100) THEN
          WRITE(6,*) ' Number of shells per supsym irrep '
  
negative.code: *
  *. Jeppe Olsen, March 9, 2013
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'orbinp.inc'  
  