anchor.diff:  C          OCCLS_TO_SPACE_DIM(NCN_FOR_OCCLS,NCS_FOR_OCCLS,
   C    &           NCM_FOR_OCCLS,NSD_FOR_OCCLS,NCN_ALLSYM_FOR_OCCLS,
   C    &           IOCCLS_ACT)
  -      CALL OCCLS_TO_SPACE_DIM(WORK(KNCN_FOR_OCCLS),
  -     &     int_mb(KNCS_FOR_OCCLS),WORK(KNCM_FOR_OCCLS),
  -     &     WORK(KNSD_FOR_OCCLS),
  -     &     WORK(KNCN_ALLSYM_FOR_OCCLS),dbl_mb(KSIOCCLS_ACT))
  +      CALL OCCLS_TO_SPACE_DIM(int_mb(KNCN_FOR_OCCLS),
  +     &     int_mb(KNCS_FOR_OCCLS),int_mb(KNCM_FOR_OCCLS),
  +     &     int_mb(KNSD_FOR_OCCLS),
  +     &     int_mb(KNCN_ALLSYM_FOR_OCCLS),dbl_mb(KSIOCCLS_ACT))
   *
         WRITE(6,*) ' First 4 elements of WORK(KNCMAB_FOR_OCCLS) '
  -      CALL IWRTMA(WORK(KNCMAB_FOR_OCCLS),1,3,1,3)
  +      CALL IWRTMA(int_mb(KNCMAB_FOR_OCCLS),1,3,1,3)
   *
   *. Length of configuration expansions
   *
  
positive.code:       CALL GEN_NCSF_ETC_FOR_ALL_OCCLS(int_mb(KNCN_PER_OP_SM),
       &     MAXOP,NIRREP,NOCCLS_MAX,NPCSCNF,NPCMCNF,NPDTCNF,
       &     int_mb(KNCS_FOR_OCCLS),
       &     WORK(KNCM_FOR_OCCLS), WORK(KNSD_FOR_OCCLS),
       &     NCS_FOR_OCCLS_MAX,NCM_FOR_OCCLS_MAX,
       &     NSD_FOR_OCCLS_MAX                     )
  C          GEN_NCSF_ETC_FOR_ALL_OCCLS(NCNF_PER_OP_SM,
  
negative.code: * The minimum number of open electrons for each occupation 
  * sub classes
  *
        CALL MINOP_FOR_OCSBCLS(dbl_mb(KMNOPOCSBCL),NGAS,NOCCLS_MAX,
       &     NOCSBCLST,dbl_mb(KMINOPGAS_FOR_OCCLS),
       &     dbl_mb(KOCSBCLS_OF_OCCLS)) 
  C     MINOP_FOR_OCSBCLS(MNOPOCSBCLS,NGAS,NOCCLS,
  C    &           NOCSBCLST,MINOPGAS_FOR_OCCLS,IOCSBCLS_OF_OCCLS)
  *
  