%N grrec0 %F $MIR/src/grrec0.f
%D Fill a rectangle (device coordinates)
%B
      SUBROUTINE GRREC0 (X0,Y0,X1,Y1)
      REAL X0, Y0, X1, Y1

 GRPCKG: Fill a rectangle with solid color.  The rectangle
 is defined by the (x,y) device coordinates of its lower left and
 upper right corners; the edges are parallel to the coordinate axes.
 X0 is guaranteed to be <= X1 and Y0 <= Y1. The rectangle possible
 extends beyond the clipping boundaries

 Arguments:

 X0, Y0 (input, real): device coordinates of one corner of the 
       rectangle.
 X1, Y1 (input, real): device coordinates of the opposite corner of 
       the rectangle.
