SUBROUTINE BAXES(X0,Y0,FREQLO,FREQHI,L,TITLE,NCHRS,SIZE)
C
C	This subroutine will draw and annotate an axis for 1/3 octave
C	band center frequencies.  Where,
C
C	X0,Y0	Location of the "origin" in scale inches relative
C		to the relocatable origin.
C	FREQLO,	Minimum and Maximum frequency desired, the subroutine
C	FREQHI	will choose the nearest 1/3 octave band.
C	L	Length of the axis in scale inches.  NOTE: L is a 
C		floating point number.
C	TITLE	Character string containing the title.
C	NCHRS	Number of characters in the title.
C	SIZE	Character size for annotation in scale inches.  The title
C		will be 1.5*SIZE.
C
C	FCTR: BX
C
C	The proper values are set in COMMON /PSTN/ so that PSTN and
C	NTSP may be called.
C
	COMMON /PLTR/ ILun, IDev, IsTerm, IMode, IXMax, IYMax,
	1  Cnvrsn, CMag, CnvMag, IX0, IY0, KSetNo, IFancy, IBfDv3,
	1  CSize, DeltaH, DeltaV, Upsiln, CosUp, SinUp, WidAdj
	COMMON /PSTN/ XZero, XScale, LogX,
	1  YZero, YScale, LogY, YMin
	COMMON /AXESC/ CS, SN, SGN, TX, TY, DX, DY,
	1  MIN, MIDL, MAX, MIDU, UMAX, WMAX, IFORM, JUSTFY
	REAL L
	LOGICAL LogX, LogY
C
C - RETURN IF NO PLOTTING IS TO BE DONE.
	IF( IDev .EQ. 0 ) RETURN
	CALL NUMARG( NARG )
	IF( NARG .EQ. 8 ) GO TO 100
	CALL OTSERR( 80 )
	STOP
C
C - SAVE THE PRESENT PLOTTER STATUS.
100	CSAVE = CSize
	USAVE = Upsiln
	IX0S = IX0
	IY0S = IY0
C
C - SET NEW ORIGIN AND CHARACTER SIZE.
	CALL CLRALL
	CALL CALPLT(X0,Y0,-3)
	CALL SIZEUP( ABS(SIZE), 0. )
C
C - DRAW AXIS, ADD TITLE AND SET SCALING.
	CALL BAXES1
	1  ( X0, FREQLO, FREQHI, L, TITLE, IABS(NCHRS), ABS(SIZE) )
	IF( SIZE .LT. 0. ) GO TO 200
C
C - ANNOTATE AXIS.
	CALL BAXES2
C
C - RETURN TO FORMER PLOTTER STATUS.
200	CALL SIZEUP( CSAVE, USAVE )
	CALL CLRALL
	IX0 = IX0S
	IY0 = IY0S
C
	RETURN
	END