anchor.diff:  *. 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)),
  +     &              int_mb(KZ_PTDT(NOPEN+1)),int_mb(KREO_PTDT(NOPEN+1)),
        &              1)
                ISIGNP = 1
                IF(IPTDT.EQ.0) THEN
  
positive.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,
       &                  WORK(KZ_PTDT(NOPEN+1)),WORK(KREO_PTDT(NOPEN+1)),
       &               1)
                  IF(PSSIGN.EQ.-1.0D0) ISIGNP = -1
                ELSE 
  *. Prototype determinant was not found in list
  
negative.code: * for determinants in OCClass IOCCLS
  * Reorder array created is Conf-order => AB-order 
  *
  c     IMPLICIT REAL*8(A-H,O-Z)
        include 'wrkspc.inc'
  #include "mafdecls.fh"
  *. General input
  *.---------------
        DIMENSION NSSOA(NSMST,*), NSSOB(NSMST,*)  
  