anchor.diff:  * IWAY = 2: Shell-order to super-symmetry order
   *
         CALL REFORM_CMO_SUP_SHL_IN(CMO_SUP,CMO_SHL,IWAY,
  -     &     WORK(KNSUPSYM_FOR_IRREP),WORK(KIBSUPSYM_FOR_IRREP),
  -     &     WORK(KISUPSYM_FOR_IRREP))
  +     &     int_mb(KNSUPSYM_FOR_IRREP),int_mb(KIBSUPSYM_FOR_IRREP),
  +     &     int_mb(KISUPSYM_FOR_IRREP))
   *
         RETURN
         END
  
positive.code:         IF(IFORM.EQ.4) THEN
  *. Shell in CMO => supersymmetry form in KLMO1
  C              REFORM_CMO_SUP_SHL(CMO_SUP,CMO_SHL,IWAY)
            CALL REFORM_CMO_SUP_SHL(WORK(KLMO1),CMO,2)
          END IF
  *
          IF (IFORM.GE.3) THEN
            IF(IFORM.EQ.3) CALL COPVEC(CMO,WORK(KLMO1),LCMO)
  *. Supersymmetry in KLMO1 => standard in CMOST
  C                REFORM_CMO_STA_GEN(CMO_STA,CMO_GEN,IDO_REORDER,IREO,IWAY)
             CALL  REFORM_CMO_STA_GEN(CMOST,WORK(KLMO1),0,0,2)
          ELSE IF (IFORM.EQ.2) THEN
  *. Actual => standard
  C               REO_CMOAO(CIN,COUT,IREO,ICOPY,IWAY)
             CALL REO_CMOAO(CMO,CMOST,
       &          WORK(KMO_STA_TO_ACT_REO),0,2)
          ELSE IF(IFORM.EQ.1) THEN
  *. Easy living, just copy
            CALL COPVEC(CMO,CMOST,LCMO)
  
negative.code: *
  *. Jeppe Olsen, March 8, 2013
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'wrkspc-static.inc'
  