anchor.diff:        end
   c
   c version
  -c $Id: pquadwedge.f,v 1.1 2004/04/14 21:18:30 willic3 Exp $
  +c $Id: pquadwedge.f,v 1.2 2004/07/07 19:56:52 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code:           end do
          end do
        end if
        do l=1,ngauss
          rr=gauss(1,l)
          ss=gauss(2,l)
  
negative.code:         dt(2,1)=zero
          dt(3,1)=one-four*uu
          dt(4,1)=four*ss
          dt(5,1)=(-four)*ss
          dt(6,1)=four*(uu-rr)
          dt(1,2)=zero
          dt(2,2)=four*ss-one
          dt(3,2)=one-four*uu
          dt(4,2)=four*rr
          dt(5,2)=four*(uu-ss)
          dt(6,2)=(-four)*rr
          dh(1)=half*(two*tt+one)
          dh(2)=half*(two*tt-one)
          dh(3)=one-two*tt
  