subroutine      PS_OUTPUT

c  This routine checks whether an output file is currently open; if not
c  it prompts you to open a postscript file.  If the file is currently
c  open, it closes it.

        implicit        NONE

c  common blocks

        Integer         idmeta
        logical         tekact, metact, filopn
        real            xmfact, ymfact
        common /HIMETA/ idmeta, xmfact, ymfact, tekact, metact, filopn

c  local variables

        character*80    outfile         / 'minuit_fit.ps' /
        integer         unit, len, kwtype
        logical         close_ps        / .true. /

c  begin

c  set output to give 1 by 1 division in nx,ny and portrait mode
c  with large margin at bottom of page.  (See IGMETA in HIGZ manual.)

        kwtype = -114

        if ( .not. filopn ) then

          call KUPROS ('PostScript file', outfile, len)
          open (unit = 10, file = outfile,
     1    status = 'unknown')

ccc  linux doesn't like this...
ccc     2    carriagecontrol = 'list')

          call IGMETA (10, kwtype)              ! output to PS and screen

        else

          call IGMETA (0, 0)                    ! output to PS and screen
          call ICLWK (idmeta)                   ! close workstation
          close (10)                            ! close file
          filopn = .false.

        endif

        return
        END