%N wintousr %F $MIR/src/subs/win.for
%D Convert a point to screen coordinates
%P pjt
%: plotting, pgplot, user-interaction
%B
        subroutine WinToUsr( x, y, px, py )
        implicit none
        real px, py
        integer x, y

    WinToUsr converts {xpos, ypos} from screen coordinates to user
    coordinates.
