anchor.diff:        double precision dmat(nddmat),prop(nprop),tmax
         logical matchg
   c
  +c...  included dimension and type statements
  +c
  +      include "rtimdat_dim.inc"
  +      include "rgiter_dim.inc"
  +      include "ntimdat_dim.inc"
  +c
   c...  local variables
   c
  +c
  +c...  included variable definitions
  +c
  +      include "rtimdat_def.inc"
  +      include "rgiter_def.inc"
  +      include "ntimdat_def.inc"
   c
         tmax=big
         if(.not.matchg) return
  
positive.code: c       
  
  c version
  c $Id: mat_1.f,v 1.9 2004/08/02 20:34:49 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  
negative.code:         errstrng="mat_prt_1"
          return
  c
   700  format(/,5x,"Material number:       ",i7,/,5x,
       &            "Material type:         ",a24,/,5x,
       &            "Number of properties:  ",i7,/)
   710  format(15x,a15,3x,1pe15.8)
  c
        end
  