; file: psplot_nextfile.idl = close old ps file and open new one
; last: Jun 29 2000
; note: first redefine filename; comment out when old filename holds

if (deviceloop gt 1) then begin
  device,/close
  print,'% Wrote PostScript file: ',psfilename
  set_plot,'ps'
  device,filename=psfilename,/portrait,xsize=xsizeps,ysize=ysizeps,$
     scale_factor=1., $ 
     xoff=xoffsetps,yoff=yoffsetps   ; do NOT use /encapsulated
endif
