%N winpick1 %F $MIR/src/subs/win.for
%D Set an active window
%P pjt
%: plotting, pgplot, user-interaction
%B
        subroutine WinPick1( X, Y )
        implicit none
        integer X, Y

    WinPick1 selects a particular plot, as in WinPick above.
