anchor.diff:  c
         integer i,j
         double precision e,pr,pr1,pr2,pr3,fac,dd,od,ss
  +cdebug      integer idb
  +c
  +cdebug      write(6,*) "Hello from elas_mat_5_f!"
   c
         e=prop(2)
         pr=prop(3)
  
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...  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)
  