ISAJET/code/ctxi2c.F

   1 #include "isajet/pilot.h"
   2       SUBROUTINE CTXI2C(IVAL,CVAL,NSIZE)
   3 C-----------------------------------------------------------------------
   4 C          Convert integer array IVAL to character variable CVAL
   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   CVAL(I:I)=CHAR(IVAL(I))
  15 C
  16       RETURN
  17       END