anchor.diff:        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),
  +     &     int_mb(KNCM_FOR_OCCLS), int_mb(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,
  
positive.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)
  C          GEN_INFO_FOR_ALL_OCCLS_S(IOCCLS,NOCCLS_MAX,
  
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)
  *
  