From 6ebd28addecd2b472c779203235f8902f9603cc9 Mon Sep 17 00:00:00 2001 From: Pierre-Yves Barriat <pierre-yves.barriat@uclouvain.be> Date: Wed, 16 Oct 2024 11:18:29 +0000 Subject: [PATCH] Update 07_plot_newton.f90 --- src/07_plot_newton.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/07_plot_newton.f90 b/src/07_plot_newton.f90 index 0bac36d..b0ab76c 100644 --- a/src/07_plot_newton.f90 +++ b/src/07_plot_newton.f90 @@ -35,10 +35,10 @@ program plot_newton ! Generate x-y pairs for the graph open (112,file='07_plot_newton.data') - do i=-40,40 - x = .1d0*i - fx = x**3+x-10d0 - write(112,*) x, fx + do + + + end do close(112) -- GitLab