anchor.diff:  *.. Generate information about I strings
   *. Arc weights for ISPGP
           NTEST2 = NTEST
  -        CALL WEIGHT_SPGP(WORK(KLLZ),NGAS,
  +        CALL WEIGHT_SPGP(int_mb(KLLZ),NGAS,
        &                  NELFSPGP(1,ISPGPABS),
  -     &                  NOBPT,WORK(KLZSCR),NTEST2)
  +     &                  NOBPT,dbl_mb(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))
  +     &                         int_mb(KLLOC),NOCOB,
  +     &                         1,int_mb(KLLZ),int_mb(KLLREO))
         END IF
         NELK = NELIS(I12) - 2
         IF(KFRST.NE.0) THEN
   *. Generate occupation of K STRINGS
          CALL GETSTR_TOTSM_SPGP(1,KSPGPABS,KSM,NELK,NSTRK,
  -     &                        WORK(KLLOC),NOCOB,
  +     &                        int_mb(KLLOC),NOCOB,
        &                        0,IDUM,IDUM)
          NSTRKS(K12) = NSTRK
         END IF
  
positive.code:         IF(IFRST.NE.0) THEN
  *. Arc weights for ISPGP
            NTEST2 = NTEST
            CALL WEIGHT_SPGP(WORK(KLLZ),NGAS,
       &                     NELFSPGP(1,ISPGPABS),
       &                     NOBPT,WORK(KLZSCR),NTEST2)
  *. Reorder array for I strings
           NELI = NELFTP(ITP)
           NELIS(I12) = NELI
  C?       CALL QENTER('GENSTR')
           CALL GETSTR_TOTSM_SPGP(ITP,ISPGP,ISM,NELI,NSTRI,
       &                          WORK(KLLOC),NOCOB,
       &                          1,WORK(KLLZ),WORK(KLLREO))
  C?       CALL QEXIT('GENSTR')
         END IF
         NELK = NELIS(I12) - 1
  
negative.code: *. Allowed combinations of strings types for input and output
  *. spaces
  *
        CALL IAIBCM(ISPCIN,int_mb(KCIOIO))
        CALL IAIBCM(ISPCUT,int_mb(KSIOIO))
  *
  * type of each symmetry block ( full, lower diagonal, absent )
  *
  