MINICERN/packlib/kernlib/kerngen/tcgen/chtoi.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 CHTOI (CH,I,*)
  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  CHTOI - convert CH*1 to its ASCII value
  18 C          error exit if 'unseen' character
  19 C
  20       CHARACTER CH*1
  21 C
  22       I = ICHAR(CH)
  23       IF (I.GE.32)  THEN
  24           IF (I.LE.126)          RETURN
  25         ENDIF
  26 C
  27       I = 0
  28       RETURN 1
  29       END
  30 #endif