;THIS ROUTINE IS FORTRAN CALLABLE AND IS USED BY ;CALLING IT LIKE THIS: ; I=IKHAR(DUMMY) ;IT RETURNS A SINGLE CHARACTER ENTRY IKHAR IKHAR: INCHRW POPJ 17, END