anchor.diff:              KEBLTP = KCBLTP
               NEBLK = NSBLOCK_BAT
   C                ICOPVE2(IIN,IOFF,NDIM,IOUT)
  -            CALL ICOPVE2(WORK(KSIBT),(IBSBLOCK_BAT-1)*8+1,
  -     &           8*NSBLOCK_BAT,WORK(KEIBT))
  -            CALL ICOPVE2(WORK(KSLBT),IQBAT,1,WORK(KELBT))
  +            CALL ICOPVE2(int_mb(KSIBT),(IBSBLOCK_BAT-1)*8+1,
  +     &           8*NSBLOCK_BAT,int_mb(KEIBT))
  +            CALL ICOPVE2(int_mb(KSLBT),IQBAT,1,WORK(KELBT))
               CALL ICOPVE2(dbl_mb(KSIOCCLS_ACT),IQBAT,1,
        &                   int_mb(KEIOCCLS_ACT))
               ICISTR_SAVE = ICISTR
               ICNFBAT_SAVE = ICNFBAT
               ICISTR = 1
               ICNFBAT = 1
  -            CALL CSDIAGM(IREFSM,3,-1,HCB,WORK(KVEC3))
  +            CALL CSDIAGM(IREFSM,3,-1,HCB,dbl_mb(KVEC3))
   C                CSDIAGM(ISM,ICS,LUDIA_A,VECUT,VECSCR)
               ICISTR =ICISTR_SAVE
               ICNFBAT = ICNFBAT_SAVE
  
positive.code:      &       NCONF_PER_OPEN(1,ISM),MAXOP,ISM,
       &       WORK(KSDREO_I(ISM)),NPCMCNF,NPCSCNF,IPRCSF,
       &       ICNFBAT,NXIOCCLS_ACT,dbl_mb(KXIOCCLS_ACT),
       &       WORK(KXLBT),LUSC,LUDIA_A)
          IF(ICISTR.NE.1) CALL FILEMAN_MINI(LUSC,'FREE  ')
        ELSE
  *
  
negative.code:      & NVAR,NBLK,NROOT,MXCIV,MAXIT,LUCIVI,IPRDIA,WORK(KSBEVC),
       & NPRDET,WORK(KH0),WORK(KSBIDT),
       & MXP1,MXP2,MXQ,WORK(KH0SCR),EADD,ICISTR,LBLK,
       & IDIAG,dbl_mb(KVEC3),THRES_E,
       & NBATCH,
       & int_mb(KCLBT),WORK(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
       & int_mb(KCIBT),
       & int_mb(KSLBT),WORK(KSLEBT),WORK(KSLBLK),WORK(KSI1BT),
       & int_mb(KSIBT),
       & INIDEG,E_THRE,C_THRE,
       & E_CONV,C_CONV,ICLSSEL,WORK(KLBLKCLS),NOCCLS,
       & WORK(KLCLSC),WORK(KLCLSE), WORK(KLCLSCT),WORK(KLCLSET),
  