anchor.diff:        IF(NTEST.GE.1000) THEN
             WRITE(6,*) ' Final list of configurations: '
             CALL WRT_CONF_LIST2(
  -     &    WORK(KICONF_OCC(ISYM)),IB_CNOCC_OPEN,
  +     &    int_mb(KICONF_OCC(ISYM)),IB_CNOCC_OPEN,
        &    NCONF_PER_OPEN(1,ISYM),MAXOP,NCONF_CISPC,NELEC)
   C         WRT_CONF_LIST2
   C    &    (ICONF,IB_CONF_OCC,NCONF_FOR_OPEN,MAXOP,NCONF,NELEC)
             WRITE(6,*) ' Final reordering of confs, Lex=>Act:'
  -          CALL IWRTMA(WORK(KICONF_REO(1)),
  +          CALL IWRTMA(int_mb(KICONF_REO(1)),
        &         1,NCONF_ALL_SYM,1,NCONF_ALL_SYM)
         END IF
   
  
positive.code:       IOCCLS_ADD = (IOCCLS_NUM-1)*NIRREP*(MAXOP+1)
       &            +(ISYM-1)*(MAXOP+1) + 1
  C?    WRITE(6,*) ' IOCCLS_ADD = ', IOCCLS_ADD
        CALL ICOPVE2(WORK(KNCN_PER_OP_SM),IOCCLS_ADD,MAXOP+1,
       &             NCN_FOR_OC_OP_ACT)
        IF(NTEST.GE.10) THEN
          WRITE(6,*) ' NCN_FOR_OC_OP_ACT '
  
negative.code: *.Input
  * =====
  *
  #include "mafdecls.fh"
        INCLUDE 'wrkspc.inc'
        INCLUDE 'orbinp.inc'
        INCLUDE 'strbas.inc'
  