anchor.diff:       &   '    Input molecular orbitals are in standard super-sym order'
   C                IS_I1_EQ_I2(I1,I2,NDIM)
            IDENT = IS_I1_EQ_I2(WORK(KISUPSYM_FOR_BAS),
  -     &                       WORK(KMO_SUPSYM),NTOOB)
  +     &                       int_mb(KMO_SUPSYM),NTOOB)
            IF(IDENT.EQ.0) THEN
              WRITE(6,*) ' Error: Input orbitals are not in expected order'
              WRITE(6,*) ' Required standard supersymmetry-order '
  
positive.code:          CALL REFORM_CMO(WORK(KMOAOIN),2,WORK(KMOAOUT),1)
  *. Determine symmetry
           CALL SUPSYM_FROM_CMOAO(WORK(KMOAOUT),WORK(KISUPSYM_FOR_BAS),
       &                         WORK(KMO_SUPSYM))
  *. Compare
           IDENT = IS_I1_EQ_I2(WORK(KISUPSYM_FOR_BAS),
       &                       WORK(KMO_SUPSYM),NTOOB)
           IF(IDENT.EQ.0) THEN
             WRITE(6,*) ' Error: Input orbitals are not in expected order'
             WRITE(6,*) ' Obtained symmetry of reordered orbitals '
             CALL IWRTMA3(WORK(KMO_SUPSYM),1,NTOOB,1,NTOOB)
             WRITE(6,*) ' Required order of basis functions '
             CALL IWRTMA3(WORK(KISUPSYM_FOR_BAS),1,NTOOB,1,NTOOB)
             STOP ' Error: Input orbitals are not in expected order'
           END IF
  *. Restore
           CALL ICOPVE(WORK(KMO_GNSYM),WORK(KMO_SUPSYM),NTOOB)
  *
          ELSE 
  *
  
negative.code: *. Parameters for dimensioning
  c      INCLUDE 'mxpdim.inc'
  *.Memory
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'wrkspc.inc'
        LOGICAL CONV_F
  *.File numbers
  