anchor.diff:  *
   c      INCLUDE 'implicit.inc'
   c      INCLUDE 'mxpdim.inc'
  +#include "mafdecls.fh"
         INCLUDE 'wrkspc.inc'
         INCLUDE 'gasstr.inc'
         INCLUDE 'cgas.inc'
  
positive.code: *. open orbitals
        INTEGER KZ_PTDT(*), KREO_PTDT(*)
  *. The work array containing used for WORK(KZ_PTDET()),WORK(KREO_PTDT())
        DIMENSION WORK(*)
  *. Specific input
        DIMENSION IBLOCK(8,NBLOCK)
  *. Scratch space 
  
negative.code: *. Spinprojections of open orbitals
                  CALL EXTRT_MS_OPEN_OB(IDET_OC,IDET_MS,IDET_VC,NEL)
                  IPTDT = IZNUM_PTDT(IDET_VC,NOPEN,NOPEN_AL,
       &                  int_mb(KZ_PTDT(NOPEN+1)),
       &                  int_mb(KREO_PTDT(NOPEN+1)),1)
                  IF(PSSIGN.EQ.-1.0D0) ISIGNP = -1
                ELSE 
  *. Prototype determinant was not found in list
  