anchor.diff:  *
   * Jeppe Olsen, May 26
   *
  +#include "errquit.fh"
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'implicit.inc'
         INCLUDE 'mxpdim.inc'
         INCLUDE 'orbinp.inc'
  
positive.code:      & int_mb(KMLVAL_FOR_ORB),int_mb(KPA_FOR_ORB))
  *. Relation between supersymmetry and irreps
        CALL SYM_AND_IRREP_FOR_SUPSYM(
       & WORK(KL_FOR_SUPSYM),WORK(KML_FOR_SUPSYM),
       & WORK(KPA_FOR_SUPSYM),WORK(KIRREP_FOR_SUPSYM),
       & WORK(KNSUPSYM_FOR_IRREP), WORK(KIBSUPSYM_FOR_IRREP),
       & WORK(KISUPSYM_FOR_IRREP) )
  C     SYM_AND_IRREP_FOR_SUPSYM
  C    &           (L_FOR_SUPSYM,ML_FOR_SUPSYM,IPA_FOR_SUPSYM,IRREP_FOR_SUPSYM,
  C    &           NSUPSYM_FOR_IRREP, IBSUPSYM_FOR_IRREP,ISUPSYM_FOR_IRREP)
  *
  *. Info on the supersymmetry of the basis set
  *
        CALL GET_SUPSYM_FOR_BASIS(WORK(KISUPSYM_FOR_BAS),
       &     WORK(KNBAS_FOR_SUP_STA_SYM),WORK(KIBBAS_FOR_SUP_STA_SYM),
       &     WORK(KIBAS_FOR_SUP_STA_SYM),WORK(KISHELL_FOR_BAS), 
       &     WORK(KNBAS_FOR_SHELL),WORK(KIBBAS_FOR_SHELL),
       &     WORK(KIBAS_FOR_SHELL),
       &     WORK(KNSUPSYM_FOR_IRREP),WORK(KIBSUPSYM_FOR_IRREP),
       &     WORK(KISUPSYM_FOR_IRREP))
  *
  * Obtain mappings from standard to super symmetry components
  * simply by reading info in NBAS_FOR_SUP_STA_SYM
        CALL SUP_TO_STASYM(WORK(KNBAS_FOR_SUP_STA_SYM))
  *. Number, offsets and actual numbers of orbitals of 
  *. given symmetry
  *
  
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'  
  