anchor.diff:  *             Dec. 2011, cleaned and shaved
   *
   *
  +#include "errquit.fh"
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'wrkspc.inc'
         INCLUDE 'spinfo.inc'
         INCLUDE 'glbbas.inc'
  
positive.code: *
  *. Jeppe Olsen, Febr. 2012
  *
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'glbbas.inc'
  
negative.code: C               GETDET_FOR_CONF(IOCC,NOCOB,NOPEN,NELEC,JPDET,IPDET,IDET,
  C               IDOREO,IREO)
             CALL GETDET_FOR_CONF(ICONF_OCC(IB_OCC),NOCOBL,
       &          IOPEN,NEL_CONF,JPDT,IDFTP(IB_PDT),int_mb(KLDET1),1,
       &          IREO_SPCP_OB_ON)
  *. Divide string into alpha- and beta-parts
  C              DETSTR(IDET,IASTR,IBSTR,NAEL,NBEL,ISIGN,IWORK)
             CALL DETSTR(int_mb(KLDET1),int_mb(KLAL),int_mb(KLBE),
       &                NAEL_CONF,NBEL_CONF,ISIGN,int_mb(KLSCR)
       &                NTEST)
  *. Symmetry of strings in configuration
  *. Modify orbital indeces so they correspond to absolute orbital numbers
             IADD = IORB_IB - 1
  C               ADD_C_TO_INTVEC(INTVEC,IC,NDIM)
             CALL ADD_C_TO_INTVEC(int_mb(KLAL),IADD,NAEL_CONF)
             CALL ADD_C_TO_INTVEC(int_mb(KLBE),IADD,NBEL_CONF)
             IAL_SYM_CONF = ISYMST(int_mb(KLAL),NAEL_CONF)
             IBE_SYM_CONF = ISYMST(int_mb(KLBE),NBEL_CONF)
  *. Number of alpha-strings with this symmetry in group
             NAL_STR_CONF = NSTFSMGP(IAL_SYM_CONF,IGRP_AL)
  *. Address of alpha- and beta- configuration strings
  C                  ISTRNM2(IOCC,NORB,NEL,Z,NEWORD,IOFFSETS,IREORD,IRELNUM)
             IALNM = ISTRNM2(int_mb(KLAL),NOCOB,NAEL_CONF,
       &             WORK(KZ(IGRP_AL)),WORK(KSTREO(IGRP_AL)),
       &             ISTFSMGP(1,IGRP_AL),1,1)
             IBENM = ISTRNM2(int_mb(KLBE),NOCOB,NBEL_CONF,
       &             WORK(KZ(IGRP_BE)),WORK(KSTREO(IGRP_BE)),
       &             ISTFSMGP(1,IGRP_BE),1,1)
  *. Symmetry of complete strings including core
  