*
* $Id: uhtoc.F,v 1.1.1.1 1996/02/15 17:53:50 mclareni Exp $
*
* $Log: uhtoc.F,v $
* Revision 1.1.1.1  1996/02/15 17:53:50  mclareni
* Kernlib
*
*
#include "kerntmo/pilot.h"
      SUBROUTINE UHTOC (IHOLL,NPW,KCHAR,NCH)
C
C CERN PROGLIB# M409    UHTOC           .VERSION KERNTMO  1.00  890208
C ORIG. 03/02/89  K.M.STORR
C
      CHARACTER* (*) KCHAR
      CHARACTER*1 CHBUF(400)
      INTEGER*4    IHOLL(100),NCH,NPW(100)
      INTEGER*4    HOLPAS(100)
      EQUIVALENCE  (CHBUF(1),HOLPAS(1))
C
      CALL UTRANS (IHOLL,HOLPAS,NCH,NPW,99)
C
      DO 1 JED = 1, NCH
         KCHAR( JED:JED ) = CHBUF( JED )
 1    CONTINUE
C
      RETURN
      END
#ifdef CERNLIB_TCGEN_UHTOC
#undef CERNLIB_TCGEN_UHTOC
#endif