anchor.diff:  
       ! LOCAL SCALARS
       integer :: i
  -
  -    Write(*,*)
  -    Write(*,*)
  -    Write(*,*)
  -    write(*,*) '----------> Slanting'
  -    Write(*,*)
  -    Write(*,*)
  -    Write(*,*)
   
       slantingFilter = .false.
   
  
positive.code:     ! LOCAL SCALARS
      integer :: i
  
      Write(*,*)
      Write(*,*)
      Write(*,*)
      write(*,*) '----------> Flat'
      Write(*,*)
      Write(*,*)
      Write(*,*)
  
      flatFilter = .false.
  
      do i = 1,nf
  
negative.code: contains
  
    !----------------------------------------------------------!
    ! FUNCTION SLANTINGFILTER                                  !
    !                                                          !
    ! This function tests if the point for which the values fx !
    ! (objective function value) and hxnorm (norm of the       !
  