anchor.diff:  * ECORE added, June 2010
   *
   *
  +#include "errquit.fh"
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'wrkspc.inc'
         CHARACTER*6 ITASK
   *
  
positive.code: *. reform 
          CALL RFTTS(HCB,CB,IBLOCK(1,IBOFF),NBLOCK,
       &             1,NSMST,NOCTPA,NOCTPB,
       &             WORK(KNSTSO(IATP)), WORK(KNSTSO(IBTP)),
       &             IDC,PSSIGN,1,NTEST)
  *. scale
          CALL SCDTTS(HCB,IBLOCK(1,IBOFF),NBLOCK,NSMST,NOCTPA,NOCTPB,
       &              WORK(KNSTSO(IATP)), WORK(KNSTSO(IBTP)),
       &              IDC,1,NTEST)
        END IF
  *
  
negative.code:          KSCIOIO = KCIOIO
        END IF
        IPRCIXL = 0
        CALL MXRESCPH(int_mb(KSCIOIO),IOCTPA,IOCTPB,NOCTPA,NOCTPB,
       &            NSMST,NSTFSMSPGP,MXPNSMST,
       &            NSMOB,MXPNGAS,NGAS,NOBPTS,IPRCIXL,MAXK,
       &            NELFSPGP,
  