anchor.diff:  *
   c      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
   c      INCLUDE 'mxpdim.inc'
  +#include "errquit.fh"
  +#include "mafdecls.fh"
  +#include "global.fh"
         INCLUDE 'wrkspc.inc'
   *. Specific input
         DIMENSION IDET(*)
  
positive.code:       NOCTPB = NOCTYP(IBTP)
  *
         CALL STFDT3(NSBDET,IDET,IASTR2,IBSTR2,NSMST,NOCTPA,NOCTPB,
       &             WORK(KNSTSO(IATP)),WORK(KNSTSO(IBTP)),
       &             WORK(KISTSO(IATP)),WORK(KISTSO(IBTP)),
       &             IOCOC,JSMOST,ICOMBI)
  *
        RETURN
  
negative.code:       SUBROUTINE ICOPVE2(IIN,IOFF,NDIM,IOUT)
  *
  * IOUT(I) = IIN(IOFF-1+I),I = 1, NDIM
  