anchor.diff:  c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   c
   c
  -      subroutine read_connect(infmatmod,ivflist,nen,ngauss,ien,ivfamily,
  -     & ivftmp,indxiel,maxvfamilies,nvfamilies,nprestrflag,numelv,numnp,
  -     & nstatesz,nstatesz0,npropsz,kr,kw,kp,idout,idsk,ifile,ofile,pfile,
  -     & ierr,errstrng)
  +      subroutine read_connect(ien,mat,infin,nen,numelv,numnp,nvfamilies,
  +     & kr,ifile,ierr,errstrng)
   c
   c      this subroutine reads element types and connectivities, material
  -c      types, and infinite element info, and sorts things into element
  -c      families.
  -c      The initial element type and the infinite element info are used
  -c      together to form the final element types, which includes all
  -c      infinite element permutations.
  +c      types, and infinite element info.
   c
   c      Error codes:
   c          0:  No error
   c          1:  Error opening input file
   c          3:  Read error
   c        106:  Illegal element type
  -c        101:  Attempt to use undefined material model
   c        107:  Illegal material type
   c        108:  Undefined node used for connectivity
   c
  
positive.code:         close(kr)
          return
  c
  c...  error opening output file
  c
   40   continue
          ierr=2
          errstrng="read_connect"
          close(kw)
          close(kp)
          return
  c
  c...  error writing to output file
  c
   50   continue
          ierr=4
          errstrng="read_connect"
          close(kw)
          close(kp)
          return
  c
  1000  format(30i7)
  2000  format(1x,///,
       x          ' e l e m e n t  d a t a ',//,5x,
       x          ' element    material  element  number  ',20(a4,i2,4x))
  2500  format(5x,'             number     type   gauss  ',/,
       x       5x,'                               points  ',/)
  3000  format(6x,i7,25(5x,i7))
  4000  format(//)
  c
        end
  c
  c version
  c $Id: read_connect.f,v 1.9 2005/04/05 22:39:56 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
  c...  subroutine arguments
  c
        integer nen,numelv,numnp,nvfamilies,kr,ierr
        integer ien(nen,numelv),mat(numelv),infin(numelv)
        character ifile*(*),errstrng*(*)
  c
  c...  local variables
  c
  c
  c...  intrinsic functions
  c
  c
  c...  local variables
  c
        integer i,j,n,ietypev
  cdebug      integer idb,jdb
  c
  cdebug      write(6,*) "Hello from read_connect_f!"
  c
        call ifill(ien,izero,nen*numelv)
        ierr=izero
  c
  c...  read connectivity, material number, and infinite element info
  c
        open(kr,file=ifile,status="old",err=20)
        call pskip(kr)
        do i=1,numelv
          read(kr,*,end=30,err=30) n,ietypev,mat(i),infin(i),
       &   (ien(j,i),j=1,nen)
  c
  c...  check for illegal element type
  c
  