anchor.diff:  
       flag = -1
   
  +    lmem = .false.
  +
       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)
  +    call uevalljac(n,XA,ind,jcvar,jcval,jcnnz,flag)
   
     end subroutine mevaljac
   
  
positive.code:     logical :: ccoded(2),equatn(m),linear(m)
  
      ! EXTERNAL SUBROUTINES
      external         :: evalf_,evallc_,evalljac_,evalhc_,evalc_
      logical,external :: filterTest
  
      intent(in   ) :: m,maxfcnt,n,npt,rbeg,rend,xeps,xl,xu,ccoded, &
                      equatn,linear,alpha,nf,ffilter,hfilter,epsfeas, &
  
negative.code:     ! LOCAL SCALARS
      integer :: i
  
      flag = 0
  
      lmem = .false.
  
      hcnnz = 0
  
    end subroutine mevalhc
    
  