anchor.diff:            end do
           end do
         end if
  +cdebug      write(6,*) "tminmax:",tminmax
   c
   c...  loop over elements in group and add element stiffness to global
   c     stiffness.
  
positive.code:       end
  c
  c version
  c $Id: td_matinit_cmp_ss.f,v 1.3 2004/08/02 21:29:45 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
        include "rtimdat_dim.inc"
        include "ntimdat_dim.inc"
        include "rgiter_dim.inc"
  c
  c...  external routines
  c
  