1 SUBROUTINE graf0 (y,n,lx,ly,lt,runlbl)
4 REAL,
DIMENSION(n),
INTENT(in) :: y
5 REAL,
DIMENSION(n) :: x
6 REAL :: ymin, ymax, xmin, xmax, siz
7 CHARACTER*(*) lx,ly,lt,runlbl
15 ymin=minval(y);ymax=maxval(y)
16 IF (ymax .EQ. ymin)
THEN
17 IF (ymax .GT. 0.) ymin=.99*ymax
18 IF (ymax .LT. 0.) ymax=.99*ymin
19 IF (ymax .EQ. 0.) ymax=1.e-3;ymin=-1.e-3
21 CALL pgenv(minval(x),maxval(x),ymin,ymax,0,0)
22 CALL pglab(trim(lx),trim(ly),trim(lt))
25 CALL pgmtxt(
'B',4.19,0.5,0.5,trim(runlbl))
33 SUBROUTINE graf1 (x,y,n,lx,ly,lt,runlbl)
36 REAL,
DIMENSION(n),
INTENT(in) :: x, y
37 REAL :: ymin, ymax, xmin, xmax, siz
38 CHARACTER*(*) lx,ly,lt,runlbl
42 xmin=minval(x);xmax=maxval(x)
43 ymin=minval(y);ymax=maxval(y)
44 IF (ymax .EQ. ymin)
THEN
45 IF (ymax .GT. 0.) ymin=.99*ymax
46 IF (ymax .LT. 0.) ymax=.99*ymin
47 IF (ymax .EQ. 0.) ymax=1.e-3;ymin=-1.e-3
49 CALL pgenv(minval(x),maxval(x),ymin,ymax,0,0)
50 CALL pglab(trim(lx),trim(ly),trim(lt))
53 CALL pgmtxt(
'B',4.19,0.5,0.5,trim(runlbl))
61 SUBROUTINE graf1x (x,y,n,lx,ly,lt,runlbl)
64 REAL,
DIMENSION(n),
INTENT(in) :: x, y
65 REAL :: ymin, ymax, xmin, xmax, siz
66 CHARACTER*(*) lx,ly,lt,runlbl
70 xmin=minval(x);xmax=maxval(x)
71 ymin=minval(y);ymax=maxval(y)
72 IF (ymax .EQ. ymin)
THEN
73 IF (ymax .GT. 0.) ymin=.99*ymax
74 IF (ymax .LT. 0.) ymax=.99*ymin
75 IF (ymax .EQ. 0.) ymax=1.e-3;ymin=-1.e-3
77 CALL pgenv(minval(x),maxval(x),ymin,ymax,0,1)
78 CALL pglab(trim(lx),trim(ly),trim(lt))
81 CALL pgmtxt(
'B',4.19,0.5,0.5,trim(runlbl))
90 SUBROUTINE graf1pt (x,y,n,lx,ly,lt,runlbl)
93 REAL,
DIMENSION(n),
INTENT(in) :: x, y
94 REAL :: ymin, ymax, siz
95 CHARACTER*(*) lx,ly,lt,runlbl
98 ymin=minval(y);ymax=maxval(y)
99 IF (ymax .EQ. ymin)
THEN
100 IF (ymax .GT. 0.) ymin=.99*ymax
101 IF (ymax .LT. 0.) ymax=.99*ymin
102 IF (ymax .EQ. 0.) ymax=1.e-3;ymin=-1.e-3
106 CALL pgswin(minval(x),maxval(x),ymin,ymax)
107 CALL pgbox(
'BCNT',0.,0,
'BCNTP1',0.,0)
108 CALL pglab(trim(lx),trim(ly),trim(lt))
111 CALL pgmtxt(
'B',4.19,0.5,0.5,trim(runlbl))
116 END SUBROUTINE graf1pt
117 SUBROUTINE graf2 (x,y,yfit,n,lx,ly,lt,runlbl)
121 REAL :: ymin, ymax, siz
122 REAL,
DIMENSION(n) :: x,y,yfit
123 CHARACTER*(*) lx,ly,lt,runlbl
127 ymin=min(minval(y),minval(yfit))
128 ymax=max(maxval(y),maxval(yfit))
129 IF (ymax .EQ. ymin)
THEN
130 IF (ymax .GT. 0.) ymin=.99*ymax
131 IF (ymax .LT. 0.) ymax=.99*ymin
132 IF (ymax .EQ. 0.) ymax=1.e-3;ymin=-1.e-3
134 CALL pgenv(minval(x),maxval(x),ymin,ymax,0,0)
135 CALL pglab(trim(lx),trim(ly),trim(lt))
138 CALL pgmtxt(
'B',4.19,0.5,0.5,trim(runlbl))
145 CALL pgline(n,x,yfit)
152 SUBROUTINE graf2pt (x1,x2,y1,y2,n,lx,ly1,ly2,lt,runlbl)
154 REAL,
DIMENSION(n),
INTENT(in) :: x1, x2, y1, y2
155 REAL :: ymin, ymax, siz
156 CHARACTER*(*) lx,ly1,ly2,lt,runlbl
160 xmin=minval(x1);xmax=maxval(x1)
161 xmin=min(xmin,minval(x2))
162 xmax=max(xmax,maxval(x2))
163 ymin=minval(y1);ymax=maxval(y1)
164 ymin=min(ymin,minval(y2))
165 ymax=max(ymax,maxval(y2))
166 IF (ymax .EQ. ymin)
THEN
167 IF (ymax .GT. 0.) ymin=.99*ymax
168 IF (ymax .LT. 0.) ymax=.99*ymin
169 IF (ymax .EQ. 0.) ymax=1.e-3;ymin=-1.e-3
173 CALL pgswin(xmin,xmax,ymin,ymax)
174 CALL pgbox(
'BCNT',0.,0,
'BCNTP',0.,0)
175 CALL pglab(trim(lx),trim(ly1//
" "//ly2),trim(lt))
177 CALL pgmtxt(
'T',.919,0.5,0.5,trim(runlbl))
191 END SUBROUTINE graf2pt
193 SUBROUTINE graf3pt (x,y1,y2,y3,n,lx,ly1,ly2,ly3,lt,runlbl)
195 REAL,
DIMENSION(n),
INTENT(in) :: x, y1, y2, y3
196 REAL :: ymin, ymax, siz
197 CHARACTER*(*) lx,ly1,ly2,ly3,lt,runlbl
200 ymin=minval(y1);ymax=maxval(y1)
201 ymin=min(ymin,minval(y2))
202 ymax=max(ymax,maxval(y2))
203 ymin=min(ymin,minval(y3))
204 ymax=max(ymax,maxval(y3))
205 IF (ymax .EQ. ymin)
THEN
206 IF (ymax .GT. 0.) ymin=.99*ymax
207 IF (ymax .LT. 0.) ymax=.99*ymin
208 IF (ymax .EQ. 0.) ymax=1.e-3;ymin=-1.e-3
210 CALL pgenv(minval(x),maxval(x),ymin,ymax,0,0)
211 CALL pglab(trim(lx),
' ',trim(lt))
214 CALL pgmtxt(
'B',4.19,0.5,0.5,trim(runlbl))
218 CALL pgmtxt(
'L',2.65,0.,0.,trim(ly1))
221 CALL pgmtxt(
'L',2.65,0.5,0.5,trim(ly2))
224 CALL pgmtxt(
'L',2.65,1.,1.,trim(ly3))
226 END SUBROUTINE graf3pt
228 SUBROUTINE graf2x (x,y,yfit,n,lx,lyl,lyr,lt,runlbl)
232 REAL :: ymin, ymax, dx, siz
233 REAL,
DIMENSION(n) :: x,y,yfit
234 CHARACTER*(*) lx,lyl,lyr,lt,runlbl
235 CHARACTER*8 xopt,yopt
237 IF (n .LT. 30)dx=x(2)-x(1)
243 CALL pgswin(minval(x),maxval(x),minval(y),maxval(y))
244 xopt=
'BCNST';yopt=
'B'
245 CALL pgbox(trim(xopt),0.,0,trim(yopt),0.,0)
246 CALL pglab(trim(lx),
' ',trim(lt))
249 CALL pgmtxt(
'B',4.19,0.5,0.5,trim(runlbl))
253 CALL pgbox(
' ',0.,0,trim(yopt),0.,0)
254 CALL pgmtxt(
'L',2.25,0.5,0.5,trim(lyl))
260 CALL pgswin(minval(x),maxval(x),minval(yfit),maxval(yfit))
261 CALL pgbox(
' ',0.,0,trim(yopt),0.,0)
262 CALL pgmtxt(
'R',2.25,0.5,0.5,trim(lyr))
265 CALL pgline(n,x,yfit)
268 END SUBROUTINE graf2x