@@ -5,6 +5,15 @@ module pg_plots
5
5
integer , parameter :: return_size_in_px = 3
6
6
7
7
contains
8
+ subroutine grid_plot (p )
9
+ type(pg_data), pointer :: p
10
+
11
+ call pgbbuf()
12
+ call pgeras()
13
+ call do_grid(p,0.0 ,1.0 ,1.0 ,0.0 ,1.0 )
14
+ call pgebuf()
15
+ end subroutine grid_plot
16
+
8
17
subroutine do_grid (p ,xleft ,xright ,ytop ,ybottom ,txt_scale )
9
18
use, intrinsic :: iso_fortran_env, only: error_unit
10
19
type(pg_data), pointer :: p
@@ -89,6 +98,15 @@ end subroutine adjust_padding_and_set_size
89
98
90
99
end subroutine do_grid
91
100
101
+ subroutine simplt_plot (p )
102
+ type(pg_data), pointer :: p
103
+
104
+ call pgbbuf()
105
+ call pgeras()
106
+ call do_simplt(p,0.0 ,1.0 ,1.0 ,0.0 ,1.0 )
107
+ call pgebuf()
108
+ end subroutine simplt_plot
109
+
92
110
subroutine do_simplt (p ,xleft ,xright ,ytop ,ybottom ,txt_scale )
93
111
type(pg_data), pointer :: p
94
112
real , intent (in ) :: xleft, xright, ytop, ybottom,txt_scale
@@ -143,6 +161,15 @@ subroutine do_simplt(p,xleft,xright,ytop,ybottom,txt_scale)
143
161
call pgline(100 ,xs,ys)
144
162
145
163
end subroutine do_simplt
164
+
165
+ subroutine box_plot (p )
166
+ type(pg_data), pointer :: p
167
+
168
+ call pgbbuf()
169
+ call pgeras()
170
+ call do_box(p,0.0 ,1.0 ,1.0 ,0.0 ,1.0 )
171
+ call pgebuf()
172
+ end subroutine box_plot
146
173
147
174
subroutine do_box (p ,xleft ,xright ,ytop ,ybottom ,txt_scale )
148
175
type(pg_data), pointer :: p
@@ -174,6 +201,15 @@ subroutine do_box(p,xleft,xright,ytop,ybottom,txt_scale)
174
201
call pgbox(' BC' ,0.0 ,0 ,' BC' ,0.0 ,0 )
175
202
176
203
end subroutine do_box
204
+
205
+ subroutine lgdplt_plot (p )
206
+ type(pg_data), pointer :: p
207
+
208
+ call pgbbuf()
209
+ call pgeras()
210
+ call do_lgdplt(p,0.0 ,1.0 ,1.0 ,0.0 ,1.0 )
211
+ call pgebuf()
212
+ end subroutine lgdplt_plot
177
213
178
214
subroutine do_lgdplt (p ,xleft ,xright ,ytop ,ybottom ,txt_scale )
179
215
type(pg_data), pointer :: p
@@ -293,6 +329,15 @@ subroutine do_lgdplt(p,xleft,xright,ytop,ybottom,txt_scale)
293
329
call pgsci(save_ci)
294
330
end subroutine do_lgdplt
295
331
332
+ subroutine box_with_legend_plot (p )
333
+ type(pg_data), pointer :: p
334
+
335
+ call pgbbuf()
336
+ call pgeras()
337
+ call do_box_with_legend(p,0.0 ,1.0 ,1.0 ,0.0 ,1.0 )
338
+ call pgebuf()
339
+ end subroutine box_with_legend_plot
340
+
296
341
subroutine do_box_with_legend (p ,xleft ,xright ,ytop ,ybottom ,txt_scale )
297
342
type(pg_data), pointer :: p
298
343
real , intent (in ) :: xleft, xright, ytop, ybottom
0 commit comments