anchor.diff:           KSCIOIO = KCIOIO
         END IF
         IPRCIXL = 0
  -      CALL MXRESCPH(WORK(KSCIOIO),IOCTPA,IOCTPB,NOCTPA,NOCTPB,
  +      CALL MXRESCPH(int_mb(KSCIOIO),IOCTPA,IOCTPB,NOCTPA,NOCTPB,
        &            NSMST,NSTFSMSPGP,MXPNSMST,
        &            NSMOB,MXPNGAS,NGAS,NOBPTS,IPRCIXL,MAXK,
        &            NELFSPGP,
  
positive.code:       CALL MEMMAN(KI4  ,LSCR3,'ADDL  ',1,'I4    ')
        CALL MEMMAN(KXI4S,LSCR3,'ADDL  ',2,'XI4S  ')
        KSVST = 1
        CALL ZBLTP(ISMOST(1,ICSM),NSMST,IDC,WORK(KCBLTP),WORK(KSVST))
  *.Some TTS arrays 
        NOOS = NOCTPA*NOCTPB*NSMCI 
        NTTS = MXNTTS
  
negative.code: *. reform 
          CALL RFTTS(HCB,CB,IBLOCK(1,IBOFF),NBLOCK,
       &             1,NSMST,NOCTPA,NOCTPB,
       &             int_mb(KNSTSO(IATP)), int_mb(KNSTSO(IBTP)),
       &             IDC,PSSIGN,1,NTEST)
  *. scale
          CALL SCDTTS(HCB,IBLOCK(1,IBOFF),NBLOCK,NSMST,NOCTPA,NOCTPB,
       &              int_mb(KNSTSO(IATP)), int_mb(KNSTSO(IBTP)),
       &              IDC,1,NTEST)
        END IF
  *
  