anchor.diff:  C     GEN_OCSBCLS(MNGSOC, MXGSOC, NGAS, IOGSBCLS)
   *
   *. The occupation sub classes of each occupation class
  -      CALL OCSBCLS_OF_OCCLS(WORK(KIOCCLS),NOCCLS_MAX, NGAS,
  +      CALL OCSBCLS_OF_OCCLS(int_mb(KIOCCLS),NOCCLS_MAX, NGAS,
        &     IBOCSBCLS,MNGSOC,WORK(KOCSBCLS_OF_OCCLS),
        &     WORK(KMINOPGAS_FOR_OCCLS),MINOP,NOBPT)
   C          OCSBCLS_OF_OCCLS(IOCCLS,NOCCLS,NGAS,
  
positive.code: *
  *. Jeppe Olsen, May 7, 2013
  *
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'strbas.inc'
  
negative.code: *.
  *. Jeppe Olsen; May 16, 2013
  *
  #include "errquit.fh"
  #include "mafdecls.fh"
  #include "global.fh"
        INCLUDE 'implicit.inc'
        INCLUDE 'mxpdim.inc'
        INCLUDE 'csm.inc'
  