! Zgomot numeric
subroutine Noise(f, a, b, n)
external f


h =(b-a)/N

do j=0, n
x =a+j*h
write(1,*) x, f(x)
enddo

close(1)

end

