Документ взят из кэша поисковой машины. Адрес оригинального документа : http://www.atnf.csiro.au/computing/software/gipsy/sub/grqtyp.dc3 Дата изменения: Wed Oct 31 05:16:01 2001 Дата индексирования: Fri Jan 16 01:24:37 2009 Кодировка: Поисковые слова: http astrokuban.info astrokuban

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.