;
;-------------------------------------------------------------------
;
function psclose,flnm
set_plot,'ps'
on_ioerror,bad
device,/close_file
print,' '
print,'Closed postscript device file ',flnm
set_plot,'X'
return,0
;
bad:
print,' '
print,'>>> Error closing postscript device file '
print,'    IDL error msg: ',!err_string
set_plot,'X'
return,-1
end