************************************************************************ macro epsclose ************************************************************************ glob/import PS_FILE,PS_LUN mess ************************************************************************** if ([PS_LUN].ne.'[PS_LUN]') then close [PS_LUN] mess File "[PS_FILE]" closed. glob/del PS_FILE,PS_LUN else mess No open output file! endif mess ************************************************************************** exitm ************************************************************************