anchor.diff:  c       
   
   c version
  -c $Id: mat1.f,v 1.2 2004/05/20 21:13:21 willic3 Exp $
  +c $Id: mat1.f,v 1.3 2004/05/24 21:03:25 willic3 Exp $
   
   c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
   
  
positive.code: c...  parameters
  c
        character labelp(3)*15,modelname*24
        parameter(labelp(1)="Density",
       &          labelp(2)="Young's modulus",
       &          labelp(3)="Poisson's ratio")
        parameter(modelname="Isotropic Linear Elastic")
        integer mattype
        parameter(mattype=1)
  c
  c...  local variables
  c
        integer i,j
  c
  c...  open output files
  c
  
negative.code: c...  parameters
  c
        double precision zero
        parameter(zero=0.0d0)
  c
  c...  local variables
  c
        double precision str(6)
        integer i
  c
        call fill(str,zero,nstr)
        if(idout.gt.0) write(kw,700) iel,igauss,(str(i),i=1,nstr)
        if(idsk.eq.0) write(kp,710) (str(i),i=1,nstr)
        if(idsk.eq.1) write(kp) str
  