anchor.diff:       &    WRITE(6,*) ' JABSPGP, JASPGP, JBSPGP = ',
        &                 JABSPGP, JASPGP, JBSPGP
             CALL DIM_ABSPGP(JASPGP,JBSPGP,NSMST,
  -     &         WORK(KNSTSO(IATP)),WORK(KNSTSO(IBTP)),
  +     &         int_mb(KNSTSO(IATP)),int_mb(KNSTSO(IBTP)),
        &         IBLTP,ISMOST(1,ISM),NSDL,NCML)
   C     DIM_ABSPGP(IASPGP,IBSPGP,NSMST,
   C    &           NSSOA,NSSOB,IBLTP,ISMOST,NSDL,NCML)
  
positive.code:       IB_B = IBSPGPFTP(IBTP)
  *
        CALL GET_DIM_PLSTRING_S(
       &     NOCCLS_MAX,WORK(KNABSPGP_FOR_OCCLS),
       &     WORK(KIABSPGP_FOR_OCCLS),
       &     NELFSPGP(1,IB_A),NELFSPGP(1,IB_B))
  *
        RETURN
  
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'
  