ISAJET/code/ctxc2i.F

   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