C	SUBROUTINE CHAR
C	A MR. DAVE SOFTWARE PRODUCT,  DECEMBER, 1981
C 
C	THIS SUBROUTINE ACCEPTS AN ASCII CODE IN LOGICAL*1 VARIABLE "A"
C	AND RETURNS A CHARACTER VARIABLE IN "C".  IN EFFECT, THIS IS THE
C	SAME AS SAYING
C		C=A
C	BUT FORTRAN-77 DOESN'T ALLOW MIXING OF CHARACTER AND NUMERIC DATA
C	TYPES.
C	"B" CONTAINS THE ASCII CHARACTER SET ("?" REPRESENTS A NON-PRINTING
C	CHARACTER).  THE ASCII CODE IN "A" (OCTAL 0 TO 177) IS INCREMENTED
C	BY ONE TO INDEX THE POSITION IN "B" CONTAINING THE CHARACTER
C	SUBSTRING WHICH MATCHES THE SYMBOL REPRESENTED BY "A".
C	THIS STRING IS STORED IN "C" AND RETURNED.
C	THE TWO SINGLE QUOTES IN "B" ARE INTERPRETED AS ONE SINGLE QUOTE
C 
	SUBROUTINE CHAR(A,C)
	CHARACTER*128 B
	CHARACTER*1 C
	LOGICAL*1 A
	DATA B/'?????????	?????????????????????? !"#$%&''()*+,-./012345
     *6789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvw
     *xyz{|}~?'/
	I=A+1
	C=B(I:I)
	RETURN
	END
