%N winshow %F $MIR/src/subs/win.for
%D Put the plots onto the screen
%P pjt
%: plotting, pgplot, user-interaction
%B
        SUBROUTINE winshow( xlabel, ylabel, title, func )
        IMPLICIT NONE
        CHARACTER*(*) xlabel(*), ylabel(*), title
        EXTERNAL      func

    WinShow shows the plot on the screen by setting up the appropriate
    PGPLOT coordinates and calling func() on each window.  Func() is a
    user supplied routine which should draw the contents of the plot.
    WinShow currently draws the box and labels, which are supplied in
    the arrays xlabel and ylabel.  The title is drawn in a smaller font
    so more information can be printed.

    The calling sequence of func is:

               subroutine func(x, y)
               integer x, y

    where the inputs (x,y) represent the panel to be plotted.
