anchor.diff:      intent(inout) :: delta,f,x
   
       ! LOCAL ARRAYS
  -    REAL(8) :: D(INN),XNOVO(INN),SL(INN),SU(INN), VETOR1(NPT+N+1),Z(INN)
  +    REAL(8) :: D(n),XNOVO(n),VETOR1(NPT + N + 1),Z(n)
   
       ! LOCAL SCALARS
       logical :: forbidden
  
positive.code:     real(8) :: x(n)
  
      ! LOCAL ARRAYS
      real(8) :: XA(NMAX)
  
      ! LOCAL SCALARS
      integer :: i
  
      flag = -1
  
      DO I=1, N
         XA(I) = X(I) + XBASE_A(I)
      END DO
  
  
negative.code: 
      maxfcnt = 1000 * n
  
      rbeg = rho
  
      rend = epsopt
  
      xeps = 1.0D-08
  
      call TRDFSUB(N,NPT,Y,L,U,M,EQUATN,LINEAR,CCODED,MAXFCNT,RBEG, &
           REND,XEPS,VERBOSE,NF,ALPHA,FFILTER,HFILTER,FILTERTEST,   &
  