Name: GRQDEV Purpose: inquire current device Category: GRAPHICS File: pgplot.src Author: T.J. Pearson Use: see description below. Description: 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. Updates: Oct 16, 1998: JPT automatically extracted from source.