anchor.diff:        end
   c
   c version
  -c $Id: write_ucd_mesh.f,v 1.5 2005/02/24 00:26:34 willic3 Exp $
  +c $Id: write_ucd_mesh.f,v 1.6 2005/03/26 00:41:01 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c
        subroutine write_ucd_mesh(
       & x,numnp,                                                         ! global
       & ien,infiel,numelt,nconsz,                                        ! elemnt
       & sh,infetype,                                                     ! eltype
       & istatout,                                                        ! ioopts
       & kucd,ucdroot)                                                    ! ioinfo
  c
  c...  Specialized routine to output mesh info for SCEC benchmarks.
  
negative.code: c
  c...  subroutine arguments
  c
        integer numnp,numelv,nvfamilies,nen,ngauss,ietype,kucd
        integer ien(nen,numelv),ivfamily(5,nvfamilies)
        integer istatout(nstatesmax,3),nstatout(3)
        character ucdroot*(*)
        double precision x(nsd,numnp),sh(nsd+1,nen,ngauss)
  c
  c...  local constants
  c
  