anchor.diff:  c                          prestresses are being used.
   c        numelv:           Total number of volume elements.
   c        numnp:            Total number of nodes.
  -c        kr:               Unit number for input file.
  -c        ifile:            File name of input file.
   c        ien(nen,numelv):  Initial (unsorted) element node array.
   c                          This array may be deleted after use.
   c        mat(numelv):      Material type of each element.
  
positive.code: c...  subroutine arguments
  c
        integer nen,ngauss,maxvfamilies,nvfamilies,nprestrflag,numelv
        integer numnp,nstatesz,nstatesz0,npropsz,kr,ierr
        integer ien(nen,numelv),mat(numelv),infmatmod(6,nmatmodmax)
        integer ivflist(3,maxvfamilies),ivfamily(5,nvfamilies)
        integer iens(nen,numelv),ivftmp(nvfamilies),indxiel(numelv)
        character ifile*(*),errstrng*(*)
  c
  c...  local variables
  c
  
negative.code:       end
  c
  c version
  c $Id: sort_elements.f,v 1.2 2005/04/14 00:55:02 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  