anchor.diff:  *. Input
   c      IMPLICIT REAL*8(A-H,O-Z)
   c      INCLUDE 'mxpdim.inc'
  +#include "errquit.fh"
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'wrkspc.inc'
         INCLUDE 'lucinp.inc'
         INCLUDE 'orbinp.inc'
  
positive.code: C IFRMR(WORK,IROFF,IELMNT)
           DO JOCSBCLS = 1, NOCSBCLST
  C?         WRITE(6,*) ' JOCSBCLS = ', JOCSBCLS
             LOCC = IFRMR(dbl_mb(KLSBCNF),1,JOCSBCLS)
  C?         WRITE(6,*) ' LOCC = ', LOCC
             CALL MEMMAN(LPOINT,LOCC,'ADDL  ',1,'OCSBCN')
  C?         WRITE(6,*) ' LPOINT = ', LPOINT
  
negative.code: *. Set up the basespace for the various occupation classes
  C          Z_BASSPC_FOR_ALL_OCCLS(IOCCLS,NOCCLS,IBASSPC)
        CALL Z_BASSPC_FOR_ALL_OCCLS(int_mb(KIOCCLS),NOCCLS_MAX,
       &      int_mb(KBASSPC))
  *. Dimensions for all occupation classes
  
  *
  