anchor.diff:          CALL IWRTMA(WORK(KLLOCCLS_SM),1,NOCCLS_MAX,1,NOCCLS_MAX)
         END IF
   *
  -      CALL EXP_BLKVEC(LU_Q2,NOCCLS_P,WORK(KLOCCLS_P),
  -     &                LU_Q1,NOCCLS_Q,WORK(KLOCCLS_Q),
  +      CALL EXP_BLKVEC(LU_Q2,NOCCLS_P,int_mb(KLOCCLS_P),
  +     &                LU_Q1,NOCCLS_Q,int_mb(KLOCCLS_Q),
        &                WORK(KLLOCCLS_SM),2,CB,XDUM,1,ICISTR,0)
   *
   C     EXP_BLKVEC(LU_IN,NBLK_IN, IBLK_IN,
  
positive.code:      & MXP1,MXP2,MXQ,WORK(KH0SCR),EADD,ICISTR,LBLK,
       & IDIAG,dbl_mb(KVEC3),THRES_E,
       & NBATCH,
       & int_mb(KCLBT),int_mb(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
       & int_mb(KCIBT),
       & int_mb(KSLBT),int_mb(KSLEBT),WORK(KSLBLK),WORK(KSI1BT),
       & int_mb(KSIBT),
       & INIDEG,E_THRE,C_THRE,
       & E_CONV,C_CONV,ICLSSEL,WORK(KLBLKCLS),NOCCLS,
  
negative.code:       ICSPC = IPSPC
        ICSM = IREFSM
        ILTEST = 3006
        CALL ICOPVE(int_mb(KLOCCLS_P),dbl_mb(KCIOCCLS_ACT),NGAS*NOCCLS_P)
        CALL Z_BLKFO_FOR_CISPACE(ICSPC,ICSM,LBLOCK,ICOMP,
       &     IPRNT,NCBLOCK,NCBATCH,
       &     int_mb(KCIOIO),int_mb(KCBLTP),NCOCCLS_ACT,
       &     dbl_mb(KCIOCCLS_ACT),
       &     int_mb(KCLBT),int_mb(KCLEBT),int_mb(KCLBLK),int_mb(KCI1BT),
       &     int_mb(KCIBT),
       &     int_mb(KCNOCCLS_BAT),int_mb(KCIBOCCLS_BAT),ILTEST)
        NBLOCK_P = NCBLOCK
        NBATCH_P = NCBATCH
        NCBLK = NCBLOCK
        NCM_P = IELSUM(int_mb(KCLBLK),NBLOCK_P)
        WRITE(6,*) ' NCM_P = ', NCM_P
  *
        NSOCCLS = NOCCLS_Q
  