%N grclos %F $MIR/src/grclos.f
%D Close graphics device
%B
      SUBROUTINE GRCLOS

 GRPCKG: Close the open plot on the current device. Any pending output
 is sent to the device, the device is released for other users or the
 disk file is closed, and no further plotting is allowed on the device
 without a new call to GROPEN.

 Arguments: none.
