INTEGER FUNCTION INPX(BUF,MAX,OUT)
	IMPLICIT INTEGER (A-Z)
C
C		SUBROUTINE TO LEFT JUSTIFY A FIELD OF LOGICAL*1S.
C		BUF IS THE POINTER TO THE FIRST CHARACTER,
C		MAX IS THE SIZE OF THE STRING IN LOGICAL*1S
C		OUT IS THE LOGICAL*1 ARRAY THAT THE RESULT IS STORED IN.
C
	LOGICAL*1 BUF(80),OUT(80)
C
C		INITALIZE THE RESULT
C
	DO 10 I=1,MAX
10	OUT(I)="40
	INPX=0
	J=0
C
C		IGNORE LEADING SPACES
C
20	INPX=INPX+1
	IF (INPX .GT. MAX) RETURN
	IF (BUF(INPX) .EQ. "40) GOTO 20
C
C		TRANSFER REMAINING CHARACTERS
C
30	J=J+1
	OUT(J)=BUF(INPX)
	INPX=INPX+1
	IF (INPX .LE. MAX) GOTO 30
	RETURN
	END