Changes needed by ICC/IFC compiler (Intel)
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jzonly.F
CommitLineData
fe4da5cc 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
12C- PURGE REDUNDANT PROCESSORS TITLES
13
14#include "zebra/mqsysh.inc"
15#include "zebra/jzuc.inc"
16#include "zebra/jzc.inc"
17C-------------- 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"