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:       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
  
negative.code: c...  subroutine arguments
  c
        integer nen,numelv,numnp,nvfamilies,kr,ierr
        integer ien(nen,numelv),mat(numelv)
        character ifile*(*),errstrng*(*)
  c
  c...  local variables
  