MINICERN/packlib/zebra/qutil/izbcdt.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.3  1998/09/25 09:33:21  mclareni
   6 * Modifications for the Mklinux port flagged by CERNLIB_PPC
   7 *
   8 * Revision 1.2  1996/09/23 12:20:34  cernlib
   9 * add Linux
  10 *
  11 * Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
  12 * Zebra
  13 *
  14 *
  15 #include "zebra/pilot.h"
  16 #if defined(CERNLIB_Z32)
  17 #include "qutyz32/izbcdt.F"
  18 #elif (defined(CERNLIB_VAXVMS))||(defined(CERNLIB_QMVMI)) \
  19     ||(defined(CERNLIB_QMDOS))||(defined(CERNLIB_TMO)) \
  20     ||((defined(CERNLIB_QMLNX) && !defined(CERNLIB_PPC)))
  21 #include "qutyinv/izbcdt.F"
  22 #elif (defined(CERNLIB_CONVEX))&&(defined(CERNLIB_SINGLE))
  23 #include "not_cern/qutycvx/izbcdt.F"
  24 #elif defined(CERNLIB_CRAY)
  25 #include "not_cern/qutycry/izbcdt.F"
  26 #elif defined(CERNLIB_CDC)
  27 #include "not_cern/qutycdc/izbcdt.F"
  28 #elif defined(CERNLIB_PDP)
  29 #include "not_cern/qutypdp/izbcdt.F"
  30 #else
  31       SUBROUTINE IZBCDT (NP,ITABT)
  32
  33 C-    This is a very slow stop-gap solution only  !!!
  34
  35 #include "zebra/quest.inc"
  36 #include "zebra/zkrakc.inc"
  37 #include "zebra/zbcd.inc"
  38 C--------------    END CDE                             --------------
  39       DIMENSION    NP(9), ITABT(99)
  40
  41
  42       N     = NP(1)
  43       LIM   = ITABT(1)
  44       JGOOD = 0
  45       JBAD  = 0
  46
  47       DO 29  JWH=1,N
  48       JV = IUCOMP (IQHOLK(JWH),IQLETT(1),LIM)
  49
  50       IF (JV.EQ.0)                 GO TO 27
  51       JV = ITABT(JV+1)
  52       IF   (JV+1)            29, 27, 24
  53    24 JGOOD = JGOOD + 1
  54       IQCETK(JGOOD) = JV
  55       GO TO 29
  56
  57    27 JBAD = JBAD + 1
  58    29 CONTINUE
  59       IQUEST(1) = JGOOD
  60       IQUEST(2) = JBAD
  61       RETURN
  62       END
  63 *      ==================================================
  64 #include "zebra/qcardl.inc"
  65 #endif