	SUBROUTINE CHARX(I,A,B)
C	CHARACTER EXCHANGE ROUTINE
C	PUTS A INTO B.  A AND B CAN BE LOGICAL*1, CHARACTER, OR A MIX
C	OF BOTH.  I IS NUMBER OF BYTES IN SHORTEST ARRAY OR VARIABLE.
	CHARACTER*255 A,B
	IF(I.GT.0.AND.I.LT.256) B(:I)=A(:I)
	RETURN
	END
