anchor.diff:          if(ietype.eq.61) indtype=inine
           if(ietype.eq.62) indtype=10
           write(kucd,"(2i7,2x,a4,20i7)") i,imat,eltype(indtype),
  -     &   (ien(j),j=indien,indien+nen-1)
  +     &   (ien(inducd(j,indtype)),j=indien,indien+nen-1)
         end do
         close(kucd)
   c
  
positive.code: c
  c...  local constants
  c
        character eltype(10)*4
        data eltype/"hex","wrk","wdg","pyr","tet",
       & "qhex","qwrk","qwdg","qpyr","qtet"/
  c
  c...  external functions
  c
  
negative.code:       end
  c
  c version
  c $Id: write_ucd_mesh.f,v 1.3 2004/08/26 18:48:59 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  