7-Dec-1990 11:31:51	VAX FORTRAN V5.5-98                 Page   1
                                                                11-Jun-1990 17:00:47	DUA0:[GPLOT.SRC]GPLDEV.FOR;2                

0001    !+
0002    ! VERSION:	1-001
0003    !
0004    ! FACILITY:	GPLOT Graphics Library
0005    !
0006    ! ABSTRACT:	GPLDEV is a block data routine used to store graphics
0007    !		device information, so it will be easy to modify since
0008    !		it is site-dependent.
0009    !
0010    ! ENVIRONMENT:	
0011    !
0012    ! AUTHOR:	Thomas G. Worlton		CREATION DATE:	13-FEB-1990
0013    !		Argonne National Laboratory
0014    !
0015    ! MODIFIED BY:
0016    ! 1-001 - Original. TGW 13-FEB-1990
0017    !-
0018    !++
0019    !
0020    ! FUNCTIONAL DESCRIPTION:
0021    !
0022    !
0023    ! IMPLICIT INPUTS:
0024    !
0025    !       NONE
0026    !
0027    ! IMPLICIT OUTPUTS:
0028    !
0029    !       NONE
0030    !
0031    ! SIDE EFFECTS:
0032    !
0033    !       NONE
0034    !--
0035     
0036    	BLOCK DATA GPLDEV
0037    	DATA GFTYPE( 2)/'GKSM  '/
0038    	DATA GFTYPE( 7)/'CGM   '/
0039    	DATA GFTYPE(15)/'LCG01 '/
0040    	DATA GFTYPE(31)/'LA100 '/
0041    	DATA GFTYPE(32)/'LA50  '/
0042    	DATA GFTYPE(33)/'LA12  '/
0043    	DATA GFTYPE(34)/'LA210 '/
0044    	DATA GFTYPE(35)/'LA75  '/
0045    	DATA GFTYPE(38)/'LN03P '/
0046    	DATA GFTYPE(51)/'LVPA  '/
0047    	DATA GFTYPE(52)/'LVPB  '/
0048    	DATA GFTYPE(53)/'HP7550'/
0049    	DATA GFTYPE(54)/'HP7580'/
0050    	DATA GFTYPE(55)/'LGFILM'/
0051    	DATA GFTYPE(56)/'HP7585'/
0052    	DATA GFTYPE(61)/'PS    '/
0053    	DATA GFTYPE(70)/'TK4014'/
0054    	DATA GFTYPE(91)/'LJ250 '/
0055    	DATA GFTYPE(92)/'LJ25X '/
0056    	DATA GFTYPE(250)/'DDIF  '/
0057    	INCLUDE 'GPLOT_SRC:GPCOM1.INC'

GPLDEV                                                           7-Dec-1990 11:31:51	VAX FORTRAN V5.5-98                 Page   2
                                                                11-Jun-1990 17:00:47	DUA0:[GPLOT.SRC]GPLDEV.FOR;2                

0075    	END




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 GPCOM1                                3140   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  1 GPCOM2                                1500   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD

    Total Space Allocated                 4640


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name          

  0-00000008  CHAR COMPID          0-00000004  CHAR GKVER           0-00000000  I*4  NUMDEV        


RECORDS

    Address   Name          Structure           Bytes                 Address   Name          Structure           Bytes

  0-00000026  GDIO          GDEVICE                94               0-00000084  GDOUT         GDEVICE                94
  0-000000E2  GDWISS        GDEVICE                94             


ARRAYS

    Address  Type  Name                Bytes  Dimensions

  1-00000000  CHAR GFTYPE               1500  (250)


RECORD ARRAYS

    Address   Name          Structure           Bytes  Dimensions

  0-00000140  GDEV          GDEVICE              2820  (30)


COMMAND QUALIFIERS

  FORTRAN GPLOT_SRC:GPLDEV

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /DESIGN=(NOCOMMENTS,NOPLACEHOLDERS)
  /SHOW=(NODICTIONARY,NOINCLUDE,MAP,NOPREPROCESSOR,SINGLE)
  /STANDARD=(NOSEMANTIC,NOSOURCE_FORM,NOSYNTAX)
  /WARNINGS=(NODECLARATIONS,GENERAL,NOULTRIX,NOVAXELN)
  /CONTINUATIONS=19  /NOCROSS_REFERENCE  /NOD_LINES  /NOEXTEND_SOURCE
  /F77  /NOG_FLOATING  /I4  /NOMACHINE_CODE  /OPTIMIZE  /NOPARALLEL
  /NOANALYSIS_DATA

GPLDEV                                                           7-Dec-1990 11:31:51	VAX FORTRAN V5.5-98                 Page   3
01                                                              11-Jun-1990 17:00:47	DUA0:[GPLOT.SRC]GPLDEV.FOR;2                

  /NODIAGNOSTICS
  /LIST=DUA0:[GPLOT]GPLDEV.LIS;1                                                                            
  /OBJECT=DUA0:[GPLOT]GPLDEV.OBJ;2                                                                            


COMPILATION STATISTICS

  Run Time:           1.50 seconds
  Elapsed Time:       2.53 seconds
  Page Faults:        341
  Dynamic Memory:     316 pages