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:       end
  c
  c version
  c $Id: read_connect.f,v 1.10 2005/04/12 23:17:42 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code:       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,
       &   (ien(j,i),j=1,nen)
  c
  c...  check for illegal element type
  