anchor.diff:  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',/)
  +     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.2 2004/07/09 20:22:41 willic3 Exp $
  +c $Id: read_connect.f,v 1.3 2004/08/02 21:25:14 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c     total size of the state variable and material matrices.
  c
          infiel(5,i)=nstatesz+ione
          infiel(6,i)=ndmatsz+ione
          ngauss=infetype(1,infiel(3,i))
          nstate=infmatmod(2,matmod)
          imatvar=infmatmod(4,matmod)
          nstatesz=nstatesz+nstr*nstate*ngauss
          if(imatvar.eq.izero) then
            if(imgrp(imat).gt.izero) ndmatsz=ndmatsz+ngaussmax
          else
            ndmatsz=ndmatsz+ngauss
          end if
          imgrp(imat)=imgrp(imat)+ione
        end do
        close(kr)
  c
  
negative.code:             write(kw,2000)(head(j),j,j=1,nen)
              write(kw,2500)
            end if
            write(kw,3000) i,imat,ietype,ngauss,(ien(j),j=i1,i2)
          end do
          write(kw,4000)
          close(kw)
  