anchor.diff:        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
  
positive.code:       integer iddmat(nstr,nstr)
        character errstrng*(*)
        logical matchg
        double precision state(nstr,nstate),dstate(nstr,nstate)
        double precision state0(nstate0),ee(nstr)
        double precision dmat(nddmat),prop(nprop),tmax
  c
  c...  included dimension and type statements
  c
  
negative.code: c
        integer i
  c
  cdebug      write(6,*) "Hello from mat_prt_5_f!"
  c
  c...  output plot results
  c
        if(idsk.eq.ione) then
  