anchor.diff:        end
   c
   c version
  -c $Id: plintet.f,v 1.1 2004/04/14 21:18:30 willic3 Exp $
  +c $Id: plintet.f,v 1.2 2004/07/07 19:28:30 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c
  c...  local variables
  c
        integer i,nshsize,ngssize
        double precision rr,ss,tt,uu
        double precision tetvol
  c
  
negative.code: c
        nen=ifour
        ngauss=ione
        nec=nsd*nen
        nee=ndof*nen
        gauss(1,1)=fourth
        gauss(2,1)=fourth
        gauss(3,1)=fourth
        gauss(4,1)=tetvol
  c
        infetype(1)=ngauss
        infetype(2)=nen
        infetype(3)=nec
        infetype(4)=nee
  c
        do i=1,nen
          rr=r(i)*gauss(1,1)
          ss=s(i)*gauss(2,1)
  