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)),
  -     &              1)
  +     &               int_mb(KZ_PTDT(NOPEN+1)),
  +     &               int_mb(KREO_PTDT(NOPEN+1)),1)
                ISIGNP = 1
                IF(IPTDT.EQ.0) THEN
   C?            IF(IRESTR2 .EQ. 1) THEN
  
positive.code: *. labels starting with 1, whereas strings are stored
  *. with orbitals starting with NINOB+1. Provide offset  
        IB_ORB = NINOB+1
        CALL REO_GASDET_S(IREO,WORK(KNSTSO(IATP)),WORK(KNSTSO(IBTP)),
       &            NOCTPA,NOCTPB,MXPNGAS,IOCTPA,IOCTPB,
       &            NBLOCK,IBLOCK,
       &            NAEL,NBEL,WORK(KLASTR),WORK(KLBSTR),IBLTP,NSMST,
       &            NELFSPGP,NMXOCCLS,NGAS,      
       &            WORK(KIOCCLS),NTOOB,NOBPT,
       &            WORK(KZCONF),WORK(KDFTP),
       &            WORK(KIB_OCCLS(ISYM)),IB_CN_OPEN, 
       &            WORK(KICONF_REO(1)),IB_CM_OPEN,
       &            WORK(KLZSCR),WORK(KLZ),WORK(KLOCMIN),WORK(KLOCMAX),
       &            WORK(KLDET_OC),WORK(KLDET_MS),WORK(KLDET_VC),WORK,
       &            KZ_PTDT,KREO_PTDT,MINOP,IBCONF_ALL_SYM_FOR_OCCLS,
       &            IB_ORB,NACOB,NOCOB,PSSIGN,NPCMCNF)
  C IB_CN_OPEN
  
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
  