anchor.diff:  c
         nen=ieight
         ngauss=ione
  +      nec=nsd*nen
  +      nee=ndof*nen
         gauss(1,1)=zero
         gauss(2,1)=zero
         gauss(3,1)=zero
  
positive.code:           gauss(4,l)=one
          end do
        end if
        do l=1,ngauss
          do i=1,nen
            rr=one+r(i)*gauss(1,l)
  
negative.code:       end
  c
  c version
  c $Id: plinhex.f,v 1.2 2004/07/07 19:17:02 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  