anchor.diff:  
       ! LOCAL SCALARS
       integer :: i
  -
  -    Write(*,*)
  -    Write(*,*)
  -    Write(*,*)
  -    write(*,*) '----------> Slanting'
  -    Write(*,*)
  -    Write(*,*)
  -    Write(*,*)
   
       slantingFilter = .false.
   
  
positive.code:   ! flat filter.                                             !
    !                                                          !
    ! Returns .true. if the point belongs to the filter or     !
    ! .false. otherwise.                                       !
    !                                                          !
    !----------------------------------------------------------!
  
  
negative.code:   ! flat filter.                                             !
    !                                                          !
    ! Returns .true. if the point belongs to the filter or     !
    ! .false. otherwise. The considered filter is the          !
    ! 'slanting filter' defined by Chin and Fletcher (2003)    !
    !                                                          !
    !----------------------------------------------------------!
    
  