anchor.diff:  *. Jeppe Olsen, Aarhus, July 2013
   *. Last revision; Aug. 2013; Jeppe Olsen; H0_CSF = 1 included
   *
  +#include "errquit.fh"
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'implicit.inc'
         INCLUDE 'mxpdim.inc'
         INCLUDE 'wrkspc-static.inc'
  
positive.code:       CALL ICOPVE(WORK(KLOCCLS_P),WORK(KCIOCCLS_ACT),NGAS*NOCCLS_P)
        CALL Z_BLKFO_FOR_CISPACE(ICSPC,ICSM,LBLOCK,ICOMP,
       &     IPRNT,NCBLOCK,NCBATCH,
       &     WORK(KCIOIO),WORK(KCBLTP),NCOCCLS_ACT,WORK(KCIOCCLS_ACT),
       &     WORK(KCLBT),WORK(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
       &     WORK(KCIBT),
       &     WORK(KCNOCCLS_BAT),WORK(KCIBOCCLS_BAT),ILTEST)
  
negative.code:         KINT2_FSAVE = KINT2_A(IE2ARR_F)
          KINT2_A(IE2ARR_F) = KINT2_INI
          CALL FA_FROM_INIINT
       &       (WORK(KFA),WORK(KMOMO),WORK(KMOMO),dbl_mb(KRHO1),1)
  *. Clean up
          KINT2 = KINT_2EMO
          KINT2_A(IE2ARR_F) = KINT2_FSAVE
  