INTEGER FUNCTION INPA(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
	INPA=0
	J=0
C
C		IGNORE LEADING SPACES
C
20	INPA=INPA+1
	IF (INPA .GT. MAX) RETURN
	IF (BUF(INPA) .EQ. "40) GOTO 20
C
C		TRANSFER REMAINING CHARACTERS
C
30	J=J+1
	IF ((BUF(INPA) .EQ. " 40) .OR. (BUF(INPA) .EQ. " 54)) RETURN
	OUT(J)=BUF(INPA)
	INPA=INPA+1
	IF (INPA .LE. MAX) GOTO 30
	RETURN
	END