MINICERN/packlib/zebra/jz91/jzonly.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:17  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE JZONLY (IDV)
  11
  12 C-    PURGE REDUNDANT PROCESSORS TITLES
  13
  14 #include "zebra/mqsysh.inc"
  15 #include "zebra/jzuc.inc"
  16 #include "zebra/jzc.inc"
  17 C--------------    END CDE                             -----------------  ------
  18       DIMENSION    IDV(99)
  19
  20 #include "zebra/qstorjz.inc"
  21
  22       NID = IDV(1)
  23       IFL = 0
  24       L   = LQJZ - 1
  25
  26    21 L = LQ(KQS+L)
  27       IF (L.NE.0)  THEN
  28           IF (IUCOMP(IQ(KQS+L+1),IDV(2),NID).NE.0)   GO TO 21
  29           CALL MZDROP (IXSTJZ,L, '.')
  30           GO TO 21
  31         ENDIF
  32
  33 #if defined(CERNLIB_QDEBUG)
  34       IF (IFL.EQ.0)  THEN
  35           IFL = 1
  36           L   = LQJZ - 2
  37           GO TO 21
  38         ENDIF
  39 #endif
  40       RETURN
  41       END
  42 *      ==================================================
  43 #include "zebra/qcardl.inc"