anchor.diff:        end
   c
   c version
  -c $Id: td_matinit_cmp_ss.f,v 1.1 2004/06/25 21:37:15 willic3 Exp $
  +c $Id: td_matinit_cmp_ss.f,v 1.2 2004/07/09 01:29:45 willic3 Exp $
   c
   c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
   c
  
positive.code: c
  cdebug      write(6,*) "Hello from td_matinit_cmp_ss_f!"
  c
        nmatel=infmat(2)
        imatvar=infmat(4)
  c
  c...  compute d-matrix for first element in the group.  If imatvar is
  c     zero, there is only one d-matrix for the group, and that is all
  
negative.code:      & s,stemp,                                                         ! stiff
       & state,dstate,dmat,ien,lm,lmx,lmf,infiel,iddmat,nstatesz,         ! elemnt
       & ndmatsz,numelt,nconsz,                                           ! elemnt
       & prop,nprop,matgpt,imatvar,nmatel,elas_matinit,td_matinit,matchg, ! materl
       & tminmax,                                                         ! materl
       & gauss,sh,shj,infetype,                                           ! eltype
       & rtimdat,ntimdat,                                                 ! timdat
       & skew,numrot,                                                     ! skew
  