%N grqdev %F $MIR/src/grqdev.f
%D Inquire current device
%B
      SUBROUTINE GRQDEV (DEVICE, L)
      CHARACTER*(*) DEVICE
      INTEGER L

 Obtain the name of the current graphics device or file.

 Argument:
  DEVICE (output): receives the device name of the
       currently active device.
  L (output): number of characters in DEVICE, excluding trailing
       blanks.
