anchor.diff:  *. Generate occupation of K STRINGS
   
          CALL GETSTR2_TOTSM_SPGP(KGRP,NGAS,KSM,NELK,NSTRK,
  -     &                        WORK(KLLOC),NOCOB,
  +     &                        int_mb(KLLOC),NOCOB,
        &                        0,ISUM,IDUM)
   C     GETSTR2_TOTSM_SPGP(IGRP,NIGRP,ISPGRPSM,NEL,NSTR,ISTR,
   C    &                              NORBT,IDOREO,IZ,IREO)
  
positive.code:       CALL QENTER('HCONF')
  *. Fetch K matrix
  C     CALL GTJK(XDUM1       ,H,NTOOB,XDUM3       ,IREOTS)
        CALL GTJK(WORK(KLZSCR),H,NTOOB,WORK(KLZSCR),IREOTS)
  *
        CALL HCONFDIA_BBS(NAEL,NBEL,IJAGRP,IJBGRP,
       &           IASM,IATP,IAOC,NIA,IBSM,IBTP,IBOC,NIB,
       &           JASM,JATP,JAOC,NJA,JBSM,JBTP,JBOC,NJB,
       &           NTOOB,H,IOBPTS,NOBPT,IREOTS,WORK(KLZ(1)),
       &           WORK(KLZ(2)),WORK(KLZSCR),ISMFTO,NGAS,
       &           WORK(KLOCSTR(1)),WORK(KLOCSTR(2)),
       &           WORK(KLREO(1)),WORK(KLREO(2)),CB,SB) 
        CALL QEXIT('HCONF')
  *
        RETURN
  
negative.code:        IF(NTEST.GE.1000) THEN
           WRITE(6,*) ' K strings generated '
           WRITE(6,*) ' Reorder array after generation of K strings'
           CALL IWRTMA(int_mb(KLLREO),1,NSTRI,1,NSTRI)
         END IF
        END IF
  *
  