************************************************************************ macro epsopen file=paw.eps xsize=20.0 ysize=20.0 lun=99 ************************************************************************ glob/import PS_FILE,PS_LUN mess ************************************************************************** if ([PS_LUN].ne.'[PS_LUN]') then mess File "[PS_FILE]" already open! else glob/create PS_FILE [file] 'Filename for output' glob/create PS_LUN [lun] 'Indicator of output file opening' mess File: [file] Xsize: [xsize] cm Ysize: [ysize] cm LUN: [lun] size [xsize] [ysize] for/file [lun] [file] gr/meta [lun] -113 endif mess ************************************************************************** exitm ************************************************************************