anchor.diff:  c...  subroutine arguments
   c
         integer nen,ngauss,maxvfamilies,nvfamilies,nprestrflag,numelv
  -      integer numnp,nstatesz,nstatesz0,npropsz,kr,ierr
  +      integer numnp,nstatesz,nstatesz0,npropsz,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*(*)
  +      character errstrng*(*)
   c
   c...  local variables
   c
  
positive.code: c
        subroutine sort_elements(ien,mat,infmatmod,ivflist,ivfamily,iens,
       & ivftmp,indxiel,nen,ngauss,maxvfamilies,nvfamilies,nprestrflag,
       & numelv,numnp,nstatesz,nstatesz0,npropsz,kr,ifile,ierr,errstrng)
  c
  c      This routine sorts elements into element families and determines
  c      several sizes.
  
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
  