anchor.diff:  c
   c...  local variables
   c
  -      integer i,j,n,ietypev
  +      integer i,j,n,ietypev,infin
   cdebug      integer idb,jdb
   c
   cdebug      write(6,*) "Hello from read_connect_f!"
  
positive.code: 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
  
negative.code: c~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  c
  c
        subroutine read_connect(ien,mat,nen,numelv,numnp,nvfamilies,
       & kr,ifile,ierr,errstrng)
  c
  c      this subroutine reads element types and connectivities, material
  