Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jzwind.F
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
12 C-    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"
18 C--------------    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"