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