anchor.diff:  *. Allowed combinations of strings types for input and output
   *. spaces
   *
  -      CALL IAIBCM(ISPCIN,WORK(KCIOIO))
  -      CALL IAIBCM(ISPCUT,WORK(KSIOIO))
  +      CALL IAIBCM(ISPCIN,int_mb(KCIOIO))
  +      CALL IAIBCM(ISPCUT,int_mb(KSIOIO))
   *
   * type of each symmetry block ( full, lower diagonal, absent )
   *
  
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))
        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,
       &                        0,IDUM,IDUM)
         NSTRKS(K12) = NSTRK
        END IF
  
negative.code: C?     CALL IWRTMA(ISMOST(1,ISM),1,NSMST,1,NSMST)
  
          CALL EXPCIVS(LLUIN,dbl_mb(KLBLI),NCOMBI,
       &       int_mb(KCIOIO),NOCTPA,NOCTPB,WORK(KCBLTP),
       &       LUUT,dbl_mb(KLBLU),NCOMBU,
       &       int_mb(KSIOIO),
       &       WORK(KSBLTP),
       &       ICISTR,IDC,NSMST,
       &       LBLK,IAMPACK,ISMOST(1,ISM),
  