anchor.diff:        double precision sig2i,wt,ym,beta(mmax),afunc(mmax)
   c
   c
  -c*      write(6,*) "Hello from lfit_f!"
  +cdebug      write(6,*) "Hello from lfit_f!"
   c
         do j=1,ma
           do k=1,ma
  
positive.code:         beta(j)=zero
        end do
        do i=1,ndat
          call funcs(x(i),xn,afunc,ma)
          ym=y(i)
          sig2i=one/(sig(i)*sig(i))
          do j=1,ma
  
negative.code: c
  c...  subroutine arguments
  c
        integer ndat,ma,npc,ierr
        double precision x(ndat),y(ndat),sig(ndat),a(ma),covar(npc,npc)
        double precision xn(3,5)
        character errstrng*(*)
  c
  c...  local variables
  c
  