renaming a subroutine
This commit is contained in:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user