anchor.diff:  *. Allocate memory for diagonalization
   *
   *. Block for storing complete or partial CI-vector
  -      LBLOCK = MXSOOB
  +      IF(ISIMSYM.EQ.1.OR.ICISTR.EQ.2) THEN
  +        LBLOCK = MXSOOB_AS
  +      ELSE
  +        LBLOCK = MXSOOB
  +      END IF
  +      IF(NOCSF.EQ.0.OR.ICNFBAT.EQ.-2) THEN
  +CERR    LBLOCK  = MAX(NSD_FOR_OCCLS_MAX,LBLOCK)
  +        LBLOCK  = MAX(N_SDAB_PER_OCCLS_MAX,LBLOCK)
  +      END IF
         LBLOCK = MAX(LBLOCK,LCSBLK)
         IF(NTEST.GE.1000) WRITE(6,*) ' TEST: LBLOCK = ', LBLOCK
   * 
  
positive.code:       KVEC1P = KVEC1
        KVEC2P = KVEC2
  * 
  *. Allocate space for two complete vectors of variables
        if ( .not. ga_create( mt_dbl, nvar_max, 1, 'CONVC1',
       $   0,0, KCOMVEC1) ) call errquit(
        if ( .not. ga_create( mt_dbl, nvar_max, 1, 'CONVC2',
       $   0,0, KCOMVEC2) ) call errquit(
       $   'GASCI: ga_create kcomvec2 failed', nvar_max , GA_ERR)
  CNW    CALL MEMMAN(KCOMVEC1,NVAR_MAX,'ADDL  ',2,'COMVC1')
  CNW    CALL MEMMAN(KCOMVEC2,NVAR_MAX,'ADDL  ',2,'COMVC2')
  *. Pointers to vectors holding complete or partial vector over variables
        KPVEC1 = KCOMVEC1
        KPVEC2 = KCOMVEC2
  * 
        LBLK = NVAR
  *
  *. CI diagonal - if required
  * 
        KPDIA_SD = KPVEC1
  *
        I_DO_PRECOND = 1
        IF(IDIAG.EQ.2.AND.IRESTR.EQ.1) I_DO_PRECOND = 0
  
negative.code:       IB_A = IBSPGPFTP(IATP)
        IB_B = IBSPGPFTP(IBTP)
  *
        IF(NOCSF.EQ.1) THEN
          NVAR = NDET
          NVAR_MAX = NDET_MAX
        ELSE
          NCONF = NCONF_PER_SYM_GN(ISM, ISPC)
          NCSF =  NCSF_PER_SYM_GN(ISM, ISPC)
          NCCM_CONF = NCM_PER_SYM_GN(ISM, ISPC)
          NSCM_CONF = NCCM_CONF
          NDET = NSD_PER_SYM_GN(ISM, ISPC)
          NVAR = NCSF
  *. There is pt only the single symmetry for CSFs, so
          NVAR_MAX = NCSF
          WRITE(6,'(A,2(2X,I9))')
       &  ' Number of CONF determinants/combinations in S, C',
       &    NCCM_CONF, NSCM_CONF
  C?      WRITE(6,*) ' NCONF, NCSF, NSD = ', NCONF, NCSF, NSD
        END  IF
  *
        NCVAR = NVAR
        NSVAR = NVAR
  