%N grdot1 %F $MIR/src/grdot1.f
%D Draw dots
%B
      SUBROUTINE GRDOT1(POINTS, X, Y)
      INTEGER POINTS
      REAL X(POINTS), Y(POINTS)

 GRPCKG (internal routine): Draw a set of dots.

 Arguments:

 POINTS (input, integer): the number of coordinate pairs.
 X, Y (input, real arrays, dimensioned POINTS or greater): the
       X and Y world coordinates of the points.
