3   common/imcom/ lu,npage  local
5   lu=80
6   open(lu,file=plotfile,status='unknown')
7   write(lu,1000) 
22   common/imcom/ lu,npage  local
60   common/imcom/ lu,npage  local
61   write(lu,1000)
63   close(lu)
68   common/imcom/ lu,npage  local
70   write(lu,1000) npage,npage
77   common/imcom/ lu,npage  local
78   write(lu,1000) 72.0*x,72.0*y,72.0*dx
85   common/imcom/ lu,npage  local
86   write(lu,1000) 72.0*x,72.0*y,72.0*dy
92   common/imcom/ lu,npage  local
93   write(lu,1000) width
100   common/imcom/ lu,npage  local
101   write(lu,1000) fontname,npoints
108   common/imcom/ lu,npage  local
109   write(lu,1000) 72.0*x,72.0*y,ndeg,string
111   if(just.eq.1) write(lu,*) 'rightshow'
112   if(just.eq.2) write(lu,*) 'centershow'
113   if(just.eq.3) write(lu,*) 'show'
114   write(lu,1010) -ndeg
122   common/imcom/ lu,npage  local
138   write(lu,1002) 72.0*x,72.0*y,72.0*dx,72.0*dy
140   write(lu,*) imax,jmax,8,' [',imax,0,0,jmax,0,0,']'
141   write(lu,*) '{<'
150      write(lu,1004) (idat(i),i=1,imax)
153   write(lu,*) '>} image'
154   write(lu,1006) 1.0/(72.0*dx),1.0/(72.0*dy),-72.0*x,-72.0*y
158      write(lu,1010) 72.0*x,72.0*y,72.0*dx,72.0*dy,-72*dx
170   common/imcom/ lu,npage  local
187   write(lu,1002) 72.0*x,72.0*y,72.0*dx,72.0*dy
189   write(lu,1003) imax,jmax,8,imax,0,0,jmax,0,0
191   write(lu,1004) imax
204      write(lu,1005) (idat(i,1),idat(i,2),idat(i,3),i=1,imax)
208   write(lu,1006) 1.0/(72.0*dx),1.0/(72.0*dy),-72.0*x,-72.0*y
212      write(lu,1010) 72.0*x,72.0*y,72.0*dx,72.0*dy,-72*dx
222   common/imcom/ lu,npage  local
241   write(lu,*) '1.416 setmiterlimit'
242   write(lu,1002) xoff+0.5*xscale,yoff+yscale*(p(1)-y1)
246      write(lu,1004) xoff+(i-0.5)*xscale,yoff+yscale*(p(i)-y1)
249   write(lu,*) 'stroke'
252      write(lu,1010) xoff,yoff,72.0*dx,72.0*dy,-72*dx
261   common/imcom/ lu,npage  local
262   write(lu,1000) 72*x1,72*y1,72*x2,72*y2
268   common/imcom/ lu,npage  local
269   write(lu,1000) shade
271   write(lu,1002) 72*x,72*y,72*radius
273   write(lu,1000) 0.0
274   write(lu,1004) 72*x,72*y,72*radius
280   common/imcom/ lu,npage  local
281   write(lu,1000) shade
283   write(lu,1002) 72*x,72*(y+rr)
285   write(lu,1004) 72*(x-rr),72*(y-rr)
287   write(lu,1004) 72*(x+rr),72*(y-rr)
288   write(lu,*) 'closepath fill 0 setgray'
289   write(lu,1002) 72*x,72*(y+rr)
290   write(lu,1004) 72*(x-rr),72*(y-rr)
291   write(lu,1004) 72*(x+rr),72*(y-rr)
292   write(lu,*) 'closepath stroke'
299   common/imcom/ lu,npage  local
319   write(lu,*) '1.416 setmiterlimit'
320   write(lu,1002) xoff+xscale*(x2-p(1)),yoff+0.5*yscale
324      write(lu,1004) xoff+xscale*(x2-p(j)),yoff+(j-0.5)*yscale
327   write(lu,*) 'stroke'
330      write(lu,1010) xoff,yoff,72.0*dx,72.0*dy,-72*dx