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

    WinTShow 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.
    WinTShow 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.  If the input scaling factor,
    tfac, is non-zero, then the labels on the top axes will be drawn in
    HMS and the bottom axes in regular units.  The units are multiplied
    by tfac to convert to HMS units.  If the current box units are in
    decimal hours, then tfac should be set to 86400.  Compare the PGPLOT
    routines PGBOX and PGTBOX for more details.  If tfac=0, then the
    same units will be used to display the top and bottom of the boxes.

    The calling sequence of func() is:

               subroutine func(x, y)
               integer x, y

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