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
  
positive.code: c
  c                             Charles A. Williams
  c                       Rensselaer Polytechnic Institute
  c                        (C) 2004  All Rights Reserved
  c
  c  Copyright 2004 Rensselaer Polytechnic Institute.
  c  All worldwide rights reserved.  A license to use, copy, modify and
  c  distribute this software for non-commercial research purposes only
  c  is hereby granted, provided that this copyright notice and
  
negative.code:       integer i
        double precision e,pr,vis,rmu,f1,f2,emean,smean,eet,stau,smeantp
        double precision sdev,sdevtp,smean0,sdev0,fac1,fac2,rvis
        double precision eett(6)
  c
  cdebug      integer idb
  c
  c...  included variable definitions
  c
  