%N grqdt %F $MIR/src/grqdt.f
%D Inquire current device and type
%B
      SUBROUTINE GRQDT (DEVICE)

 GRPCKG: obtain the name and type of the current graphics device.

 Argument:

 DEVICE (output, character): receives the device name and type of the
       currently active device in the form 'device/type'; this is a
       valid string for input to GROPEN.
