anchor.diff:          IF(IFRST.NE.0) THEN
   *. 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)
   *. 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))
  +     &                          int_mb(KLLOC),NOCOB,
  +     &                          1,int_mb(KLLZ),int_mb(KLLREO))
   C?       CALL QEXIT('GENSTR')
          END IF
          NELK = NELIS(I12) - 1
  
positive.code: C?     CALL IWRTMA(ISMOST(1,ISM),1,NSMST,1,NSMST)
  
          CALL EXPCIVS(LLUIN,dbl_mb(KLBLI),NCOMBI,
       &       WORK(KCIOIO),NOCTPA,NOCTPB,WORK(KCBLTP),
       &       LUUT,dbl_mb(KLBLU),NCOMBU,
       &       WORK(KSIOIO),
       &       WORK(KSBLTP),
       &       ICISTR,IDC,NSMST,
       &       LBLK,IAMPACK,ISMOST(1,ISM),
  
negative.code: *. a+i !kstr> = +/- !istr>
        NSTRK = NSTRKS(K12)
        CALL ADS1_GAS(NK,I1,XI1S,LI1,IORB,NORB,
       &          int_mb(KLLOC),NELK,NSTRK,int_mb(KLLREO),int_mb(KLLZ),
       &          NOCOB,KMAX,KMIN,IEND,KACT,SCLFAC)
  *
  C     SAVE NELK , NSTRK
  