[u/mrichter/AliRoot.git] / ISAJET / code / ctxc2i.F

#include "isajet/pilot.h"
      SUBROUTINE CTXC2I(CVAL,IVAL,NSIZE)
C-----------------------------------------------------------------------
C          Convert character variable CVAL to integer array IVAL
C-----------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
      CHARACTER*(*) CVAL
      INTEGER I,NSIZE
      INTEGER IVAL(NSIZE)
C
      DO 100 I=1,NSIZE
100   IVAL(I)=ICHAR(CVAL(I:I))
C
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	SUBROUTINE CTXC2I(CVAL,IVAL,NSIZE)
	3	C-----------------------------------------------------------------------
	4	C Convert character variable CVAL to integer array IVAL
	5	C-----------------------------------------------------------------------
	6	#if defined(CERNLIB_IMPNONE)
	7	IMPLICIT NONE
	8	#endif
	9	CHARACTER() CVAL
	10	INTEGER I,NSIZE
	11	INTEGER IVAL(NSIZE)
	12	C
	13	DO 100 I=1,NSIZE
	14	100 IVAL(I)=ICHAR(CVAL(I:I))
	15	C
	16	RETURN
	17	END