* * $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