%N winsymb %F $MIR/src/subs/win.for
%D Return win2pgplot symbol marker
%P pjt
%: plotting, pgplot, user-interaction
%B
        integer function winsymb( i )
        implicit none
        integer i

   Input:
       i        integer        win symbol marker
   Output:
       winsymb  integer        pgplot symbol marker (0..31)
