
                                                                13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page   1
                                                                28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

0002    !-------------------- Subroutines ENDPL, ENDGR, and COPYWISS -----------
0003    !
0004    !  FUNCTIONAL DESCRIPTION
0005    !
0006    !	These routines are used to end a plot frame.
0007    !	COPYWISS will copy a plot from Workstation Independent Segment
0008    !	Storage (WISS) to a PLOTTER.
0009    !
0010    !  AUTHOR:        T. G. Worlton
0011    !		  Argonne National Laboratory
0012    !
0013    !  CREATION DATE: July 30, 1987
0014    !
0015    !  MODIFICATIONS:
0016    !	14-JUL-1988 Added reset of integer axis numbering and axis angles
0017    !	13-OCT-1988 Changed READ(5,100) to ACCEPT 100, in ENDPL.
0018    !		    This allows a pause when data input is from unit 5.
0019    !	19-DEC-1988 Added reset of ISYM to 0 in ENDPL to reset marker
0020    !	17-MAR-1989 Added NMAP=0 in ENDPL, to fix error after 20 plots
0021    !	 2-OCT-1989 Added reset of Line type in ENDPL
0022    !
0023    !  SIDE EFFECTS:  NONE
0024    !
0025    !--
0026    C	SUBROUTINE ENDPL(IPLOT,PAUSIN,CLEARIN)
0027    	SUBROUTINE ENDPL(IPLOT)
0028    !++ Subroutine ENDPL updates and clears any active workstations
0029    !	If the argument IPLOT is .ne. 0, a label is written on the plot
0030    !	It also resets some constants to their initial values
0031    !
0032    C!	If PAUSIN is .TRUE. or is absent, there will be a pause
0033    C!	to wait for a RETURN on interactive devices, and if no hardcopy
0034    C!	device is open to prompt for creating a hardcopy.
0035    C!	If CLEARIN is .TRUE. or is absent, The screen will be cleared
0036    C!	after the plot is completed.
0037    !
0038    !	There will be a pause to wait for a RETURN on interactive devices.
0039    !
0040    !	If no hardcopy device is active and WISS is active, there will be
0041    !	a prompt for creating a hardcopy.
0042    !
0043    !	The screen will be cleared after the plot is completed.
0044    !
0045    !--
0046    	INCLUDE 'SYS$LIBRARY:GKSDEFS.BND'
0499    	INCLUDE 'GPLOT_SRC:GPCOM1.INC'
0517    	INCLUDE 'GPLOT_SRC:GKI.INC'
0524    	INCLUDE 'GPLOT_SRC:GKA.INC'
0536    	INCLUDE 'GPLOT_SRC:GKALF.INC'
0547    	INCLUDE 'GPLOT_SRC:GKG.INC'
0559    	INCLUDE 'GPLOT_SRC:GKU.INC'
0565    	INCLUDE 'GPLOT_SRC:Gplot_3d.INC'
0682    	CHARACTER*23 CDATE,DMESS*80,USER*12,IMAGE*40,IFMETA*1
0683    	CHARACTER*80 COMMAND,PLTFILE,PLTDEV,RESULT,RELATED
0684    	INTEGER LBUG,CONTEXT
0685    	LOGICAL PAUSIN,CLEARIN,PAUSE,CLEAR,IFOPEN,EXISTS

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page   2
                                                                28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

0686    	LOGICAL METAPLOT,IFIO,IFOUT,IFHARD,WISSON
0687    	REAL RWIND(4),CWIND(4),RVIEW(4),CVIEW(4)
0688    	EXTERNAL RMS$_NMF,RMS$_EOF
0689    	INTEGER*4 STATUS, RMS$_NMF,RMS$_EOF
0690     
0691    C	CALL GETNARG(NARG)
0692 C  D	WRITE(8,*) '------------------ ENDPL ------------------- '
0693    CD	WRITE(8,*) 'Called with ',NARG,' arguments.'
0694    C	IF(NARG .EQ. 3) THEN
0695    C	  PAUSE = PAUSIN
0696    C	  CLEAR = CLEARIN
0697    C	ELSE IF(NARG .EQ. 2) THEN
0698    C	  CLEAR = .TRUE.
0699    C	  PAUSE = PAUSIN
0700    C	ELSE IF(NARG .EQ. 1) THEN
0701    	  CLEAR = .TRUE.
0702    	  PAUSE = .TRUE.
0703    C	END IF
0704    C	IF (NARG .GE. 1) THEN
0705    	  IF(IPLOT .NE. 0) THEN	! Label plot with image name, date
0706    	    CALL DATE(CDATE)
0707    	    CDATE(10:10) = ' '
0708    	    CALL TIME(CDATE(11:))
0709    	    CALL GET_IMAGE_NAME(IMAGE,LIMAGE)
0710    	    CALL ANGLE(90.)
0711    	    WRITE(DMESS,110) CDATE(1:17),IMAGE(1:LIMAGE),IPLOT
0712    110	FORMAT(A,'  ',A,'_Plot No.',I3)
0713    	    CALL STR_TRIM(DMESS,DMESS,LDMESS)
0714    	    CALL RESET('HEIGHT')
0715    	    CALL QHITE(THITE)
0716    	    THITE = 0.6*THITE
0717    	    CALL HEIGHT(THITE)
0718    	    CALL GSELNT(TRPAGE)
0719    	    XPOS = 1.5*THITE
0720    	    YPOS = THITE
0721    	    CALL CHRMSG(XPOS,YPOS,DMESS(:LDMESS))
0722    	    CALL RESET('HEIGHT')
0723    	  END IF
0724    C	END IF
0725    CD	WRITE(8,*) 'ENDPL IPLOT,PAUSE,CLEAR=',IPLOT,PAUSE,CLEAR
0726     
0727    !	Reset some constants in the GPLOT include files
0728    	ISYM = 0
0729    	ICURV = 0
0730    	XMAX = 0.0
0731    	YMAX = 0.0
0732    	XORIG = 0.0
0733    	YORIG = 0.0
0734    	XCYCLE = 0.0
0735    	YCYCLE = 0.0
0736    	ORSET = .FALSE.
0737    	CALL ANGLE(0.0)
0738    C	CALL XNMADJ('FIRST')
0739    C	CALL YNMADJ('FIRST')
0740    C	CALL XAXANG(0.0)
0741    C	CALL YAXANG(90.0)
0742    C	XTKIN = .TRUE.

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page   3
                                                                28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

0743    C	YTKIN = .TRUE.
0744    C	XLBREV = .FALSE.
0745    C	YLBREV = .FALSE.
0746    	INTX = .FALSE.
0747    	INTY = .FALSE.
0748    C	NOYFST = .FALSE.
0749    C	NOYLST = .FALSE.
0750    C	NOXFST = .FALSE.
0751    C	NOXLST = .FALSE.
0752    	YLBTYP = 'REAL'
0753    	XLBTYP = 'REAL'
0754    	CALL SOLID
0755    	YANG3D = 0.0
0756    	NMAP = 0
0757     
0758    !	See if any workstations are active
0759    	CALL GQOPS(ISTATE)
0760    	IF(ISTATE .EQ. GSGOP) THEN
0761    	    CALL GCLSG()
0762    	    CALL GQOPS(ISTATE)
0763    	END IF
0764    	IF(ISTATE .NE. GWSAC) THEN
0765    	    WRITE(6,*) 'ENDPL called with no active workstations'
0766    	    RETURN
0767    	END IF
0768     
0769    !	Find number of active workstations
0770    	CALL GQACWK(IW,IERR,NACTV,LWKACT)
0771 C  D	WRITE(8,*) 'NUMBER OF ACTIVE WORKSTATIONS =',NACTV
0772    	WISSON = .FALSE.
0773    	IW = 1
0774    	DO WHILE (IW .LE. NACTV)
0775    	  CALL GQWKC(IW,IERR,ICONID,WKTYPE)	! Find WS type
0776 C  D	WRITE(8,*) 'IW,WKTYPE,GWSWIS=',IW,WKTYPE,GWSWIS
0777    	  IF(WKTYPE .EQ. GWSWIS) WISSON = .TRUE.
0778    	  IW = IW + 1
0779    	END DO
0780 C  D	WRITE(8,*) 'WISSON=',WISSON
0781    !	See if PLOTTER Logical Name is defined
0782    	CALL TRANSLATE_LOGICAL('PLOTTER',LPD,PLTDEV)
0783     
0784    !	Update and clear any active workstations
0785    	CALL GQACWK(1,IERR,NACTV,LWKACT)	! Find NACTV
0786    	IW = 1
0787    	DO WHILE (IW .LE. NACTV)
0788    	  CALL GQACWK(IW,IERR,NACTV,WKID)	! Find WKID
0789    	  CALL GQWKC(WKID,IERR,ICONID,WKTYPE)	! Find WS type
0790    	  CALL GQWKCA(WKTYPE,IERR,ICAT)	! Find WS Category
0791 C  D	WRITE(8,*) 'WKID,WKTYPE,ICAT=',WKID,WKTYPE,ICAT
0792    	  IF(ICAT .EQ. GOUTIN) THEN	! Allow user to study plot
0793    	    CALL GUWK(WKID,GPOSTP) 	! before clearing.
0794     
0795    	    IF(PAUSE) THEN
0796    	      ACCEPT 100,NCHAR,COMMAND	! Read to cause pause.
0797    100	FORMAT(Q,A)
0798    	      CALL GUWK(WKID,GPOSTP)
0799    	    END IF

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page   4
                                                                28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

0800    	    IF(WISSON .AND. GDOUT.TYPE .EQ. 0)  THEN ! WISS is available
0801    	      CALL GPUSH
0802    	      WRITE(6,105)
0803    105	      FORMAT('$Make hardcopy of this frame (Y/N [N])?:')
0804    	      ACCEPT 100,NCHAR,COMMAND
0805    	      CALL STR_UPCASE(COMMAND,COMMAND)
0806    	      IF(COMMAND(1:1) .EQ. 'Y' ) THEN	! Copy to plotter
0807    		CALL COPYWISS
0808    	      END IF
0809    	    END IF
0810    	  END IF
0811     
0812    	  CALL GQOPS(ISTATE)
0813    	  IF(CLEAR .AND. ISTATE .EQ. GWSAC) THEN
0814 C  D	WRITE(8,*) 'Clearing workstation',IW,', flag ',GALWAY
0815    	      CALL GCLRWK(IW,GALWAY)	! Clear to prepare for next plot
0816    CD	WRITE(8,*) 'Updating workstation',IW,', flag ',GPERFO
0817    C	      CALL GUWK(IW,GPerfo)
0818    	  END IF
0819     
0820    	  IW = IW + 1
0821    	END DO
0822     
0823    	IF(IWISS .GT. 0) THEN
0824    	    CALL GQWKS(IWISS,IERR,ISTATE)
0825    	    IF(ISTATE .EQ. GACTIV) THEN
0826    	        CALL GDAWK(IWISS)
0827    	    END IF
0828    	    CALL GCLWK(IWISS)
0829    	END IF
0830     
0831    	IF(CLEAR) THEN
0832    !	Delete any segments created
0833    	  CALL GQSGUS(1,IERR,NUMSEG,NAMSEG)
0834    	  ISEG = NUMSEG
0835    	  DO WHILE (NUMSEG .GT. 0)
0836 C  D	WRITE(8,*) 'DELETING SEGMENT',NAMSEG
0837    	    CALL GDSG(NAMSEG)
0838    	    ISEG = ISEG - 1
0839    	    CALL GQSGUS(ISEG,IERR,NUMSEG,NAMSEG)
0840    	  END DO
0841    	END IF
0842     
0843    	RETURN
0844     
0845    	ENTRY ENDGR(IPLOT)
0846 C  D	WRITE(8,*) ' '
0847 C  D	WRITE(8,*) '----------------ENDGR--------------'
0848    !	ZERO SOME CONSTANTS
0849    	ISYM = 0
0850    	ICURV = 0
0851    	XMAX = 0.0
0852    	YMAX = 0.0
0853    	XORIG = 0.0
0854    	YORIG = 0.0
0855    	XCYCLE = 0.0
0856    	YCYCLE = 0.0

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page   5
                                                                28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

0857    	CALL GSELNT(0)
0858    	CALL NOBRDR
0859    	RETURN
0860     
0861    	END




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  903   PIC CON REL LCL   SHR   EXE   RD NOWRT QUAD
  1 $PDATA                                 137   PIC CON REL LCL   SHR NOEXE   RD NOWRT QUAD
  2 $LOCAL                                 992   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD
  3 GPCOM1                                3140   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  4 GPCOM2                                1500   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  5 GKI                                     76   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  6 GKIO                                     8   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  7 GKA                                    156   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  8 GKALF                                  930   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  9 GKG                                    696   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
 10 GKU                                   2432   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
 11 GPLOT_3D                               228   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
 12 AXIS_ATTRIBUTES_3D                    1504   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD

    Total Space Allocated                12702


ENTRY POINTS

    Address  Type  Name              Address  Type  Name          

  0-0000033D       ENDGR           0-00000000       ENDPL         


VARIABLES

    Address  Type  Name                                               Address  Type  Name                            

 11-0000005C  R*4  ALASTCOLY                                       11-00000054  R*4  ALASTROWX                       
  8-0000001C  CHAR ALFSW                                            7-00000098  R*4  ANGSAV                          
  9-000002A0  R*4  BARWTH                                           2-00000040  CHAR CDATE                           
      **      L*4  CLEAR                                                **      L*4  CLEARIN                         
  2-000000CF  CHAR COMMAND                                          3-00000008  CHAR COMPID                          
  5-0000000C  CHAR CONLOG                                               **      I*4  CONTEXT                         
 11-0000002C  R*4  COPX                                            11-00000030  R*4  COPY                            
 11-00000034  R*4  COPZ                                             7-00000038  R*4  CTHICK                          
  7-00000068  L*4  CTRXLB                                           7-0000006C  L*4  CTRYLB                          
 12-00000010  L*4  CTRZLB                                           2-00000057  CHAR DMESS                           
  5-00000040  R*4  DVMKSC                                           8-00000052  R*4  EHITE                           
      **      I*4  EMBINY                                           8-000002D2  CHAR ENDSTR                          
  6-00000000  I*4  ERUNIT                                               **      L*4  EXISTS                          
 11-00000058  R*4  FIRSTCOLY                                       11-00000050  R*4  FIRSTROWX                       
  8-0000003A  I*4  FONTID                                           8-0000003E  I*4  FPREC                           
      **      I*4  GABASE                                               **      I*4  GABOTT                          

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page   6
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

      **      I*4  GABSNT                                               **      I*4  GACAP                           
      **      I*4  GACENT                                           2-00000184  I*4  GACTIV                          
      **      I*4  GAHALF                                               **      I*4  GAHNOR                          
      **      I*4  GALEFT                                               **      I*4  GALLOW                          
  2-00000170  I*4  GALWAY                                               **      I*4  GARITE                          
      **      I*4  GASAP                                                **      I*4  GAST                            
      **      I*4  GASTI                                                **      I*4  GATCHRD                         
      **      I*4  GATOP                                                **      I*4  GATOPN                          
      **      I*4  GATPIE                                               **      I*4  GAVNOR                          
      **      I*4  GBNIG                                                **      I*4  GBNIL                           
      **      I*4  GBUNDL                                               **      I*4  GCGMO                           
      **      I*4  GCHARP                                               **      I*4  GCHOIC                          
      **      I*4  GCLIP                                                **      I*4  GCMPHY                          
      **      I*4  GCMVIR                                               **      I*4  GCOLOR                          
      **      I*4  GCONDI                                               **      I*4  GCONID                          
      **      I*4  GCPTSC                                               **      I*4  GCURNT                          
      **      I*4  GDDIF                                                **      I*4  GDECW                           
      **      I*4  GDECWD                                               **      I*4  GDECWO                          
      **      I*4  GDECWW                                               **      I*4  GDETEC                          
      **      I*4  GDOWN                                                **      I*4  GDP144                          
      **      I*4  GDP180                                               **      I*4  GDP72                           
      **      I*4  GDP90                                                **      I*4  GEAWC                           
      **      I*4  GEB                                                  **      I*4  GEBTB                           
      **      I*4  GECHO                                                **      I*4  GECI                            
      **      I*4  GECR                                                 **      I*4  GEDASD                          
      **      I*4  GEDASH                                               **      I*4  GEDBDT                          
      **      I*4  GEDOT                                                **      I*4  GEDRG                           
      **      I*4  GEDS2D                                               **      I*4  GEDS3D                          
      **      I*4  GEETB                                                **      I*4  GEIBGM                          
      **      I*4  GEIC                                                 **      I*4  GEICS                           
      **      I*4  GEIDBM                                               **      I*4  GEIDS                           
      **      I*4  GEIEA                                                **      I*4  GEIEF                           
      **      I*4  GEIFNF                                               **      I*4  GEIGEX                          
      **      I*4  GEIHM                                                **      I*4  GEILC                           
      **      I*4  GEILCJ                                               **      I*4  GEILE                           
      **      I*4  GEILEI                                               **      I*4  GEILFN                          
      **      I*4  GEILH                                                **      I*4  GEILJ                           
      **      I*4  GEIMBI                                               **      I*4  GEIMEB                          
      **      I*4  GEIPBI                                               **      I*4  GEIPER                          
      **      I*4  GEIS                                                 **      I*4  GEISE                           
      **      I*4  GEISHI                                               **      I*4  GEISHM                          
      **      I*4  GEIVD                                                **      I*4  GEIWID                          
      **      I*4  GEIWM                                                **      I*4  GELGDS                          
      **      I*4  GELSDS                                               **      I*4  GEMDN                           
      **      I*4  GEMND                                                **      I*4  GEMNW                           
      **      I*4  GEMPTY                                               **      I*4  GEMWN                           
      **      I*4  GEP                                                  **      I*4  GEPCM                           
      **      I*4  GEPOPW                                               **      I*4  GEPSHW                          
      **      I*4  GEPV                                                 **      I*4  GERROF                          
      **      I*4  GERRON                                               **      I*4  GERSRG                          
      **      I*4  GESBPM                                               **      I*4  GESCL                           
      **      I*4  GESCS                                                **      I*4  GESCU                           
      **      I*4  GESDB                                                **      I*4  GESEA                           
      **      I*4  GESEC                                                **      I*4  GESECI                          
      **      I*4  GESEHM                                               **      I*4  GESEI                           
      **      I*4  GESER                                                **      I*4  GESES                           
      **      I*4  GESET                                                **      I*4  GESEW                           

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page   7
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

      **      I*4  GESFN                                                **      I*4  GESHM                           
      **      I*4  GESIB                                                **      I*4  GESLC                           
      **      I*4  GESLJ                                                **      I*4  GESOL                           
      **      I*4  GESP                                                 **      I*4  GESPDS                          
      **      I*4  GESPDT                                               **      I*4  GESRS                           
      **      I*4  GESSHM                                               **      I*4  GESVE                           
      **      I*4  GESVRG                                               **      I*4  GESWM                           
      **      I*4  GESWT                                                **      I*4  GETPDT                          
      **      I*4  GEVENT                                               **      I*4  GFAATT                          
      **      I*4  GFILLA                                               **      I*4  GGA2PR                          
      **      I*4  GGA3P                                                **      I*4  GGAC2P                          
      **      I*4  GGACPA                                               **      I*4  GGACRA                          
      **      I*4  GGACVR                                               **      I*4  GGBES                           
      **      I*4  GGBS                                                 **      I*4  GGC2PR                          
      **      I*4  GGC3P                                                **      I*4  GGCCP                           
      **      I*4  GGCCR                                                **      I*4  GGCP                            
      **      I*4  GGDISP                                               **      I*4  GGEACA                          
      **      I*4  GGEACP                                               **      I*4  GGEAFP                          
      **      I*4  GGEC3P                                               **      I*4  GGECA                           
      **      I*4  GGEFP                                                **      I*4  GGFA3P                          
      **      I*4  GGFACA                                               **      I*4  GGFACP                          
      **      I*4  GGFACR                                               **      I*4  GGFACV                          
      **      I*4  GGFAPR                                               **      I*4  GGFAS                           
      **      I*4  GGFC3P                                               **      I*4  GGFCCP                          
      **      I*4  GGFCCR                                               **      I*4  GGFCPR                          
      **      I*4  GGFEACA                                              **      I*4  GGFEAF                          
      **      I*4  GGFEAP                                               **      I*4  GGFECA                          
      **      I*4  GGFECP                                               **      I*4  GGFEFP                          
      **      I*4  GGFR2P                                               **      I*4  GGFRCW                          
      **      I*4  GGHAFP                                               **      I*4  GGHCP                           
      **      I*4  GGHCR                                                **      I*4  GGHFP                           
      **      I*4  GGHPCP                                               **      I*4  GGIA                            
      **      I*4  GGKCL                                                **      I*4  GGKOP                           
      **      I*4  GGPAFP                                               **      I*4  GGPF2P                          
      **      I*4  GGPFV                                                **      I*4  GGR2P                           
      **      I*4  GGRCWH                                               **      I*4  GGRT                            
      **      I*4  GGSCP                                                **      I*4  GH7585                          
      **      I*4  GHATCH                                               **      I*4  GHIGHR                          
      **      I*4  GHILIT                                               **      I*4  GHMCOL                          
      **      I*4  GHMCOM                                               **      I*4  GHMDEF                          
      **      I*4  GHMDUA                                               **      I*4  GHMFIL                          
      **      I*4  GHMLIN                                               **      I*4  GHOLLO                          
      **      I*4  GHP747                                               **      I*4  GHP755                          
      **      I*4  GHP758                                               **      I*4  GIMM                            
      **      I*4  GINACT                                               **      I*4  GINDIV                          
      **      I*4  GINPUT                                               **      I*4  GINVIS                          
      **      I*4  GIRG                                             3-00000004  CHAR GKVER                           
      **      I*4  GL0A                                                 **      I*4  GL0B                            
      **      I*4  GL0C                                                 **      I*4  GL1A                            
      **      I*4  GL1B                                                 **      I*4  GL1C                            
      **      I*4  GL2A                                                 **      I*4  GL2B                            
      **      I*4  GL2C                                                 **      I*4  GLA100                          
      **      I*4  GLA12                                                **      I*4  GLA210                          
      **      I*4  GLA34                                                **      I*4  GLA50                           
      **      I*4  GLA75                                                **      I*4  GLCBUT                          
      **      I*4  GLCG01                                               **      I*4  GLCNTR                          
      **      I*4  GLCP01                                               **      I*4  GLCRND                          

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page   8
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

      **      I*4  GLCSQR                                               **      I*4  GLDASD                          
      **      I*4  GLDASH                                               **      I*4  GLDBDT                          
      **      I*4  GLDOT                                                **      I*4  GLDS2D                          
      **      I*4  GLDS3D                                               **      I*4  GLDSCP                          
      **      I*4  GLEFT                                                **      I*4  GLGMPS                          
      **      I*4  GLJ250                                               **      I*4  GLJ25X                          
      **      I*4  GLJBVL                                               **      I*4  GLJMTR                          
      **      I*4  GLJRND                                               **      I*4  GLLGDS                          
      **      I*4  GLLSDS                                               **      I*4  GLMA                            
      **      I*4  GLMB                                                 **      I*4  GLMC                            
      **      I*4  GLN03P                                               **      I*4  GLOCAT                          
      **      I*4  GLOWER                                               **      I*4  GLPHTM                          
      **      I*4  GLSOLI                                               **      I*4  GLSPDS                          
      **      I*4  GLSPDT                                               **      I*4  GLTPDT                          
      **      I*4  GLVPA                                                **      I*4  GLVPB                           
      **      I*4  GMBT                                                 **      I*4  GMCHAR                          
      **      I*4  GMCLTX                                               **      I*4  GMDIA                           
      **      I*4  GMETRE                                               **      I*4  GMHG                            
      **      I*4  GMI                                                  **      I*4  GMINPT                          
      **      I*4  GMNPTR                                               **      I*4  GMO                             
      **      I*4  GMONOC                                               **      I*4  GMORE                           
      **      I*4  GMOUTP                                               **      I*4  GMSBT                           
      **      I*4  GMSCIR                                               **      I*4  GMSDIA                          
      **      I*4  GMSHG                                                **      I*4  GMSQ                            
      **      I*4  GMSSQ                                                **      I*4  GMSTRD                          
      **      I*4  GMSTRU                                               **      I*4  GMTRD                           
      **      I*4  GMTRU                                                **      I*4  GMV125                          
      **      I*4  GMV12B                                               **      I*4  GMV240                          
      **      I*4  GMV24B                                               **      I*4  GMV330                          
      **      I*4  GMV340                                               **      I*4  GNCHOI                          
      **      I*4  GNCLAS                                               **      I*4  GNCLIP                          
      **      I*4  GNDC                                                 **      I*4  GNECHO                          
      **      I*4  GNEMPT                                               **      I*4  GNMORE                          
      **      I*4  GNO                                                  **      I*4  GNONE                           
      **      I*4  GNORML                                               **      I*4  GNPEND                          
      **      I*4  GNPICK                                               **      I*4  GOK                             
      **      I*4  GOMARK                                               **      I*4  GOTHU                           
      **      I*4  GOTHWK                                           2-00000180  I*4  GOUTIN                          
      **      I*4  GOUTPT                                               **      I*4  GPATTR                          
      **      I*4  GPEND                                                **      I*4  GPERFO                          
      **      I*4  GPICK                                                **      I*4  GPLATT                          
      **      I*4  GPLINE                                               **      I*4  GPLUS                           
      **      I*4  GPMATT                                               **      I*4  GPOINT                          
  2-0000017C  I*4  GPOSTP                                               **      I*4  GPROFF                          
      **      I*4  GPRON                                                **      I*4  GPRSNT                          
      **      I*4  GPRTRT                                               **      I*4  GPTSC                           
  7-0000003C  R*4  GRACEM                                          11-00000028  L*4  GRAF3DSETCOP                    
 11-00000038  L*4  GRAF3DSETVRP                                    11-0000000C  L*4  GRAFSETWORKBOX                  
      **      I*4  GRASTR                                               **      I*4  GREALI                          
      **      I*4  GREQU                                                **      I*4  GRIGHT                          
      **      I*4  GSAMPL                                               **      I*4  GSET                            
  2-00000178  I*4  GSGOP                                                **      I*4  GSIZA                           
      **      I*4  GSIZA0                                               **      I*4  GSIZA1                          
      **      I*4  GSIZA2                                               **      I*4  GSIZA3                          
      **      I*4  GSIZA4                                               **      I*4  GSIZA5                          
      **      I*4  GSIZB                                                **      I*4  GSIZB4                          
      **      I*4  GSIZB5                                               **      I*4  GSIZC                           

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page   9
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

      **      I*4  GSIZD                                                **      I*4  GSIZE                           
      **      I*4  GSIZLG                                               **      I*4  GSOLID                          
      **      I*4  GSPEC                                                **      I*4  GSTRIN                          
      **      I*4  GSTRKP                                               **      I*4  GSTROK                          
      **      I*4  GSTRP                                                **      I*4  GSUPPD                          
      **      I*4  GT128O                                               **      I*4  GT129O                          
      **      I*4  GT207O                                               **      I*4  GT4014                          
      **      I*4  GT4107                                               **      I*4  GT4128                          
      **      I*4  GT4129                                               **      I*4  GT41O                           
      **      I*4  GT4207                                               **      I*4  GTEKO                           
      **      I*4  GTXATT                                               **      I*4  GUNDET                          
      **      I*4  GUP                                                  **      I*4  GV125B                          
      **      I*4  GV125C                                               **      I*4  GV2000                          
      **      I*4  GV240B                                               **      I*4  GV240C                          
      **      I*4  GV3200                                               **      I*4  GV330                           
      **      I*4  GV340                                                **      I*4  GV3500                          
      **      I*4  GVALUA                                               **      I*4  GVECTR                          
      **      I*4  GVIEW                                                **      I*4  GVISI                           
      **      I*4  GVS500                                               **      I*4  GVS5O                           
      **      I*4  GVSGPX                                               **      I*4  GVSII                           
      **      I*4  GVTCMR                                               **      I*4  GVTO                            
      **      I*4  GWC                                                  **      I*4  GWISS                           
      **      I*4  GWMCMT                                               **      I*4  GWMERS                          
      **      I*4  GWMOVY                                           2-00000174  I*4  GWSAC                           
      **      I*4  GWSDEF                                               **      I*4  GWSOP                           
  2-00000188  I*4  GWSWIS                                               **      I*4  GXMARK                          
      **      I*4  GYES                                             8-00000042  R*4  HITE                            
  8-0000004E  R*4  HITEM                                            2-000001C0  I*4  ICAT                            
  2-000001B8  I*4  ICONID                                           8-0000004A  I*4  ICURV                           
  2-000001AC  I*4  IERR                                             7-00000050  I*4  IFCHEK                          
      **      L*4  IFHARD                                               **      L*4  IFIO                            
      **      CHAR IFMETA                                               **      L*4  IFOPEN                          
      **      L*4  IFOUT                                                **      I*4  ILINE                           
  2-000000A7  CHAR IMAGE                                            7-0000007C  L*4  INTX                            
  7-00000060  L*4  INTY                                             9-00000010  I*4  IPIC                            
 AP-00000004@ I*4  IPLOT                                            2-000001D4  I*4  ISEG                            
  2-000001A4  I*4  ISTATE                                           8-00000046  I*4  ISYM                            
  2-000001A8  I*4  IW                                               2-000001C8  I*4  IWISS                           
 10-000004B4  I*4  IXARAY                                           9-00000284  I*4  IXNAME                          
 10-000004B8  I*4  IXTOT                                           10-00000974  I*4  IYARAY                          
  9-00000288  I*4  IYNAME                                          10-00000978  I*4  IYTOT                           
 12-00000024  I*4  IZTOT                                            9-00000028  I*4  KOLOR                           
      **      I*4  LBUG                                             5-00000008  I*4  LCONLOG                         
  2-00000194  I*4  LDMESS                                           8-000002CE  I*4  LENEND                          
  2-00000190  I*4  LIMAGE                                           8-000002AE  L*4  LOWER_CASE                      
  2-000001BC  I*4  LPD                                              9-00000014  I*4  LTYPE                           
  2-000001B4  I*4  LWKACT                                           9-0000002C  CHAR LXNAME                          
  9-00000158  CHAR LYNAME                                               **      L*4  METAPLOT                        
  2-000001B0  I*4  NACTV                                            8-00000000  I*4  NALF                            
  2-000001D0  I*4  NAMSEG                                           2-000001C4  I*4  NCHAR                           
  5-00000048  I*4  NMAP                                             7-00000074  L*4  NOXFST                          
  7-00000078  L*4  NOXLST                                           7-00000058  L*4  NOYFST                          
  7-0000005C  L*4  NOYLST                                          12-00000014  L*4  NOZFST                          
 12-00000018  L*4  NOZLST                                          12-000005C8  I*4  NSMALLXTICKS                    
 12-000005CC  I*4  NSMALLYTICKS                                    12-000005D0  I*4  NSMALLZTICKS                    
  9-00000298  I*4  NTERP                                            3-00000000  I*4  NUMDEV                          
  2-000001CC  I*4  NUMSEG                                           5-00000000  I*4  NWKST                           

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page  10
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

  7-00000094  L*4  ORSET                                            7-00000000  R*4  PAGEX                           
  7-00000004  R*4  PAGEY                                                **      L*4  PAUSE                           
      **      L*4  PAUSIN                                           5-00000044  R*4  PGMKSC                          
 11-00000064  R*4  PHIVIEWANGLE                                     8-000002CA  R*4  PICFAC                          
  2-0000011F  CHAR PLTDEV                                               **      CHAR PLTFILE                         
  7-00000018  R*4  PSCALE                                               **      CHAR RELATED                         
      **      CHAR RESULT                                           9-00000024  R*4  RSTEP                           
 11-00000014  R*4  SCALEXMAX                                       11-00000010  R*4  SCALEXMIN                       
 11-0000001C  R*4  SCALEYMAX                                       11-00000018  R*4  SCALEYMIN                       
 11-00000024  R*4  SCALEZMAX                                       11-00000020  R*4  SCALEZMIN                       
  7-0000008C  R*4  SCFACT                                           5-0000003C  R*4  SCMARK                          
  6-00000004  I*4  SMUNIT                                               **      I*4  STATUS                          
 11-0000004C  L*4  SURSZECALLED                                     9-0000029C  R*4  TENSN                           
  9-00000020  R*4  THEFAC                                          11-00000068  R*4  THETAVIEWANGLE                  
  2-00000198  R*4  THITE                                            7-00000070  L*4  TICX                            
  7-00000054  L*4  TICY                                             9-0000028C  L*4  TRANON                          
  7-00000024  I*4  TRDATA                                           7-0000001C  I*4  TRPAGE                          
  7-00000020  I*4  TRSBPL                                               **      CHAR USER                            
 11-0000003C  L*4  USERSETVRP                                      11-00000060  L*4  VIEWANGLESET                    
 11-00000040  R*4  VRPX                                            11-00000044  R*4  VRPY                            
 11-00000048  R*4  VRPZ                                             7-00000090  R*4  VTHICK                          
  7-00000040  R*4  VX0                                              7-00000084  R*4  VX1                             
  7-00000044  R*4  VXM                                              7-00000048  R*4  VY0                             
  7-00000088  R*4  VY1                                              7-0000004C  R*4  VYM                             
      **      L*4  WISSON                                           5-00000038  I*4  WKHARD                          
  2-0000018C  I*4  WKID                                             5-00000004  I*4  WKTYPE                          
  5-00000034  I*4  WKWISS                                          11-00000000  R*4  WORKBOXX                        
 11-00000004  R*4  WORKBOXY                                        11-00000008  R*4  WORKBOXZ                        
 12-000005D4  R*4  XANG3D                                           7-00000010  R*4  XAXIS                           
 12-000004D8  CHAR XAXISNAME                                        9-00000018  R*4  XCYCLE                          
  7-00000030  R*4  XDATIN                                           9-000002AC  L*4  XLBREV                          
 10-00000000  CHAR XLBTYP                                          10-000004BC  I*4  XLLONG                          
  9-00000004  R*4  XMAX                                             7-00000080  L*4  XNUM                            
  9-00000000  R*4  XORIG                                            7-00000008  R*4  XPHYS                           
  2-0000019C  R*4  XPOS                                            12-00000000  R*4  XSTEP                           
  9-00000290  R*4  XSTP                                             9-000002A8  L*4  XTKIN                           
  7-00000028  R*4  XTONCH                                           9-000002A4  R*4  XYDRAT                          
 12-000005D8  R*4  YANG3D                                           7-00000014  R*4  YAXIS                           
 12-00000528  CHAR YAXISNAME                                        9-0000001C  R*4  YCYCLE                          
  7-00000034  R*4  YDATIN                                           9-000002B4  L*4  YLBREV                          
 10-000004C0  CHAR YLBTYP                                          10-0000097C  I*4  YLLONG                          
  8-000002D6  R*4  YLRAT                                            9-0000000C  R*4  YMAX                            
  7-00000064  L*4  YNUM                                             9-00000008  R*4  YORIG                           
  7-0000000C  R*4  YPHYS                                            2-000001A0  R*4  YPOS                            
 12-00000004  R*4  YSTEP                                            9-00000294  R*4  YSTP                            
  9-000002B0  L*4  YTKIN                                            7-0000002C  R*4  YTONCH                          
 12-000005DC  R*4  ZANG3D                                          12-00000578  CHAR ZAXISNAME                       
 12-00000020  CHAR ZLBTYP                                          12-0000001C  L*4  ZNUM                            
 12-00000008  R*4  ZSTEP                                           12-0000000C  L*4  ZTKIN                           

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page  11
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

RECORDS

    Address   Name          Structure           Bytes                 Address   Name          Structure           Bytes

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


ARRAYS

    Address  Type  Name                                  Bytes  Dimensions

  8-00000022  CHAR ALF                                      24  (6)
  2-00000030  R*4  CVIEW                                    16  (4)
  2-00000010  R*4  CWIND                                    16  (4)
  4-00000000  CHAR GFTYPE                                 1500  (250)
  8-00000004  I*4  IALF                                     24  (6)
  8-000002B2  L*4  LCASE                                    24  (6)
  8-000001E6  I*4  LCOLOR                                  200  (50)
  8-000002DA  I*4  LDEL                                    200  (50)
  8-0000011E  I*4  LT                                      200  (50)
 10-00000004  CHAR LXARAY                                 1200  (50)
 10-000004C4  CHAR LYARAY                                 1200  (50)
 12-00000028  CHAR LZARAY                                 1200  (50)
  8-00000056  I*4  MK                                      200  (50)
 11-0000006C  R*4  PROJECTION                               96  (4, 6)
  2-00000020  R*4  RVIEW                                    16  (4)
  2-00000000  R*4  RWIND                                    16  (4)
 11-000000CC  R*4  WORLD3DTOWORKBOX                         24  (3, 2)


RECORD ARRAYS

    Address   Name          Structure           Bytes  Dimensions

  3-00000140  GDEV          GDEVICE              2820  (30)


LABELS

    Address   Label       Address   Label       Address   Label   

  1-0000005B  100'      1-0000005E  105'      1-00000047  110'    


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                              Type  Name                              Type  Name                            

        ANGLE                                   CHRMSG                                  COPYWISS                        
        FOR$DATE_T_DS                           FOR$TIME_T_DS                           GCLRWK                          
        GCLSG                                   GCLWK                                   GDAWK                           
        GDSG                                    GET_IMAGE_NAME                          GPUSH                           
        GQACWK                                  GQOPS                                   GQSGUS                          
        GQWKC                                   GQWKCA                                  GQWKS                           
        GSELNT                                  GUWK                                    HEIGHT                          
        NOBRDR                                  QHITE                                   RESET                           

ENDPL                                                           13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page  12
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

        SOLID                                   STR_TRIM                                STR_UPCASE                      
        TRANSLATE_LOGICAL               

                                                                13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page  13
                                                                28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

0002    	SUBROUTINE COPYWISS
0003    !	9-JAN-1990
0004    	INCLUDE 'SYS$LIBRARY:GKSDEFS.BND'
0457    	INCLUDE 'GPLOT_SRC:GPCOM1.INC'
0475    	INCLUDE 'GPLOT_SRC:GKI.INC'
0482    	CHARACTER*40 PLTDEV,PLTDEV1
0483     
0484    !	Find WISS workstation identifier.
0485    	CALL GQACWK(1,IERR,NACTV,LWKACT)
0486 C  D	WRITE(8,*) '--------- COPYWISS ----- NACTV =',NACTV
0487     
0488    	IWISS = 0
0489    	II = 1
0490    	DO WHILE (II .LE. NACTV)
0491    	  CALL GQACWK(II,IERR,NACTV,IW)
0492    	  CALL GQWKC(IW,IERR,ICONID,WKTYPE)	! Find WS type
0493    	  CALL GQWKCA(WKTYPE,IERR,ICAT)		! Find WS Category
0494    	  IF(ICAT .EQ. GWISS) THEN
0495    	    IWISS = IW
0496    	  ELSE IF (ICAT .EQ. GOUTPT) THEN
0497    	    IHARD = IW
0498    	  END IF
0499    	  II = II + 1
0500    	END DO
0501 C  D	WRITE(8,*) 'IWISS =',IWISS
0502    	IF(IWISS .EQ. 0) THEN
0503    	  WRITE(6,*) 'WISS is not active in COPYWISS!'
0504    	  RETURN
0505    	END IF
0506     
0507    	IHARD = 0
0508    !	Create device with call to GMENU, then copy segments from WISS
0509    	CALL TRANSLATE_LOGICAL('PLOTTER',LPDEV1,PLTDEV1)	! Get Plot device name.
0510    c	CALL GMENU(,0)	! Call GMENU for hardcopy only
0511    	CALL HCMENU
0512 C  D	WRITE(8,*) 'GDOUT.TYPE=',GDOUT.TYPE
0513    	CALL GSETUP(GDOUT.TYPE)
0514    	CALL TRANSLATE_LOGICAL('PLOTTER',LPDEV,PLTDEV)	! Get Plot device name.
0515 C  D	WRITE(8,*) 'Copying plot to ',PLTDEV(:LPDEV)
0516    	CALL GQACWK(1,IERR,NACT2,LWKACT)	! Get new number of active WS's.
0517 C  D	WRITE(8,*) 'NACT2 =',NACT2
0518    !	Find workstation ID of hardcopy device
0519    	DO IH = 1,NACT2
0520    	   CALL GQWKC(IH,IERR,ICONID,WKTYPE)	! Find WS type
0521    	   CALL GQWKCA(WKTYPE,IERR,ICAT)	! Find WS Category
0522    	   IF (ICAT .EQ. GOUTPT) THEN
0523    	     IHARD = IH
0524    	     IHTYPE = WKTYPE
0525    	   END IF
0526    	END DO
0527 C  D	WRITE(8,*) 'IHARD, IHTYPE =',IHARD, IHTYPE
0528    	IF(IHARD .EQ. 0) THEN
0529    	  TYPE *,'No hardcopy device selected in COPYWISS.'
0530    	  RETURN
0531    	END IF
0532    	CALL SETUP_WS(IHARD)

COPYWISS                                                        13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page  14
                                                                28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

0533    	IF(IHTYPE .EQ. GPTSC) THEN
0534    	    CALL DUPLX
0535    	END IF
0536     
0537    	CALL GQSGUS(1,IERR,NUMSEG,ISEG1)		! Get # segments in USE
0538    	IS = 1
0539    	CALL GQSGWK(IWISS,IS,IERR,NUMWISS,ISEG)		! Get # in WISS
0540    	IF(NUMWISS .LT. NUMSEG) THEN
0541    	  WRITE(6,*) 'Warning: of the',NUMSEG,' segments, only',
0542    	1	     NUMWISS,' are in WISS.'
0543    	  WRITE(6,*) 'Select WISS at the beginning to save all segments.'
0544    	END IF
0545     
0546    	DO WHILE (IS .LE. NUMWISS)	! TGW 6/27/91
0547 C  D	WRITE(8,*) 'COPYING SEGMENT',ISEG
0548    	  CALL GCSGWK(IHARD,ISEG)	! Copy segments
0549    	  IS = IS + 1
0550    	  CALL GQSGWK(IWISS,IS,IERR,NUMWISS,ISEG)	! Get WISS SEG #
0551    	END DO
0552     
0553    	CALL GDAWK(IHARD)	! Deactivate new workstation
0554    	CALL GCLWK(IHARD)	! Close new workstation
0555     
0556    	CALL QUEPLOT		! Send new plot file to Que
0557     
0558    	CALL SET_LOGICAL('PLOTTER',PLTDEV1(1:LPDEV1))
0559    	CALL DELETE_LOGICAL('PLOTFILE')
0560    	NWKST = NWKST - 1	! Correct workstation count in common
0561     
0562    	RETURN
0563    	END

COPYWISS                                                        13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page  15
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  510   PIC CON REL LCL   SHR   EXE   RD NOWRT QUAD
  1 $PDATA                                 185   PIC CON REL LCL   SHR NOEXE   RD NOWRT QUAD
  2 $LOCAL                                 568   PIC CON REL LCL NOSHR NOEXE   RD   WRT QUAD
  3 GPCOM1                                3140   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  4 GPCOM2                                1500   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  5 GKI                                     76   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD
  6 GKIO                                     8   PIC OVR REL GBL   SHR NOEXE   RD   WRT QUAD

    Total Space Allocated                 5987


ENTRY POINTS

    Address  Type  Name          

  0-00000000       COPYWISS      


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

  3-00000008  CHAR COMPID          5-0000000C  CHAR CONLOG          5-00000040  R*4  DVMKSC              **      I*4  EMBINY        
  6-00000000  I*4  ERUNIT              **      I*4  GABASE              **      I*4  GABOTT              **      I*4  GABSNT        
      **      I*4  GACAP               **      I*4  GACENT              **      I*4  GACTIV              **      I*4  GAHALF        
      **      I*4  GAHNOR              **      I*4  GALEFT              **      I*4  GALLOW              **      I*4  GALWAY        
      **      I*4  GARITE              **      I*4  GASAP               **      I*4  GAST                **      I*4  GASTI         
      **      I*4  GATCHRD             **      I*4  GATOP               **      I*4  GATOPN              **      I*4  GATPIE        
      **      I*4  GAVNOR              **      I*4  GBNIG               **      I*4  GBNIL               **      I*4  GBUNDL        
      **      I*4  GCGMO               **      I*4  GCHARP              **      I*4  GCHOIC              **      I*4  GCLIP         
      **      I*4  GCMPHY              **      I*4  GCMVIR              **      I*4  GCOLOR              **      I*4  GCONDI        
      **      I*4  GCONID              **      I*4  GCPTSC              **      I*4  GCURNT              **      I*4  GDDIF         
      **      I*4  GDECW               **      I*4  GDECWD              **      I*4  GDECWO              **      I*4  GDECWW        
      **      I*4  GDETEC              **      I*4  GDOWN               **      I*4  GDP144              **      I*4  GDP180        
      **      I*4  GDP72               **      I*4  GDP90               **      I*4  GEAWC               **      I*4  GEB           
      **      I*4  GEBTB               **      I*4  GECHO               **      I*4  GECI                **      I*4  GECR          
      **      I*4  GEDASD              **      I*4  GEDASH              **      I*4  GEDBDT              **      I*4  GEDOT         
      **      I*4  GEDRG               **      I*4  GEDS2D              **      I*4  GEDS3D              **      I*4  GEETB         
      **      I*4  GEIBGM              **      I*4  GEIC                **      I*4  GEICS               **      I*4  GEIDBM        
      **      I*4  GEIDS               **      I*4  GEIEA               **      I*4  GEIEF               **      I*4  GEIFNF        
      **      I*4  GEIGEX              **      I*4  GEIHM               **      I*4  GEILC               **      I*4  GEILCJ        
      **      I*4  GEILE               **      I*4  GEILEI              **      I*4  GEILFN              **      I*4  GEILH         
      **      I*4  GEILJ               **      I*4  GEIMBI              **      I*4  GEIMEB              **      I*4  GEIPBI        
      **      I*4  GEIPER              **      I*4  GEIS                **      I*4  GEISE               **      I*4  GEISHI        
      **      I*4  GEISHM              **      I*4  GEIVD               **      I*4  GEIWID              **      I*4  GEIWM         
      **      I*4  GELGDS              **      I*4  GELSDS              **      I*4  GEMDN               **      I*4  GEMND         
      **      I*4  GEMNW               **      I*4  GEMPTY              **      I*4  GEMWN               **      I*4  GEP           
      **      I*4  GEPCM               **      I*4  GEPOPW              **      I*4  GEPSHW              **      I*4  GEPV          
      **      I*4  GERROF              **      I*4  GERRON              **      I*4  GERSRG              **      I*4  GESBPM        
      **      I*4  GESCL               **      I*4  GESCS               **      I*4  GESCU               **      I*4  GESDB         
      **      I*4  GESEA               **      I*4  GESEC               **      I*4  GESECI              **      I*4  GESEHM        
      **      I*4  GESEI               **      I*4  GESER               **      I*4  GESES               **      I*4  GESET         
      **      I*4  GESEW               **      I*4  GESFN               **      I*4  GESHM               **      I*4  GESIB         

COPYWISS                                                        13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page  16
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

      **      I*4  GESLC               **      I*4  GESLJ               **      I*4  GESOL               **      I*4  GESP          
      **      I*4  GESPDS              **      I*4  GESPDT              **      I*4  GESRS               **      I*4  GESSHM        
      **      I*4  GESVE               **      I*4  GESVRG              **      I*4  GESWM               **      I*4  GESWT         
      **      I*4  GETPDT              **      I*4  GEVENT              **      I*4  GFAATT              **      I*4  GFILLA        
      **      I*4  GGA2PR              **      I*4  GGA3P               **      I*4  GGAC2P              **      I*4  GGACPA        
      **      I*4  GGACRA              **      I*4  GGACVR              **      I*4  GGBES               **      I*4  GGBS          
      **      I*4  GGC2PR              **      I*4  GGC3P               **      I*4  GGCCP               **      I*4  GGCCR         
      **      I*4  GGCP                **      I*4  GGDISP              **      I*4  GGEACA              **      I*4  GGEACP        
      **      I*4  GGEAFP              **      I*4  GGEC3P              **      I*4  GGECA               **      I*4  GGEFP         
      **      I*4  GGFA3P              **      I*4  GGFACA              **      I*4  GGFACP              **      I*4  GGFACR        
      **      I*4  GGFACV              **      I*4  GGFAPR              **      I*4  GGFAS               **      I*4  GGFC3P        
      **      I*4  GGFCCP              **      I*4  GGFCCR              **      I*4  GGFCPR              **      I*4  GGFEACA       
      **      I*4  GGFEAF              **      I*4  GGFEAP              **      I*4  GGFECA              **      I*4  GGFECP        
      **      I*4  GGFEFP              **      I*4  GGFR2P              **      I*4  GGFRCW              **      I*4  GGHAFP        
      **      I*4  GGHCP               **      I*4  GGHCR               **      I*4  GGHFP               **      I*4  GGHPCP        
      **      I*4  GGIA                **      I*4  GGKCL               **      I*4  GGKOP               **      I*4  GGPAFP        
      **      I*4  GGPF2P              **      I*4  GGPFV               **      I*4  GGR2P               **      I*4  GGRCWH        
      **      I*4  GGRT                **      I*4  GGSCP               **      I*4  GH7585              **      I*4  GHATCH        
      **      I*4  GHIGHR              **      I*4  GHILIT              **      I*4  GHMCOL              **      I*4  GHMCOM        
      **      I*4  GHMDEF              **      I*4  GHMDUA              **      I*4  GHMFIL              **      I*4  GHMLIN        
      **      I*4  GHOLLO              **      I*4  GHP747              **      I*4  GHP755              **      I*4  GHP758        
      **      I*4  GIMM                **      I*4  GINACT              **      I*4  GINDIV              **      I*4  GINPUT        
      **      I*4  GINVIS              **      I*4  GIRG            3-00000004  CHAR GKVER               **      I*4  GL0A          
      **      I*4  GL0B                **      I*4  GL0C                **      I*4  GL1A                **      I*4  GL1B          
      **      I*4  GL1C                **      I*4  GL2A                **      I*4  GL2B                **      I*4  GL2C          
      **      I*4  GLA100              **      I*4  GLA12               **      I*4  GLA210              **      I*4  GLA34         
      **      I*4  GLA50               **      I*4  GLA75               **      I*4  GLCBUT              **      I*4  GLCG01        
      **      I*4  GLCNTR              **      I*4  GLCP01              **      I*4  GLCRND              **      I*4  GLCSQR        
      **      I*4  GLDASD              **      I*4  GLDASH              **      I*4  GLDBDT              **      I*4  GLDOT         
      **      I*4  GLDS2D              **      I*4  GLDS3D              **      I*4  GLDSCP              **      I*4  GLEFT         
      **      I*4  GLGMPS              **      I*4  GLJ250              **      I*4  GLJ25X              **      I*4  GLJBVL        
      **      I*4  GLJMTR              **      I*4  GLJRND              **      I*4  GLLGDS              **      I*4  GLLSDS        
      **      I*4  GLMA                **      I*4  GLMB                **      I*4  GLMC                **      I*4  GLN03P        
      **      I*4  GLOCAT              **      I*4  GLOWER              **      I*4  GLPHTM              **      I*4  GLSOLI        
      **      I*4  GLSPDS              **      I*4  GLSPDT              **      I*4  GLTPDT              **      I*4  GLVPA         
      **      I*4  GLVPB               **      I*4  GMBT                **      I*4  GMCHAR              **      I*4  GMCLTX        
      **      I*4  GMDIA               **      I*4  GMETRE              **      I*4  GMHG                **      I*4  GMI           
      **      I*4  GMINPT              **      I*4  GMNPTR              **      I*4  GMO                 **      I*4  GMONOC        
      **      I*4  GMORE               **      I*4  GMOUTP              **      I*4  GMSBT               **      I*4  GMSCIR        
      **      I*4  GMSDIA              **      I*4  GMSHG               **      I*4  GMSQ                **      I*4  GMSSQ         
      **      I*4  GMSTRD              **      I*4  GMSTRU              **      I*4  GMTRD               **      I*4  GMTRU         
      **      I*4  GMV125              **      I*4  GMV12B              **      I*4  GMV240              **      I*4  GMV24B        
      **      I*4  GMV330              **      I*4  GMV340              **      I*4  GNCHOI              **      I*4  GNCLAS        
      **      I*4  GNCLIP              **      I*4  GNDC                **      I*4  GNECHO              **      I*4  GNEMPT        
      **      I*4  GNMORE              **      I*4  GNO                 **      I*4  GNONE               **      I*4  GNORML        
      **      I*4  GNPEND              **      I*4  GNPICK              **      I*4  GOK                 **      I*4  GOMARK        
      **      I*4  GOTHU               **      I*4  GOTHWK              **      I*4  GOUTIN          2-00000050  I*4  GOUTPT        
      **      I*4  GPATTR              **      I*4  GPEND               **      I*4  GPERFO              **      I*4  GPICK         
      **      I*4  GPLATT              **      I*4  GPLINE              **      I*4  GPLUS               **      I*4  GPMATT        
      **      I*4  GPOINT              **      I*4  GPOSTP              **      I*4  GPROFF              **      I*4  GPRON         
      **      I*4  GPRSNT              **      I*4  GPRTRT          2-00000058  I*4  GPTSC               **      I*4  GRASTR        
      **      I*4  GREALI              **      I*4  GREQU               **      I*4  GRIGHT              **      I*4  GSAMPL        
      **      I*4  GSET                **      I*4  GSGOP               **      I*4  GSIZA               **      I*4  GSIZA0        
      **      I*4  GSIZA1              **      I*4  GSIZA2              **      I*4  GSIZA3              **      I*4  GSIZA4        
      **      I*4  GSIZA5              **      I*4  GSIZB               **      I*4  GSIZB4              **      I*4  GSIZB5        
      **      I*4  GSIZC               **      I*4  GSIZD               **      I*4  GSIZE               **      I*4  GSIZLG        
      **      I*4  GSOLID              **      I*4  GSPEC               **      I*4  GSTRIN              **      I*4  GSTRKP        

COPYWISS                                                        13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page  17
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

      **      I*4  GSTROK              **      I*4  GSTRP               **      I*4  GSUPPD              **      I*4  GT128O        
      **      I*4  GT129O              **      I*4  GT207O              **      I*4  GT4014              **      I*4  GT4107        
      **      I*4  GT4128              **      I*4  GT4129              **      I*4  GT41O               **      I*4  GT4207        
      **      I*4  GTEKO               **      I*4  GTXATT              **      I*4  GUNDET              **      I*4  GUP           
      **      I*4  GV125B              **      I*4  GV125C              **      I*4  GV2000              **      I*4  GV240B        
      **      I*4  GV240C              **      I*4  GV3200              **      I*4  GV330               **      I*4  GV340         
      **      I*4  GV3500              **      I*4  GVALUA              **      I*4  GVECTR              **      I*4  GVIEW         
      **      I*4  GVISI               **      I*4  GVS500              **      I*4  GVS5O               **      I*4  GVSGPX        
      **      I*4  GVSII               **      I*4  GVTCMR              **      I*4  GVTO                **      I*4  GWC           
  2-00000054  I*4  GWISS               **      I*4  GWMCMT              **      I*4  GWMERS              **      I*4  GWMOVY        
      **      I*4  GWSAC               **      I*4  GWSDEF              **      I*4  GWSOP               **      I*4  GWSWIS        
      **      I*4  GXMARK              **      I*4  GYES            2-00000078  I*4  ICAT            2-00000074  I*4  ICONID        
  2-0000005C  I*4  IERR            2-0000008C  I*4  IH              2-0000007C  I*4  IHARD           2-00000090  I*4  IHTYPE        
  2-0000006C  I*4  II              2-0000009C  I*4  IS              2-000000A4  I*4  ISEG            2-00000098  I*4  ISEG1         
  2-00000070  I*4  IW              2-00000068  I*4  IWISS           5-00000008  I*4  LCONLOG         2-00000084  I*4  LPDEV         
  2-00000080  I*4  LPDEV1          2-00000064  I*4  LWKACT          2-00000088  I*4  NACT2           2-00000060  I*4  NACTV         
  5-00000048  I*4  NMAP            3-00000000  I*4  NUMDEV          2-00000094  I*4  NUMSEG          2-000000A0  I*4  NUMWISS       
  5-00000000  I*4  NWKST           5-00000044  R*4  PGMKSC          2-00000000  CHAR PLTDEV          2-00000028  CHAR PLTDEV1       
  5-0000003C  R*4  SCMARK          6-00000004  I*4  SMUNIT          5-00000038  I*4  WKHARD              **      I*4  WKID          
  5-00000004  I*4  WKTYPE          5-00000034  I*4  WKWISS        


RECORDS

    Address   Name          Structure           Bytes                 Address   Name          Structure           Bytes

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


ARRAYS

    Address  Type  Name                Bytes  Dimensions

  4-00000000  CHAR GFTYPE               1500  (250)


RECORD ARRAYS

    Address   Name          Structure           Bytes  Dimensions

  3-00000140  GDEV          GDEVICE              2820  (30)


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                              Type  Name                              Type  Name                            

        DELETE_LOGICAL                          DUPLX                                   GCLWK                           
        GCSGWK                                  GDAWK                                   GQACWK                          
        GQSGUS                                  GQSGWK                                  GQWKC                           
        GQWKCA                                  GSETUP                                  HCMENU                          
        QUEPLOT                                 SETUP_WS                                SET_LOGICAL                     
        TRANSLATE_LOGICAL               

COPYWISS                                                        13-Nov-1991 12:05:33	VAX FORTRAN V5.6-119                Page  18
01                                                              28-Oct-1991 14:03:04	UD5:[GPLOT.EXAMPLES]ENDPL.FOR;68            

COMMAND QUALIFIERS

  FORTRAN/LIST ENDPL

  /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
  /NODIAGNOSTICS
  /LIST=UD5:[GPLOT.EXAMPLES]ENDPL.LIS;1                                                                     
  /OBJECT=UD5:[GPLOT.EXAMPLES]ENDPL.OBJ;9                                                                     


COMPILATION STATISTICS

  Run Time:           6.58 seconds
  Elapsed Time:       12.36 seconds
  Page Faults:        652
  Dynamic Memory:     760 pages
