Name: GRQTYP Purpose: inquire current device type Category: GRAPHICS File: pgplot.src Author: T.J. Pearson Use: see description below. Description: SUBROUTINE GRQTYP (TYPE,INTER) CHARACTER*(*) TYPE LOGICAL INTER GRPCKG: obtain the device type of the currently selected graphics device, and determine whether or not it is an interactive device. Arguments: TYPE (output, CHARACTER*(*)): receives the device type, as a character string, eg 'PRINTRONIX', 'TRILOG', 'VERSATEC', 'TEK4010', 'TEK4014', 'GRINNELL', or 'VT125'. The character string should have a length of at least 8 to ensure that the type is unique. INTER (output, LOGICAL): receives the value .TRUE. if the device is interactive, .FALSE. otherwise. Updates: Oct 16, 1998: JPT document extracted from 5.2.0 source; Fortran source copied from GIPSY's v4.9E.