anchor.diff:  
       !delta = max(DELMIN, rbeg, delta)
   
  -    call TRDFSUB(N,NPT,Y,L,U,M,EQUATN,LINEAR,CCODED,UEVALF,UEVALLC, &
  -         TRDF_EVALJAC,TRDF_EVALHC,UEVALC,MAXFCNT,RBEG,REND,XEPS,VERBOSE, &
  -         NF,ALPHA,FFILTER,HFILTER,FILTERTEST,OUTITER,DELTA,EPSFEAS,FY, &
  -         HYNORM,FCNT,RHO,FLAG)
  +    call TRDFSUB(N,NPT,Y,L,U,M,EQUATN,LINEAR,CCODED,MAXFCNT,RBEG, &
  +         REND,XEPS,VERBOSE,NF,ALPHA,FFILTER,HFILTER,FILTERTEST,   &
  +         OUTITER,DELTA,EPSFEAS,FY,HYNORM,FCNT,RHO,FLAG)
   
     end subroutine trdfsolver
   
  -  ! ******************************************************************
  -  ! ******************************************************************
  -
  -  subroutine trdf_evaljac(n,x,ind,jcvar,jcval,jcnnz,lim,lmem,flag)
  -
  -    implicit none
  -
  -    ! SCALAR ARGUMENTS
  -    logical :: lmem
  -    integer :: flag,ind,jcnnz,lim,n
  -
  -    ! ARRAY ARGUMENTS
  -    integer :: jcvar(lim)
  -    real(8) :: x(n),jcval(lim)
  -
  -    flag = -1
  -
  -    lmem = .false.
  -
  -    call uevalljac(n,x,ind,jcvar,jcval,jcnnz,flag)
  -
  -  end subroutine trdf_evaljac
  -
  -  ! ******************************************************************
  -  ! ******************************************************************
  -
  -  subroutine trdf_evalhc(n,x,ind,hcrow,hccol,hcval,hcnnz,lim,lmem,flag)
  -
  -    implicit none
  -
  -    ! SCALAR ARGUMENTS
  -    logical :: lmem
  -    integer :: flag,hcnnz,ind,lim,n
  -
  -    ! ARRAY ARGUMENTS
  -    integer :: hccol(lim),hcrow(lim)
  -    real(8) :: hcval(lim),x(n)
  -
  -    flag = 0
  -
  -    lmem = .false.
  -
  -    hcnnz = 0
  -
  -  end subroutine trdf_evalhc
  -
  -
  -  ! ******************************************************************
  -  ! ******************************************************************
  -
  -  ! ******************************************************************
  -  ! ******************************************************************
  -
  -  ! ******************************************************************
  -  ! ******************************************************************
  -
  -  ! ******************************************************************
  -  ! ******************************************************************
  -
  -  ! ******************************************************************
  -  ! ******************************************************************
  -
  -
  -
  -
  -  SUBROUTINE TRDFSUB(N,NPT,X,XL,XU,M,EQUATN,LINEAR,CCODED,EVALF_,EVALLC_, &
  -       EVALLJAC_,EVALHC_,EVALC_,MAXFCNT,RBEG,REND,XEPS,OUTPUT,NF,  &
  -       ALPHA,FFILTER,HFILTER,FILTERTEST,OUTITER,DELTA,EPSFEAS,F,FEAS,FCNT,RHO,FLAG)
  +
  +  ! ******************************************************************
  +  ! ******************************************************************
  +
  +  ! ******************************************************************
  +  ! ******************************************************************
  +
  +  ! ******************************************************************
  +  ! ******************************************************************
  +
  +  ! ******************************************************************
  +  ! ******************************************************************
  +
  +  ! ******************************************************************
  +  ! ******************************************************************
  +
  +
  +
  +
  +  SUBROUTINE TRDFSUB(N,NPT,X,XL,XU,M,EQUATN,LINEAR,CCODED,MAXFCNT, &
  +       RBEG,REND,XEPS,OUTPUT,NF,ALPHA,FFILTER,HFILTER,FILTERTEST,  &
  +       OUTITER,DELTA,EPSFEAS,F,FEAS,FCNT,RHO,FLAG)
   
       ! This subroutine is the implementation of the Derivative-free
       ! Trust-region algorithm for constrained optimization described in
  
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:     logical :: ccoded(2),equatn(m),linear(m)
  
      ! EXTERNAL SUBROUTINES
      procedure(absfilter) :: filterTest
  
      intent(in   ) :: m,maxfcnt,n,npt,rbeg,rend,xeps,xl,xu,ccoded, &
                      equatn,linear,alpha,nf,ffilter,hfilter,epsfeas, &
  