SUBROUTINE RTJUST(DUMB,JL)
	LOGICAL*1 DUMB(1)
C****************************************************************
C
C    RIGHT JUSTIFIES ASCII STRING IN DUMB OF JL LOGICAL*1S
C
C****************************************************************
	LL=JL-1
	DO 33 J=1,JL
	IF(DUMB(JL).NE."040) GOTO 34
	K=JL
	DO 35 L=1,LL
	DUMB(K)=DUMB(K-1)
35	K=K-1
33	DUMB(1)="040
34	CONTINUE
	RETURN
C	END OF RTJUST
	END