anchor.diff:  *. Outer part
   *. Jeppe Olsen, March 5, 2013
   *
  +#include "errquit.fh"
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'implicit.inc'
         INCLUDE 'mxpdim.inc'
         INCLUDE 'orbinp.inc'
  
positive.code: * Obtain the reordering for this set of orbitals
  *
        CALL ORDER_SUPSYM_ORBITALS(NGAS+2,NGAS_SUPSYM,
       &     WORK(KMO_SUPSYM),WORK(KMO_STA_TO_ACT_REO),
       &     WORK(KISUPSYM_FOR_BAS)                )
  *
        IF(NTEST.GE.10) THEN
          WRITE(6,*) ' Super-symmetry reordering of orbitals, GAS '
          CALL IWRTMA3(WORK(KMO_STA_TO_ACT_REO),1,NTOOB,1,NTOOB)
        END IF
  *
        RETURN
  
negative.code: *
  *. Jeppe Olsen, March 5, 2013
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'wrkspc-static.inc'
  