anchor.diff:      ! LOCAL SCALARS
       integer :: i
   
  -    flag = -1
  -
  -    DO i = 1,n
  -       XA(I) = X(I) + XBASE_A(I)
  -    END DO
  -
  -    call trdf_evalhc(n,XA,ind,hcrow,hccol,hcval,hcnnz,lim,lmem,flag)
  +    flag = 0
  +
  +    lmem = .false.
  +
  +    hcnnz = 0
   
     end subroutine mevalhc
     
  
positive.code: 
      flag = -1
  
      DO I=1, N
         XA(I) = X(I) + XBASE_A(I)
      END DO
  
      call trdf_evaljac(n,XA,ind,jcvar,jcval,jcnnz,lim,lmem,flag)
  
    end subroutine mevaljac
  
  
negative.code:     flag = 0
  
      ! Set the user-defined functions
  
      FZ      = F
      F       = 1.0D+300
  