anchor.diff:  c
   c                             Charles A. Williams
   c                       Rensselaer Polytechnic Institute
  -c                        (C) 2004  All Rights Reserved
  +c                        (C) 2005  All Rights Reserved
   c
  -c  Copyright 2004 Rensselaer Polytechnic Institute.
   c  All worldwide rights reserved.  A license to use, copy, modify and
   c  distribute this software for non-commercial research purposes only
   c  is hereby granted, provided that this copyright notice and
  
positive.code:       end
  c
  c version
  c $Id: write_ucd_mesh.f,v 1.5 2005/02/24 00:26:34 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
  c...  local variables
  c
        integer nnattr,neattr,nngattr,negattr,nmattr,i,j
        integer iprestress,nstep,iopt
        integer ielg,ifam,ielf,nelfamily,matmodel
        integer numelg,l,ngpts,indtype,igpt
        integer itmp(20)
        double precision xl(nsd,nenmax),xg(nsd)
  c
  cdebug      write(6,*) "Hello from write_ucdmesh_f!"
  c
        nnattr=ndof
        neattr=izero
        nngattr=nstatout(1)+nstatout(2)+nstatout(3)
        negattr=izero
        nmattr=izero
        numelg=izero
        ngpts=ngauss*numelv
        iprestress=izero
        nstep=izero
        iopt=ione
        call open_ucd(kucd,iprestress,nstep,ucdroot,iopt)
  c
  c...  write mesh info
  c
        write(kucd,"(5i7)") numnp,numelv,nnattr,neattr,nmattr
  c
  c...  write nodal coordinates
  c
  