anchor.diff:  c...  local variables
   c
         integer ielga,ielgp,ielf,j,l
  +      integer floatlen,istate
         double precision sout(3*nstatesmax)
   c
   cdebug      integer idb
  
positive.code:      & ngauss,                                                          ! eltype
       & delti,nstep,                                                     ! timdat
       & istatout,istatoutc,nstatout,nstatestot,nout,npts,                ! ioopts
       & idout,idsk,iucd,kw,kp,kucd)                                      ! ioinfo
  c
  c...  computation routine to update state variables within an element family
  
negative.code: c
  c...  output to UCD file
  c
        if(iucd.eq.1) then
          do ielf=1,nelfamily
            do l=1,ngauss
              npts=npts+ione
  