tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add a "genp_line" subroutine

Browse Source
This commit is contained in:
Tonton Th
2026-04-24 23:08:11 +02:00
parent 0d0f794103
commit 996cf35f35
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
genplotting.f90
View File

@@ -64,6 +64,12 @@ subroutine genp_draw (px, py, color)
if (ly .gt. ymax) ymax = ly if (ly .gt. ymax) ymax = ly
end subroutine end subroutine
! --------------------------------------------------------- ! ---------------------------------------------------------
subroutine genp_line(xa, ya, xb, yb, color)
real, intent(in) :: xa, ya, xb, yb
integer, intent(in) :: color
call genp_move(xa, ya)
call genp_draw(xb, yb, color)
end subroutine
! --------------------------------------------------------- ! ---------------------------------------------------------
subroutine genp_end (foo) subroutine genp_end (foo)
integer, intent(in) :: foo integer, intent(in) :: foo