anchor.diff:  *. a+i !kstr> = +/- !istr>
         NSTRK = NSTRKS(K12)
         CALL ADS1_GAS(NK,I1,XI1S,LI1,IORB,NORB,
  -     &          WORK(KLLOC),NELK,NSTRK,WORK(KLLREO),WORK(KLLZ),
  +     &          int_mb(KLLOC),NELK,NSTRK,int_mb(KLLREO),int_mb(KLLZ),
        &          NOCOB,KMAX,KMIN,IEND,KACT,SCLFAC)
   *
   C     SAVE NELK , NSTRK
  
positive.code:       IIOB = IOBPTS(IOBTP,IOBSM) + IOB - 1
        JJOB = IOBPTS(JOBTP,JOBSM) + JOB - 1
        CALL ADADS1_GAS(NK,I1,XI1S,LI1,IIOB,NIOB,JJOB,NJOB,
       &          WORK(KLLOC),NELK,NSTRK,WORK(KLLREO),WORK(KLLZ),
       &          NOCOB,KMAX,KMIN,IEND,SCLFAC)
  *
        RETURN
  
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),
  