5 * Revision 1.1.1.1 1996/03/06 10:47:14 mclareni
9 #include "zebra/pilot.h"
10 #if (defined(CERNLIB_Z32))&&(defined(CERNLIB_EQUHOLCH))
11 #include "qutyz32/izchav.F"
12 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_SINGLE))
13 #include "not_cern/qutycvx/izchav.F"
14 #elif defined(CERNLIB_CRAY)
15 #include "not_cern/qutycry/izchav.F"
16 #elif defined(CERNLIB_CDC)
17 #include "not_cern/qutycdc/izchav.F"
19 SUBROUTINE IZCHAV (NP)
21 #include "zebra/zceta.inc"
22 #include "zebra/zkrakcc.inc"
23 C-------------- END CDE --------------
30 JV = ICHAR (CQHOLK(JCE:JCE))
31 29 IQCETK(JCE) = IQCETA(JV+1)
34 * ==================================================
35 #include "zebra/qcardl.inc"