*
* $Id: izchav.F,v 1.1.1.1 1996/03/06 10:47:14 mclareni Exp $
*
* $Log: izchav.F,v $
* Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
#if (defined(CERNLIB_Z32))&&(defined(CERNLIB_EQUHOLCH))
#include "qutyz32/izchav.F"
#elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_SINGLE))
#include "not_cern/qutycvx/izchav.F"
#elif defined(CERNLIB_CRAY)
#include "not_cern/qutycry/izchav.F"
#elif defined(CERNLIB_CDC)
#include "not_cern/qutycdc/izchav.F"
#else
      SUBROUTINE IZCHAV (NP)

#include "zebra/zceta.inc"
#include "zebra/zkrakcc.inc"
C--------------    END CDE                             --------------
      DIMENSION    NP(9)


      N = NP(1)

      DO 29  JCE=1,N
      JV = ICHAR (CQHOLK(JCE:JCE))
   29 IQCETK(JCE) = IQCETA(JV+1)
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
#endif