anchor.diff:          SHIFT = ECORE
           IUSE_EXP = 1
           CALL GASDIAT(WORK(KVEC2),LUDIA,SHIFT,ICISTR,I12,
  -     &               WORK(KCBLTP),NCBLOCK,WORK(KCIBT),IUSE_EXP)
  +     &               int_mb(KCBLTP),NCBLOCK,WORK(KCIBT),IUSE_EXP)
           CALL FILEMAN_MINI(LUSC,'ASSIGN')
           CALL CSDIAG(WORK(KVEC1P),WORK(KVEC1P),
        &       NCONF_PER_OPEN(1,IREFSM),MAXOP,IREFSM,
  
positive.code:         KINT2_A(IE2ARR_F) = KINT2_INI
        END IF
        CALL FA_FROM_INIINT
       &(WORK(KFA),WORK(KMOMO),WORK(KMOMO),WORK(KRHO1),1)
        IF(IPRNT.GE.100) WRITE(6,*) ' FA constructed '
        KINT2 = KINT_2EMO
        IF(ITRA_ROUTE.EQ.2) KINT2_A(IE2ARR_F) = KINT2_FSAVE
  
negative.code:       WRITE(6,*) ' Max excitation level beween P and Q set to',
       &            MAX_EXCIT
        CALL EXCIT_OCCLS_TO_OCCLS(NOCCLS_P,WORK(KLOCCLS_P),
       &    NOCCLS_Q,WORK(KLOCCLS_Q),int_mb(KIOCCLS),NGAS,MAX_EXCIT,
       &    NRCONNECT,WORK(KLRCONNECT))
        IF(NRCONNECT.LT.NOCCLS_Q) THEN
          WRITE(6,*) ' Q-space reduced to interacting occlasses'
  