plotter.f95

program plotter
!use gnuplot_fortran
implicit none

integer, parameter :: n = 100
real, dimension(0:n) :: x, y
real :: x_start = 0., x_end = 20, dx
integer :: i

! Construindo o vetor x
dx = (x_end - x_start) / n
x(0:n) = (/(i*dx, i = 0,n)/) ! one of f95 way of initializing array values

! Construindo o vetor y

y = sin(x) / (x + 1)

! Gera os dados para o grafico

!call plot2d(x,y)

end program plotter