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: *. identify and save thise
  *
        CALL MEMMAN(KLOCCLS_P,NOCCLS_MAX,'ADDL  ',1,'POCCLS')
        CALL OCCLS_IN_CISPACE(NOCCLS_P,WORK(KLOCCLS_P),
       &       NOCCLS_MAX,int_mb(KIOCCLS),NGAS,
       &       LCMBSPC(IPSPC),ICMBSPC(1,IPSPC),IGSOCCX,IPSPC)
        NCOCCLS = NOCCLS_P
  
negative.code:          CALL MEMMAN(KLHMAT,NVAR*NVAR,'ADDL  ',2,'HMAT  ')
           ECOREL = 0.0D0
  C             COMHAM(H,NVAR,NBLOCK,LBLOCK,VEC1,VEC2)
           CALL COMHAM(WORK(KLHMAT),NVAR,NCBLOCK,int_mb(KCLBLK),
       &               WORK(KVEC1P),WORK(KVEC2P),ECOREL)
           STOP ' Enforced stop after COMHAM'
        END IF
  