anchor.diff:  c
         include "implicit.inc"
   c
  +c...  parameter definitions
  +c
  +      include "ndimens.inc"
  +c
   c...  subroutine arguments
   c
  -      integer iside,infin,n,nen,nsd,ndof,npdir,idout,kto,kw
  +      integer iside,infin,n,nen,idout,kto,kw
         integer ien(nen)
         double precision pres(nen/2),pdir(npdir),xl(nsd,nen),p(ndof,nen)
   c
  
positive.code:       end
  c
  c version
  c $Id: presurql.f,v 1.1 2004/04/14 21:18:30 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:       double precision g,vmag,ds,det
        double precision sh(4,8),ptmp(3,4),v1(3),v2(3),vc(3),rgs(3)
  c
  cdebug      write(6,*) "Hello from presurql_f!"
  c
        g=root3i
  c
  