      SUBROUTINE ASCII(I,ISTR)5C_TITLE ASCII Convert an I*2 item to an ASCII string.BC_DESCRIPTION Convert Integer*2 item to an ASCII character string.CC   Right justified, leading zeros suppressed, floating minus sign.C_HISTORY Bob Mehlman, UCLA.C_ARGUMENTSN      INTEGER*2 I       ![I] Input item to be converted to a character string.8      INTEGER*2 ISTR(3) ![O] Resulting character string.C_END      CHARACTER*6 CHAR      WRITE (CHAR,90) I 90   FORMAT (I6)      READ (CHAR,91) ISTR 91   FORMAT (3A2)      RETURN	      END