	SUBROUTINE LPAD(A,LA,N)
C	ROUTINE TO PAD LEFT END OF STRING WITH N BLANKS.
C	IF N<0, UP TO |N| BLANKS WILL BE REMOVED FROM LEFT END.
	CHARACTER A
	IF(N.GE.0) THEN
	   K=N+1
	   IF(K.GT.LA) THEN
	      A(1:LA)=' '
	   ELSE
	      A(K:LA)=A(1:LA-N)
	      A(1:N)=' '
	   END IF
	ELSE IF(N.LT.0) THEN
	   K=-N
	   IF(K.GT.LA) K=LA
	   DO 1 I=1,K
	   IF(A(I:I).GT.' ') GOTO 2
1	   CONTINUE
	   I=K+1
2	   A(1:LA)=A(I:LA)
	END IF
	RETURN
	END
