[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / chtoi.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:42  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
#if defined(CERNLIB_QASCII)
      SUBROUTINE CHTOI (CH,I,*)
C
C CERN PROGLIB# M400    CHTOI           .VERSION KERNFOR  4.23  891215
C ORIG. 29/05/84 H.RENSHALL
C MOD.  06/11/89 JZ for UNIX & for speed
C
C  CHTOI - convert CH*1 to its ASCII value
C          error exit if 'unseen' character
C
      CHARACTER CH*1
C
      I = ICHAR(CH)
      IF (I.GE.32)  THEN
          IF (I.LE.126)          RETURN
        ENDIF
C
      I = 0
      RETURN 1
      END
#endif
Commit	Line	Data
fe4da5cc	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