anchor.diff:  *. Spinprojections of open orbitals
                   CALL EXTRT_MS_OPEN_OB(IDET_OC,IDET_MS,IDET_VC,NEL)
                   IPTDT = IZNUM_PTDT(IDET_VC,NOPEN,NOPEN_AL,
  -     &                  WORK(KZ_PTDT(NOPEN+1)),WORK(KREO_PTDT(NOPEN+1)),
  -     &               1)
  +     &                  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
  
positive.code: *. Address of this spinprojection pattern   
  C  IZNUM_PTDT(IAB,NOPEN,NALPHA,Z,NEWORD,IREORD)
               IPTDT = IZNUM_PTDT(IDET_VC,NOPEN,NOPEN_AL,
       &                WORK(KZ_PTDT(NOPEN+1)),WORK(KREO_PTDT(NOPEN+1)),
       &              1)
               ISIGNP = 1
               IF(IPTDT.EQ.0) THEN
  C?            IF(IRESTR2 .EQ. 1) THEN
  
negative.code: *. open orbitals
        INTEGER KZ_PTDT(*), KREO_PTDT(*)
  *. The work array containing used for WORK(KZ_PTDET()),WORK(KREO_PTDT())
  c     DIMENSION WORK(*)
  *. Specific input
        DIMENSION IBLOCK(8,NBLOCK)
  *. Scratch space 
  