anchor.diff:  c
   c...  local variables
   c
  -      integer i,l,nshsize,ngssize
  +      integer nen,ngauss,nec,nee,i,l,nshsize,ngssize
         double precision rr,ss,tt,uu,drr,dss,dtt
         double precision trivol
   c
  
positive.code:       end
  c
  c version
  c $Id: plinwedge.f,v 1.1 2004/04/14 21:18:30 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
        nen=isix
        ngauss=ione
        nec=nsd*nen
        nee=ndof*nen
        gauss(1,1)=zero
        gauss(2,1)=zero
        gauss(3,1)=zero
  