SUBROUTINE BAXES2
C
C	This subroutine annotates the axis with 1/3 octave band
C	center freqencies.
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 /AXESC/ CS, SN, SGN, TX, TY, DX, DY,
	1  MIN, MIDL, MAX, MIDU, UMAX, WMAX, IFORM, JUSTFY
	COMPLEX B(3), FRMT(1), FRMT8
	REAL L
	LOGICAL*1 CHAR(5), FRMT1(8)
	DIMENSION A(11), FREAK(1)
	EQUIVALENCE ( A(2), FREAK ), ( B(2), FRMT ), ( FRMT1, FRMT8 )
	DATA A/1., 1.25, 1.6, 2., 2.5, 3.15, 4., 5., 6.3, 8., 0./
	DATA B/'(0PF5.3)', '(1PF5.2)', '(2PF5.1)'/
C
C - ANNOTATE AXIS.
	XP = 0.5*DX
	YP = -TY*.375
	IALT = MOD( MIN, 2 )
	DO 2000 I=MIN,MAX
C
	FRMT8 = FRMT( MOD( I/10, 3 ) )
	K = MOD( I, 10 )
	ENCODE(5, FRMT1, CHAR ) FREAK(K)
C
	N = 5
	DO 1000 K=1,5
	IF( CHAR(6-K) .EQ. "56 ) GO TO 1100
	IF( CHAR(6-K) .NE. "60 ) GO TO 1200
1000	N = N-1
C
C - CHECK TO SEE IF THE 'k' IS NEEDED.
1100	N = N-1
1200	IF( I .LT. 30 ) GO TO 1300
	N = N+1
	CHAR(N) = "153
C
C - LABEL VALUE.
1300	CALL HCSIZE(CHAR,N,W,U,D)
	CALL HCGEN( XP-.5*W, YP-U-MOD(I+IALT,2)*DY, CHAR, N )
2000	XP = XP + DX
C
	RETURN
	END