anchor.diff:       &     NTEST,NQBLOCK,NQBATCH,
        &     int_mb(KCIOIO),int_mb(KCBLTP),NQOCCLS_ACT,
        &     dbl_mb(KCIOCCLS_ACT),
  -     &     int_mb(KCLBT),int_mb(KCLEBT),WORK(KCLBLK),WORK(KCI1BT),
  +     &     int_mb(KCLBT),int_mb(KCLEBT),int_mb(KCLBLK),int_mb(KCI1BT),
        &     int_mb(KCIBT),
  -     &     WORK(KCNOCCLS_BAT),WORK(KCIBOCCLS_BAT),0,ILTEST)
  +     &     int_mb(KCNOCCLS_BAT),int_mb(KCIBOCCLS_BAT),0,ILTEST)
   
         CALL CSDTVCMN(CB,HCB,dbl_mb(KVEC3),
        &     1,0,ICSM,IQSPC,2,2,LUQ1,LUQ,NQOCCLS_ACT,
  
positive.code:      &     IPRNT,NSBLOCK,NSBATCH,
       &     int_mb(KSIOIO),int_mb(KSBLTP),NSOCCLS_ACT,
       &     dbl_mb(KSIOCCLS_ACT),
       &     int_mb(KSLBT),int_mb(KSLEBT),WORK(KSLBLK),WORK(KSI1BT),
       &     int_mb(KSIBT),
       &     WORK(KSNOCCLS_BAT),WORK(KSIBOCCLS_BAT),ILTEST)
        NBLOCK_Q = NSBLOCK
        NBATCH_Q = NSBATCH
        NSBLK = NSBLOCK
  
negative.code:         CALL IWRTMA(WORK(KLLOCCLS_SM),1,NOCCLS_MAX,1,NOCCLS_MAX)
        END IF
  *
        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,
  