anchor.diff:  c...  local variables
   c
         double precision e,pr,vis,f1,f2
  +cdebug      integer idb
   c
   c...  included variable definitions
   c
         include "rtimdat_def.inc"
         include "rgiter_def.inc"
         include "ntimdat_def.inc"
  +c
  +cdebug      write(6,*) "Hello from td_matinit_5_f!"
   c
         tmax=big
         e=prop(2)
  
positive.code:         errstrng="mat_prt_5"
          return
  c
   700  format("Material number:       ",i7,/,
       &       "Material type:         ",a37,/,
       &       "Number of properties:  ",i7,/)
   710  format(15x,a15,3x,1pe15.8)
  c
        end
  
negative.code: c       
  
  c version
  c $Id: mat_5.f,v 1.3 2004/08/12 02:01:55 willic3 Exp $
  
  c Generated automatically by Fortran77Mill on Tue May 18 14:18:50 2004
  
  