anchor.diff:      !
       ! FCNT - number of function evaluations
   
  +    use filters, only: absfilter
  +
       IMPLICIT NONE
   
       ! SCALAR ARGUMENTS
  
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:     real(8) :: ffilter(nf),hfilter(nf),l(n),u(n),y(n)
  
      ! EXTERNAL SUBROUTINES
      procedure(evalf  )   :: uevalf_
      procedure(evalc  )   :: uevallc_,uevalc_
      procedure(evaljac)   :: uevalljac_
      procedure(absfilter) :: filterTest
  
      ! LOCAL SCALARS
  