SUBROUTINE LAXES4( IVAL, IEXP, STRING, NCHRS, WH, UH )
C
C	This subroutine generates a character string representing
C	IVAL * 10**IEXP.
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
	LOGICAL*1 STRING(1), ZERO, DOT
	REAL PRE(11)
	DATA PRE/'a', 'f', 'p', 'n', '$4<l', 'm', ' ',
	1  'k', 'M', 'G', 'T'/
	DATA ZERO /'0'/, DOT/'.'/
	WRITE(5,1) IFORM, IVAL, IEXP
1	FORMAT(/,3I8)
C
C - WHICH FORM?
	GO TO ( 100, 400, 1200 ), IFORM
C
C - GET PROPER PREFIX.
100	IF( IEXP .LT. 0 ) GO TO 200
	IPRE = IEXP/3
	GO TO 300
200	IPRE = ( IEXP-2 )/3
C
C - ENCODE NUMBER.
300	INUM = IVAL*10.**( IEXP-IPRE*3 )
	WRITE(5,301) INUM, PRE( IPRE+7 )
301	FORMAT(I5,2X,A4)
	ENCODE(7,310,STRING) INUM, PRE( IPRE+7 )
310	FORMAT(I3,A4)
	I = 3 - IFIX( ALOG10( FLOAT(INUM) ) )
	J = 7
	GO TO 1300
C
C - DECIMAL.
400	NCHRS = IABS( IEXP ) + 1
	DO 1000 I=1,NCHRS
1000	STRING(I) = ZERO
	IF( IEXP .LT. 0 ) GO TO 1100
	STRING(1) = IVAL + ZERO
	GO TO 2100
1100	STRING(1) = DOT
	STRING(NCHRS) = IVAL + ZERO
	GO TO 2100
C
C - ENCODE NUMBER.
1200	ENCODE(11,1210,STRING) IVAL, IEXP
1210	FORMAT(I1,'$9.10$U',I3)
	I = 1
	IF( IVAL .EQ. 1 ) I = 5
	J = 11
C
C - PACK STRING TO LEFT.
1300	NMAX = J - I + 1
	NCHRS = 0
	DO 2000 K=1,NMAX
	IF( STRING(I) .EQ. "40 ) GO TO 2000
	NCHRS = NCHRS + 1
	STRING( NCHRS ) = STRING( I )
2000	I = I + 1
C
C - CALCULATE ANNOTATION SIZE.
2100	CALL HCSIZE( STRING, NCHRS, W, U, D )
	WH = .5*W
	UH = .5*U
C
	RETURN
	END