anchor.diff:            gauss(4,l)=fourth*tetvol
           end do
         end if
  +c
  +      infetype(1)=ngauss
  +      infetype(2)=nen
  +      infetype(3)=nec
  +      infetype(4)=nee
  +c
         do l=1,ngauss
           do i=1,nen
             rr=r(i)*gauss(1,l)
  
positive.code: c...  Quadratic tet definition
  c
        nen=10
        if(intord.eq.2) then
          ngauss=ione
          gauss(1,1)=fourth
  
negative.code:       end
  c
  c version
  c $Id: pquadtet.f,v 1.2 2004/07/07 19:53:01 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  