From d4c3783d725e038cf943f2d994621c930eaf3a0d Mon Sep 17 00:00:00 2001 From: Tonton Th Date: Fri, 8 May 2026 08:44:15 +0200 Subject: [PATCH] renaming a subroutine --- genplotting.f90 | 2 +- oscilloscope.f90 | 2 +- testbed.f90 | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/genplotting.f90 b/genplotting.f90 index c281d92..930e18b 100644 --- a/genplotting.f90 +++ b/genplotting.f90 @@ -87,7 +87,7 @@ subroutine genp_line(xa, ya, xb, yb, color) call genp_draw(xb, yb, color) end subroutine ! --------------------------------------------------------- -subroutine plot_axes(amp) +subroutine genp_plot_axes(amp) real, intent(in) :: amp call genp_move(0.0, -amp) call genp_draw(0.0, amp, 7) diff --git a/oscilloscope.f90 b/oscilloscope.f90 index 7dd0ccc..780628f 100644 --- a/oscilloscope.f90 +++ b/oscilloscope.f90 @@ -62,7 +62,7 @@ subroutine do_oscilloscope(freqs, col) call plot_a_trace(freqs(2), 1.0, 120, 3.33, col) call plot_a_trace(freqs(3), 2.6, 120, -3.33, col) call plot_a_trace(freqs(4), 3.1, 120, -6.66, col) - call plot_axes(10.0) + call genp_plot_axes(10.0) end subroutine ! --------------------------------------------------------- diff --git a/testbed.f90 b/testbed.f90 index f326bab..25765fa 100644 --- a/testbed.f90 +++ b/testbed.f90 @@ -3,7 +3,7 @@ program testbed implicit none call genp_init(0, "foo.scratch") - call plot_axes(13.37) + call genp_plot_axes(13.37) call genp_end(0) call genp_do_render("foo.scratch", "foo.tga", 512, 512)