anchor.diff:  *
   c      IMPLICIT REAL*8(A-H,O-Z)
   c      INCLUDE 'mxpdim.inc'
  +#include "errquit.fh"
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'wrkspc.inc'
         LOGICAL CONV_F
         EXTERNAL MV7
  
positive.code:       IF(NOCSF.EQ.0) THEN
         IF(ICNFBAT.EQ.1) THEN
  *. For CSF's: Two vectors over CM's of Strings, all symmetries for generality
           CALL MEMMAN(KCOMVEC1_SD,NDET_MAX,'ADDL  ',2,'CMVC1D')
           CALL MEMMAN(KCOMVEC2_SD,NDET_MAX,'ADDL  ',2,'CMVC2D')
         ELSE
  *. Memory for two blocks of combinations
           CALL MEMMAN(
       &   KCOMVEC1_SD,N_CMAB_PER_OCCLS_MAX,'ADDL  ',2,'CMVC1D')
           CALL MEMMAN(
  
negative.code: C?       WRITE(6,*) ' Ecore before GET_CSF.... ', ECORE
  C?       WRITE(6,*) ' KPDIA_SD = ', KPDIA_SD
           CALL GET_CSF_H_PRECOND(NCONF_PER_OPEN(1,ISM),
       &        int_mb(KICONF_OCC(ISM)),WORK(KPDIA_SD),ECORE,
       &        LUDIA,NCOCCLS_ACT,dbl_mb(KCIOCCLS_ACT),ISM)
  C        GET_CSF_H_PRECOND(NCONF_FOR_OPEN,ICONF_OCC,H0,ECORE,
  C    &   LUDIA,NOCCLS_ACT,IOCCLS_ACT),ISYM)
         END IF
  