anchor.diff:       & int_mb(KSLBT),int_mb(KSLEBT),int_mb(KSLBLK),int_mb(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),
  -     & WORK(KLCLSA),WORK(KLCLSL),WORK(KLCLSLR),WORK(KLBLKA),
  -     & WORK(KLCLSD),WORK(KLCLSDT),WORK(KLCLSG),WORK(KLCLSGT),
  -     & ISKIPEI,WORK(KC2B),WORK(KLCLSA2),
  -     & LBLOCK,IROOT_SEL,WORK(KBASSPC),WORK(KLEBASC),
  -     & WORK(KLCBASC),NCMBSPC,MULSPCA,IPAT,LPAT,ISPC,NCNV_RT,
  +     & E_CONV,C_CONV,ICLSSEL,int_mb(KLBLKCLS),NOCCLS,
  +     & dbl_mb(KLCLSC),dbl_mb(KLCLSE), dbl_mb(KLCLSCT),dbl_mb(KLCLSET),
  +     & int_mb(KLCLSA),int_mb(KLCLSL),dbl_mb(KLCLSLR),int_mb(KLBLKA),
  +     & dbl_mb(KLCLSD),dbl_mb(KLCLSDT),dbl_mb(KLCLSG),dbl_mb(KLCLSGT),
  +     & ISKIPEI,int_mb(KC2B),int_mb(KLCLSA2),
  +     & LBLOCK,IROOT_SEL,int_mb(KBASSPC),dbl_mb(KLEBASC),
  +     & dbl_mb(KLCBASC),NCMBSPC,MULSPCA,IPAT,LPAT,ISPC,NCNV_RT,
        & IPRECOND,IIUSEH0P,MPORENP_E,RNRM,CONV_LOCAL,ISBSPPR_ACT,
        & ILAST)
         ELSE
  
positive.code:       IF(NTEST.GE.1000) WRITE(6,*) ' ISSM, NIRREP = ', ISSM, NIRREP
  C          EXTRROW(WORK(KLCIBT),8,8,NBLOCK,LBLOCK)
        CALL EXTRROW(int_mb(KNCS_FOR_OCCLS),ISSM,NIRREP,NOCCLS_MAX,
       &             WORK(KLLOCCLS_SM))
        IF(NTEST.GE.1000) THEN
          WRITE(6,*) ' Number of CSF of right sym per occls'
          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,
  C    &                      LU_OUT,NBLK_OUT,IBLK_OUT,
  
negative.code:       IF(NTEST.GE.1000) WRITE(6,*) ' ISSM, NIRREP = ', ISSM, NIRREP
  C          EXTRROW(WORK(KLCIBT),8,8,NBLOCK,LBLOCK)
        CALL EXTRROW(int_mb(KNCS_FOR_OCCLS),ISSM,NIRREP,NOCCLS_MAX,
       &             int_mb(KLLOCCLS_SM))
        IF(NTEST.GE.1000) THEN
          WRITE(6,*) ' Number of CSF of right sym per occls'
          CALL IWRTMA(int_mb(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),
       &                int_mb(KLLOCCLS_SM),2,CB,XDUM,1,ICISTR,0)
  *
  C     EXP_BLKVEC(LU_IN,NBLK_IN, IBLK_IN,
  C    &                      LU_OUT,NBLK_OUT,IBLK_OUT,
  