anchor.diff:        CALL QENTER('HCONF')
   *. Fetch K matrix
   C     CALL GTJK(XDUM1       ,H,NTOOB,XDUM3       ,IREOTS)
  -      CALL GTJK(WORK(KLZSCR),H,NTOOB,WORK(KLZSCR),IREOTS)
  +      CALL GTJK(dbl_mb(KLZSCR),H,NTOOB,dbl_mb(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) 
  +     &           NTOOB,H,IOBPTS,NOBPT,IREOTS,int_mb(KLZ(1)),
  +     &           int_mb(KLZ(2)),dbl_mb(KLZSCR),ISMFTO,NGAS,
  +     &           int_mb(KLOCSTR(1)),int_mb(KLOCSTR(2)),
  +     &           int_mb(KLREO(1)),int_mb(KLREO(2)),CB,SB) 
         CALL QEXIT('HCONF')
   *
         RETURN
  
positive.code: *.. Generate information about I strings
  *. Arc weights for ISPGP
          NTEST2 = NTEST
          CALL WEIGHT_SPGP(WORK(KLLZ),NGAS,
       &                  NELFSPGP(1,ISPGPABS),
       &                  NOBPT,WORK(KLZSCR),NTEST2)
          NELI = NELFTP(ITP)
          NELIS(I12) = NELI
  *. Reorder array for I strings
          CALL GETSTR_TOTSM_SPGP(ITP,ISPGP,ISM,NELI,NSTRI,
       &                         WORK(KLLOC),NOCOB,
       &                         1,WORK(KLLZ),WORK(KLLREO))
          IF(NTEST.GE.1000) THEN
           write(6,*) ' Info on I strings generated '
           write(6,*) ' NSTRI = ', NSTRI
           WRITE(6,*) ' REORDER array '
           CALL IWRTMA(WORK(KLLREO),1,NSTRI,1,NSTRI)
         END IF
         NSTRIA(I12) = NSTRI
  *
        END IF
        IF(NTEST.GE.1000) THEN
         WRITE(6,*) ' REORDER array for I STRINGS'
         CALL IWRTMA(WORK(KLLREO),1,NSTRI,1,NSTRI)
        END IF
  *
        IF(ITRIVIAL.EQ.1) GOTO 9999
  
negative.code: *. Generate occupation of K STRINGS
  
         CALL GETSTR2_TOTSM_SPGP(KGRP,NGAS,KSM,NELK,NSTRK,
       &                        int_mb(KLLOC),NOCOB,
       &                        0,ISUM,IDUM)
  C     GETSTR2_TOTSM_SPGP(IGRP,NIGRP,ISPGRPSM,NEL,NSTR,ISTR,
  C    &                              NORBT,IDOREO,IZ,IREO)
  