-
Notifications
You must be signed in to change notification settings - Fork 0
/
md_plot.f95
47 lines (36 loc) · 973 Bytes
/
md_plot.f95
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
module md_plot
use plplot
implicit none
private
public plot_init, plot_end, plot_points
contains
!adapted from coding notes
subroutine plot_init(xmin,xmax, ymin,ymax,zmin,zmax)
implicit none
real(8), intent(in) :: xmin,xmax,ymin,ymax,zmin,zmax
call plsdev("xcairo")
call plinit()
!call plparseopts(PL_PARSE_FULL)
call pladv(0)
call plvpor(0d0, 1d0, 0d0, 1d0)
call plwind(-1d0, 1d0, -2d0 / 3, 4d0 / 3)
call plw3d(1d0, 1d0, 1d0, xmin, xmax, ymin, ymax, &
zmin, zmax, 0d0, -40d0)
end subroutine plot_init
subroutine plot_end
call plspause(.false.)
call plend()
end subroutine
!copied from coding notes
subroutine plot_points(xyz)
implicit none
real(8), intent(in) :: xyz(:, :)
call plclear()
call plcol0(1)
call plbox3("bnstu", "x", 0d0, 0, "bnstu", "y", &
0d0, 0, "bcnmstuv", "z", 0d0, 0)
call plcol0(2)
call plpoin3(xyz( :, 1), xyz( :, 2), xyz( :, 3), 4)
call plflush()
end subroutine
end module