[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgens / uctoh1.F

*
* $Id$
*
* $Log$
* Revision 1.2  1996/04/02 23:17:46  thakulin
* Add support for EPC Fortran:  remove char-int equivalences and use
* F90 transfer facility instead.
*
* Revision 1.1.1.1  1996/02/15 17:50:15  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      SUBROUTINE UCTOH1 (MS,MT,NCH)
C
C CERN PROGLIB# M409    UCTOH1          .VERSION KERNFOR  4.21  890323
C ORIG. 10/02/89  JZ
C
      CHARACTER    MS*99
      DIMENSION    MT(99)

#include "kerngen/wordsize.inc"
      CHARACTER    CHWORD*(NCHAPW)
      CHARACTER    BLANK *(NCHAPW)
      PARAMETER   (BLANK = ' ')
      INTEGER      IWORD
#if !defined(CERNLIB_F90) && !defined(CERNLIB_QFEPC)
      EQUIVALENCE (IWORD,CHWORD)
#endif

      IF   (NCH)             91, 29, 11

   11 CHWORD = BLANK

      DO 24 JS=1,NCH
      CHWORD(1:1) = MS(JS:JS)
#if defined(CERNLIB_F90) || defined(CERNLIB_QFEPC)
      MT(JS)      = transfer(CHWORD,IWORD)
#else
      MT(JS)      = IWORD
#endif
   24 CONTINUE
   29 RETURN

   91 CALL ABEND
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.2 1996/04/02 23:17:46 thakulin
	6	* Add support for EPC Fortran: remove char-int equivalences and use
	7	* F90 transfer facility instead.
	8	*
	9	* Revision 1.1.1.1 1996/02/15 17:50:15 mclareni
	10	* Kernlib
	11	*
	12	*
	13	#include "kerngen/pilot.h"
	14	SUBROUTINE UCTOH1 (MS,MT,NCH)
	15	C
	16	C CERN PROGLIB# M409 UCTOH1 .VERSION KERNFOR 4.21 890323
	17	C ORIG. 10/02/89 JZ
	18	C
	19	CHARACTER MS*99
	20	DIMENSION MT(99)
	21
	22	#include "kerngen/wordsize.inc"
	23	CHARACTER CHWORD*(NCHAPW)
	24	CHARACTER BLANK *(NCHAPW)
	25	PARAMETER (BLANK = ' ')
	26	INTEGER IWORD
	27	#if !defined(CERNLIB_F90) && !defined(CERNLIB_QFEPC)
	28	EQUIVALENCE (IWORD,CHWORD)
	29	#endif
	30
	31	IF (NCH) 91, 29, 11
	32
	33	11 CHWORD = BLANK
	34
	35	DO 24 JS=1,NCH
	36	CHWORD(1:1) = MS(JS:JS)
	37	#if defined(CERNLIB_F90) \|\| defined(CERNLIB_QFEPC)
	38	MT(JS) = transfer(CHWORD,IWORD)
	39	#else
	40	MT(JS) = IWORD
	41	#endif
	42	24 CONTINUE
	43	29 RETURN
	44
	45	91 CALL ABEND
	46	END