anchor.diff:    ! public procedures
     public findIntersection
     public findUnion
  +  public applIntersection
  +  public applUnion
     
   contains
     
  
positive.code:     end do
    end function
    
  end module
  
negative.code:     integer,intent(in)::b(:) !< array b
      integer,allocatable::findUnion(:) !< intersection of a and b
      
      allocate(findUnion(size(a)))
      findUnion(:)=a(:)
      do i=1,size(b)
        if(.not.any(a(:)==b(i)))then
          call pushArr(findUnion,b(i))
  