Changes needed by ICC/IFC compiler (Intel)
[u/mrichter/AliRoot.git] / 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"