!+
! VERSION:	1-001
!
! FACILITY:	GPLOT Graphics Library
!
! ABSTRACT:	RESET is used to reset GPLOT parameters to their default values
!
! ENVIRONMENT:	User Mode, AST-reentrant
!
! AUTHOR:	Thomas G. Worlton		CREATION DATE:	1-Jan-1987
!		Argonne National Laboratory
!
! MODIFIED BY:
! 1-001 - Original. TGW 1-Jan-1987
!	19-Dec-1988 TGW	Corrected errors in resetting Alphabet Characters.
!-
 
	SUBROUTINE RESET(OPTION)
 
!++
!
! FUNCTIONAL DESCRIPTION:  RESET is used to reset GPLOT parameters
!			   to their default values
!
!
! FORMAL ARGUMENTS:
!
!       variable         TYPE	       Description
!
!	OPTION		Character	'ALL' or option name to reset
!
! IMPLICIT INPUTS:
!
!       NONE
!
! IMPLICIT OUTPUTS:
!
!       RESETS parameters in the GPLOT com files to default values
!
! COMPLETION CODES:
!
!	Value		Meaning
!
! SIDE EFFECTS:
!
!       NONE
!--
	BYTE OPTION(1)
	CHARACTER*6 COPT
	INCLUDE 'SYS$LIBRARY:GKSDEFS.BND'
	INCLUDE 'GPLOT_SRC:GKALF.INC'
	INCLUDE 'GPLOT_SRC:GKA.INC'
	INCLUDE 'GPLOT_SRC:GKU.INC'
	INCLUDE 'GPLOT_SRC:GKG.INC'
 
	WRITE(COPT,10) (OPTION(I),I=1,6)
10	FORMAT(6A1)
 
D	WRITE(1,*) 'RESET=<',COPT(:),'>'
	IF(COPT(1:3) .EQ. 'ALL') THEN
D	    WRITE(1,*) 'RESETTING ALL'
	    CALL INIT3D_DATA
	    XTKIN = .FALSE.
	    XLBREV = .FALSE.
	    XLBTYP = 'REAL'
	    CTRXLB = .FALSE.
	    CALL XNMADJ('FIRST')
	    YTKIN = .FALSE.
	    YLBREV = .FALSE.
	    YLBTYP = 'REAL'
	    CTRYLB = .FALSE.
	    CALL YNMADJ('FIRST')
	    XNUM = .TRUE.
	    YNUM = .TRUE.
	    CALL NEWCLR('FORE')
	    HITE = 0.18
	    ISYM = ICURV-1
	    IF(ISYM .LT. 0) ISYM = 0
	    CALL ANGLE(0)
	    CALL SOLID
	    TRANON = 0
C	    CALL ASNALF(1,'STAN',')')
C	    CALL ASNALF(2,'L/CS','(')
	    DO I=1,NALF
	      CALL ASNALF(I,'STAN',CHAR(0))
	    END DO
	ELSE IF (COPT(1:4) .EQ. 'XTKR') THEN
	    XTKIN = .FALSE.
	ELSE IF (COPT(1:4) .EQ. 'XNON') THEN
	    XNUM = .TRUE.
	ELSE IF (COPT(1:4) .EQ. 'XLBR') THEN
	    XLBREV = .FALSE.
	ELSE IF (COPT(1:4) .EQ. 'XLBT') THEN
	    XLBTYP = 'REAL'
	ELSE IF (COPT(1:4) .EQ. 'XAXC') THEN
	    CTRXLB = .FALSE.
	ELSE IF (COPT(1:4) .EQ. 'XNMA') THEN
	    CALL XNMADJ('FIRST')
	ELSE IF (COPT(1:4) .EQ. 'YTKR') THEN
	    YTKIN = .FALSE.
	ELSE IF (COPT(1:4) .EQ. 'YNON') THEN
	    YNUM = .TRUE.
	ELSE IF (COPT(1:4) .EQ. 'YLBR') THEN
	    YLBREV = .FALSE.
	ELSE IF (COPT(1:4) .EQ. 'YLBT') THEN
	    YLBTYP = 'REAL'
	ELSE IF (COPT(1:4) .EQ. 'YAXC') THEN
	    CTRYLB = .FALSE.
	ELSE IF (COPT(1:4) .EQ. 'YNMA') THEN
	    CALL YNMADJ('FIRST')
	ELSE IF (COPT(1:4) .EQ. 'MIXA') THEN
	    CALL ASNALF(1,'STAN',')')
	    CALL ASNALF(2,'L/CS','(')
	ELSE IF (COPT(1:4) .EQ. 'MXAL') THEN
	    CALL ASNALF(1,'STAN',')')
	    CALL ASNALF(2,'L/CS','(')
	    DO I=3,NALF
		CALL ASNALF(I,'STAN',CHAR(0))
	    END DO
	ELSE IF(COPT(1:3) .EQ. 'DOT'    .OR. COPT(1:4) .EQ. 'DASH'
	1  .OR. COPT(1:6) .EQ. 'CHNDOT' .OR. COPT(1:6) .EQ. 'CHNDSH') THEN
	    CALL SOLID
	ELSE IF(COPT(1:5) .EQ. 'ANGLE') THEN
	    CALL ANGLE(0)
	ELSE IF(COPT(1:6) .EQ. 'HEIGHT') THEN
	    CALL HEIGHT(0.14)
	ELSE IF(COPT(1:6) .EQ. 'ATRANS') THEN
	    TRANON = 0
	ELSE
D	    WRITE(1,*) 'RESETTING ',COPT(1:4)
	END IF
 
	RETURN
 
	END
 
	SUBROUTINE ATRANS
	INCLUDE 'GPLOT_SRC:GKG.INC'
	TRANON = 1
	RETURN
	END
!+
! VERSION:	1-001
!
! FACILITY:	GPLOT Graphics Library
!
! ABSTRACT:	GPLDAT is a block data routine used to store the initial
!		values of the GPLOT parameters.  this data was originally
!		initialized in the include statements.
!
! AUTHOR:	Thomas G. Worlton		CREATION DATE:	25-MAY-1990
!		Argonne National Laboratory
!
! MODIFIED BY:
! 1-001 - Original. TGW 25-MAY-1990
!-
 
	BLOCK DATA GPLDAT
	INCLUDE 'GPLOT_SRC:GPCOM1.INC'
 
	INCLUDE 'GPLOT_SRC:GKA.INC'
	DATA TICY/.FALSE./,NOYFST/.FALSE./,NOYLST/.FALSE./
     1 ,     INTY/.FALSE./,YNUM/.TRUE./,CTRYLB/.FALSE./
	DATA TICX/.FALSE./,NOXFST/.FALSE./,NOXLST/.FALSE./
     1 ,     INTX/.FALSE./,XNUM/.TRUE./,CTRXLB/.FALSE./
	DATA XPHYS,YPHYS/0.0,0.0/,XAXIS,YAXIS/1.0,1.0/
	DATA PSCALE/1.0/,TRPAGE,TRSBPL,TRDATA/1,2,3/
	DATA CTHICK/1.0/,GRACEM,IFCHEK/0.5,1/,VTHICK/1.0/
	DATA VX0,VXM,VY0,VYM/0.0,1.0,0.0,1.0/
	DATA SCFACT/1.0/
 
	INCLUDE 'GPLOT_SRC:GKALF.INC'	! GKS ALPHABET AND FONT DATA
	DATA LOWER_CASE/.FALSE./,NALF/1/
	DATA ALF(1)/'STAN'/		! TGW MODIFIED 8/1/89
	DATA IALF(1),IALF(2)/-1,-1/
	DATA FONTID,FPREC/1,2/,HITE/0.14/,ICURV,ISYM/0,0/
	DATA HITEM/0.08/,PICFAC/1.0/,YLRAT/1.5/,LDEL/50*0/
 
C	INCLUDE 'GPLOT_SRC:GKD.INC'
C	DATA BASCEN, BASYER / 19, 00 /
 
	INCLUDE 'GPLOT_SRC:GKG.INC'
	DATA IPIC/0/,LTYPE/1/,XCYCLE,YCYCLE,THEFAC,RSTEP/4*0.0/
	DATA TRANON/0/,NTERP/0/,XYDRAT/1.0/
	DATA XTKIN,XLBREV,YTKIN,YLBREV/.FALSE.,.FALSE.,.FALSE.,.FALSE./
 
	INCLUDE 'GPLOT_SRC:GKI.INC'
	DATA DVMKSC,PGMKSC/1.0,1.0/,NMAP/0/
	DATA ERUNIT,SMUNIT/6,6/
 
	INCLUDE 'GPLOT_SRC:GKU.INC'
	DATA XLBTYP, YLBTYP / 'REAL', 'REAL' /
 
	END