anchor.diff:  *
   *. Number of CSFs, CMs, SDs per occupation class
   *
  -      CALL GEN_NCSF_ETC_FOR_ALL_OCCLS(WORK(KNCN_PER_OP_SM),
  +      CALL GEN_NCSF_ETC_FOR_ALL_OCCLS(int_mb(KNCN_PER_OP_SM),
        &     MAXOP,NIRREP,NOCCLS_MAX,NPCSCNF,NPCMCNF,NPDTCNF,
  -     &     WORK(KNCS_FOR_OCCLS),
  +     &     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                     )
  
positive.code: C    &           NCM_FOR_OCCLS,NSD_FOR_OCCLS,NCN_ALLSYM_FOR_OCCLS,
  C    &           IOCCLS_ACT)
        CALL OCCLS_TO_SPACE_DIM(WORK(KNCN_FOR_OCCLS),
       &     WORK(KNCS_FOR_OCCLS),WORK(KNCM_FOR_OCCLS),
       &     WORK(KNSD_FOR_OCCLS),
       &     WORK(KNCN_ALLSYM_FOR_OCCLS),WORK(KSIOCCLS_ACT))
  *
        WRITE(6,*) ' First 4 elements of WORK(KNCMAB_FOR_OCCLS) '
        CALL IWRTMA(WORK(KNCMAB_FOR_OCCLS),1,3,1,3)
  
negative.code: *
        CALL GEN_INFO_FOR_ALL_OCCLS_S(int_mb(KIOCCLS),NOCCLS_MAX,
       &     MINOP,MAXOP,NIRREP,NINOB,NGAS,NOBPT,
       &     int_mb(KNCN_PER_OP_SM),WORK(KNCN_ALLSYM_FOR_OCCLS),
       &     WORK(KNCN_FOR_OCCLS),
       &     NCN_ALLSYM_FOR_OCCLS_MAX, NCN_FOR_OCCLS_MAX,
       &     LEN_OCC_FOR_OCCLS_MAX,I_DO_SBCNF)
  