PROGRAM GPE15	! Test axis numbering
      CHARACTER*50 TITLE
      CALL GSTART
      CALL PAGE(11.0,8.5)          ! Specify page size
      XAXIS = 9.0
      YAXIS = 6.5
      IPLOT = 1
      TITLE(1:) = 'GPE15A--Test Axis Numbering, Ticks Normal'

1     CALL AREA2D(XAXIS,YAXIS)         ! Define Subplot area
      CALL DUPLX
      CALL XNAME('X LABEL$',100)   ! Define X Axis label
      CALL YNAME('Y LABEL$',100)   ! Define Y Axis label
      CALL HEADIN(TITLE,100,2.,1)
      YORIG = -43.2680
      YMAX = -43.2640
      DY = 0.1*(YMAX-YORIG)
      CALL YAXANG(0.0)
      XORIG = 0.0
      XMAX = 5.0
      XMAX = XMAX + 0.85*DX	! CHANGE TO FUNNY RIGHT AXIS
      CALL XNMADJ('ENDS')
      CALL YNMADJ('ENDS')
      CALL GRAF (XORIG,'SCALE',XMAX,YORIG,DY,YMAX)
! Draw more Y axes

	YMAX = 0.0
	YORIG = -1.234E-6
	DY = 0.2*(YMAX-YORIG)
	CALL YGRAXS(YORIG,DY,YMAX,YAXIS,'Third y Axis',100,3.0,0.0)

	YMAX = 0.0
	YORIG = -1.0
	DY = 0.1
	CALL YTICKS(3)
	CALL YGRAXS(YORIG,DY,YMAX,YAXIS,'Fourth Y Axis',100,6.0,0.0)

	YORIG = 0.0
	YMAX = 1.234E+3
	CALL YAXANG(90.0)
	call yintax
	CALL YTICKS(2)
	CALL YGRAXS(YORIG,'SCALE',YMAX,YAXIS,'Right Y Axis$',-100,
	2           XAXIS,0.0)

!------------ DRAW MORE X AXES

	XMAX = 0.0
	XORIG = -1.234E-6
	DX = 0.2*(XMAX-XORIG)
	CALL XTICKS(4)
	CALL XGRAXS(XORIG,DX,XMAX,9.0,'Third X Axis',100,0.0,1.5)

	XORIG = -43.2680
	XMAX = -43.2640
	DX = 0.1*(XMAX-XORIG)
	call xaxang(90.)
	CALL XGRAXS(XORIG,DX,XMAX,9.0,'Fourth X Axis',100,0.0,3.0)

	XORIG = 1.0
	XMAX = 2.8
	DX = 0.2
	call xaxang(0.0)
	CALL XGRAXS(XORIG,DX,XMAX,9.0,'Fifth X Axis',100,0.0,4.0)

	XORIG = 0.0
	XMAX = 1.234E+3
	CALL XINTAX
	CALL XTICKS(2)
	CALL XGRAXS(XORIG,'SCALE',XMAX,XAXIS,'Top X Axis$',-100,
	2           0.0,YAXIS)

	CALL ENDPL(IPLOT)

	IF(IPLOT .EQ. 1) THEN
          TITLE(1:) = 'GPE15B--Test Axis Numbering, Ticks Reversed'
	  CALL XREVTK
	  CALL YREVTK
	  IPLOT = 2
	  GOTO 1
	ELSE	  
          CALL GSTOP
	END IF
 
      CALL EXIT
      END