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

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.