anchor.diff:        CALL DIM_CISPACE_FROM_SBCNF_IN(int_mb(KLOCCLS_ACT),
        &     NOCCLS_MAX,
        &     int_mb(KIOCCLS),NCNFOPSM, int_mb(KLNCNFOPSM2),NGAS,
  -     &     WORK(KNSBCNF),
  +     &     dbl_mb(KNSBCNF),
        &     MINOP,NOPEN_MAX,MXPOPORB,NSMOB)
   *
         IF(NTEST.GE.100) THEN
  
positive.code: * The minimum number of open electrons for each occupation 
  * sub classes
  *
        CALL MINOP_FOR_OCSBCLS(WORK(KMNOPOCSBCL),NGAS,NOCCLS_MAX,
       &     NOCSBCLST,WORK(KMINOPGAS_FOR_OCCLS),
       &     WORK(KOCSBCLS_OF_OCCLS)) 
  C     MINOP_FOR_OCSBCLS(MNOPOCSBCLS,NGAS,NOCCLS,
  C    &           NOCSBCLST,MINOPGAS_FOR_OCCLS,IOCSBCLS_OF_OCCLS)
  *
  
negative.code: C                N_SDAB_PER_OCCLS_MAX,N_CMAB_PER_OCCLS_MAX)
        CALL GEN_NSDAB_FOR_ALL_OCCLS(
       &     dbl_mb(KNABSPGP_FOR_OCCLS),dbl_mb(KIABSPGP_FOR_OCCLS),
       &     int_mb(KNSDAB_FOR_OCCLS),int_mb(KNCMAB_FOR_OCCLS),
       &     N_SDAB_PER_OCCLS_MAX, N_CMAB_PER_OCCLS_MAX) 
  *
  *. Number of CSF's, CM's, SD's and Confs' per CISPACE
  