anchor.diff:        end
   c
   c version
  -c $Id: pquadhex.f,v 1.2 2004/07/06 19:14:36 willic3 Exp $
  +c $Id: pquadhex.f,v 1.3 2004/07/07 19:40:22 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c
        nen=20
        ngauss=ieight
        do l=1,ngauss
          gauss(1,l)=r(l)*root3i
          gauss(2,l)=s(l)*root3i
  
negative.code:           end do
          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=gquad(gauss(1,l),r(i))
  