SUBROUTINE BAXES1(X0,FREQLO,FREQHI,L,TITLE,NCHRS,SIZE)
C
C	This subroutine sets the range and format of the axis
C	set the scaling factors and adds the title.
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 - SET TICK MARK SIZE AND SPACING
	TY = DeltaV
	TYM = 0.5*DeltaV
	MIN = 10.*ALOG10( FREQLO ) + 0.5
	MAX = 10.*ALOG10( FREQHI ) + 0.5
	DX = L/( MAX-MIN+1 )
	DXM = 0.5*DX
	DY = 0.
	CALL HCSIZE( '0', 1, W, UMAX, D )
	IF( 6.*W .GT. DX ) DY = TY*.375 + UMAX
C
C - DRAW THE AXIS.
	XP = 0.
	CALL CALPLT(XP,TYM,2)
	CALL CALPLT(XP,0.,2)
C
	DO 1000 I=MIN,MAX
C
	XP = XP+DXM
	CALL CALPLT(XP,0.,2)
	CALL CALPLT(XP,TY,2)
	CALL CALPLT(XP,0.,2)
C
	XP = XP+DXM
	CALL CALPLT(XP,0.,2)
	CALL CALPLT(XP,TYM,2)
1000	CALL CALPLT(XP,0.,2)
C
C - ADD IN TITLE.
	CALL SIZEUP( 1.5*SIZE, 0. )
	CALL HCSIZE( TITLE, NCHRS, W, U, D )
	XP = 0.5*( L - W )
	YP = -.75*TY - DY - UMAX - U
	CALL HCGEN( XP, YP, 0, 0 )
	CALL SIZEUP( SIZE, 0. )
C
C - SET SCALING PARAMETERS IN COMMON /PSTN/.
	XScale = (L-DX)/( 0.1*(MAX-MIN) )
	XZero = 10.**( MIN*0.1 - (X0+DXM)/XScale )
	LogX = .TRUE.
C
	RETURN
	END