renaming a subroutine

This commit is contained in:
Tonton Th
2026-05-08 08:44:15 +02:00
parent a079f026f7
commit d4c3783d72
3 changed files with 3 additions and 3 deletions

View File

@@ -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)