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

#include "isajet/pilot.h"
      SUBROUTINE CTXI2C(IVAL,CVAL,NSIZE)
C-----------------------------------------------------------------------
C          Convert integer array IVAL to character variable CVAL
C-----------------------------------------------------------------------
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
      CHARACTER*(*) CVAL
      INTEGER I,NSIZE
      INTEGER IVAL(NSIZE)
C
      DO 100 I=1,NSIZE
100   CVAL(I:I)=CHAR(IVAL(I))
C
      RETURN
      END
Commit	Line	Data
0795afa3	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