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:       ICSPC = IPSPC
        ISSPC = IQSPC
        CALL RASSG3(CB,HCB,NCBATCH,int_mb(KCLBT),int_mb(KCLEBT),
       &     WORK(KCI1BT),int_mb(KCIBT),LU_CDET,LU_SDET,XDUM,XDUM,ECORE,
       &     ITASK)
  *
  * and next the Q-contributions
  
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
  