anchor.diff:  c
   c...  local variables
   c
  -      integer ifam,nelfamily,matmodel,ielf,ielg,i
  +      integer ifam,nelfamily,ielf,ielg,i
         double precision p(60),dld(60)
   cdebug      integer idb
   c
  
positive.code:       end
  c
  c version
  c $Id: formdf_ss.f,v 1.8 2005/03/21 19:12:43 willic3 Exp $
  c
  c Generated automatically by Fortran77Mill on Wed May 21 14:15:03 2003
  c
  
negative.code: c
        do ifam=1,nvfamilies
          nelfamily=ivfamily(1,ifam)
          do ielf=1,nelfamily
            ielg=ielg+ione
  c
  