Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jzwind.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/03/06 10:47:16 mclareni
6* Zebra
7*
8*
9#include "zebra/pilot.h"
10 SUBROUTINE JZWIND (CHPA1)
11
12C- Reset processor for trap transfer
13
14#include "zebra/zunit.inc"
15#include "zebra/mqsysh.inc"
16#include "zebra/jzuc.inc"
17#include "zebra/jzc.inc"
18C-------------- END CDE ----------------- ------
19 CHARACTER CHPA1*4
20#if defined(CERNLIB_A4)
21 CHARACTER CHNMTO*4, CHIAM*4
22#endif
23#if defined(CERNLIB_A8)
24 CHARACTER CHNMTO*8, CHIAM*8
25#endif
26#if defined(CERNLIB_EQUHOLCH)
27 INTEGER IAMTO
28 EQUIVALENCE (CHNMTO, IAMTO), (CHIAM, NQME(1))
29#endif
30#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
31 DIMENSION NAMESR(2)
32 DATA NAMESR / 4HJZWI, 4HND /
33#endif
34#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
35 DATA NAMESR / 6HJZWIND /
36#endif
37#if !defined(CERNLIB_QTRHOLL)
38 CHARACTER NAMESR*8
39 PARAMETER (NAMESR = 'JZWIND ')
40#endif
41
42#if defined(CERNLIB_QDEBUG)
43#include "zebra/q_jbit.inc"
44#endif
45
46 IF (JQLEV.LE.0) RETURN
47
48#include "zebra/qtraceq.inc"
49
50 CHNMTO = CHPA1
51#if defined(CERNLIB_EQUHOLCH)
52 21 IF (NQME(1).NE.IAMTO) THEN
53 IF (JQLEV.EQ.0) GO TO 91
54 CALL JZOUT ('??? ')
55 GO TO 21
56 ENDIF
57#endif
58#if !defined(CERNLIB_EQUHOLCH)
59 21 CALL UHTOC (NQME(1),4,CHIAM,4)
60 IF (CHIAM(1:4).NE.CHNMTO(1:4)) THEN
61 IF (JQLEV.EQ.0) GO TO 91
62 CALL JZOUT ('??? ')
63 GO TO 21
64 ENDIF
65#endif
66
67#if defined(CERNLIB_QDEBUG)
68 IF (JBIT(JQLLEV,13).NE.0) WRITE (IQLOG,9016) CHNMTO(1:4)
69 9016 FORMAT (/' ======= JZWIND to "',A,' done.')
70#endif
71 IQUEST(1) = 0
72#include "zebra/qtrace99.inc"
73 RETURN
74
75 91 IQUEST(1) = 7
76 GO TO 999
77 END
78* ==================================================
79#include "zebra/qcardl.inc"