48 lines
1.1 KiB
Fortran
48 lines
1.1 KiB
Fortran
module usegenplot
|
|
|
|
implicit none
|
|
contains
|
|
|
|
! -------------------------------------------------------------------
|
|
|
|
subroutine init_genplot(filename)
|
|
|
|
character(*), intent(in) :: filename
|
|
|
|
write(0, *) '--> init genplot "', filename, '"'
|
|
|
|
end subroutine
|
|
|
|
! -------------------------------------------------------------------
|
|
|
|
subroutine gplt_move(x, y)
|
|
integer, intent(in) :: x, y
|
|
print *, x, y, 0
|
|
end subroutine
|
|
|
|
! -------------------------------------------------------------------
|
|
|
|
subroutine gplt_draw(x, y)
|
|
integer, intent(in) :: x, y
|
|
print *, x, y, 2
|
|
end subroutine
|
|
|
|
! -------------------------------------------------------------------
|
|
|
|
subroutine gplt_line(x1, y1, x2, y2)
|
|
integer, intent(in) :: x1, y1, x2, y2
|
|
call gplt_move(x1, y1)
|
|
call gplt_draw(x2, y2)
|
|
end subroutine
|
|
|
|
! -------------------------------------------------------------------
|
|
subroutine gplt_rect(x1, y1, x2, y2)
|
|
integer, intent(in) :: x1, y1, x2, y2! -------------------------------------------------------------------
|
|
|
|
end subroutine
|
|
|
|
! -------------------------------------------------------------------
|
|
|
|
end module
|
|
|