MINICERN/packlib/kernlib/kerngen/tcgen/itoch.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:42  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10 #if defined(CERNLIB_QASCII)
  11       SUBROUTINE ITOCH (I,CH,*)
  12 C
  13 C CERN PROGLIB# M400    CHTOI           .VERSION KERNFOR  4.23  891215
  14 C ORIG. 29/05/84 H.RENSHALL
  15 C MOD.  06/11/89 JZ for UNIX & for speed
  16 C
  17 C  ITOCH - convert ASCII integer to character CH*1
  18 C          error exit if 'unseen', setting '?'
  19 C
  20       CHARACTER CH
  21 C
  22       IF (I.GE.32)  THEN
  23           IF (I.LE.126)  THEN
  24               CH = CHAR (I)
  25               RETURN
  26             ENDIF
  27         ENDIF
  28 C
  29       CH = '?'
  30       RETURN 1
  31       END
  32 #endif