	SUBROUTINE NUMBR(A,LA,N)
C	RETURNS RIGHTMOST NON-BLANK CHARACTER POSITION IN A
C	LA IS LENGTH OF A, N IS POSITION RETURNED
	CHARACTER A
	DO 1 N=LA,1,-1
	IF(A(N:N).GT.' ') GOTO 2
1	CONTINUE
	N=0
2	RETURN
	END
