Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qend / ztell.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/03/06 10:47:14 mclareni
6* Zebra
7*
8*
9#include "zebra/pilot.h"
10 SUBROUTINE ZTELL (IDP,JFLP)
11
12C- Signal trouble situation,
13C- called from the garbage collector if not enough space
14C- may be user called with IDP > 100
15
16#include "zebra/zstate.inc"
17#include "zebra/zunit.inc"
18#include "zebra/quest.inc"
19#include "zebra/mzca.inc"
20#include "zebra/mzcb.inc"
21#include "zebra/fzcx.inc"
22C-------------- END CDE --------------
23 COMMON /ZTELLC/ ID,JFLUS
24
25 DIMENSION IDP(9), JFLP(9)
26
27 PARAMETER (NLIST = 3 )
28 DIMENSION LIST(NLIST), JFLDEF(NLIST)
29#if defined(CERNLIB_QMVDS)
30 SAVE LIST, JFLDEF
31#endif
32#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
33 DIMENSION NAMESR(2)
34 DATA NAMESR / 4HZTEL, 4HL /
35#endif
36#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
37 DATA NAMESR / 6HZTELL /
38#endif
39#if !defined(CERNLIB_QTRHOLL)
40 CHARACTER NAMESR*8
41 PARAMETER (NAMESR = 'ZTELL ')
42#endif
43 DATA LIST / 19, 61, 62 /
44 DATA JFLDEF / 2, 2, 2 /
45
46C- Return code: 0 return, 1 QNEXT, 2 ZFATAL, 3 ZEND
47
48
49 ID = IDP(1)
50 JFLUS = JFLP(1)
51 JFLSV = MAX (JFLUS,0)
52 IQUEST(1) = ID
53#if defined(CERNLIB_QPRINT)
54 LOGLEV = NQLOGD
55 IF (ID.GE.11) THEN
56 IF (ID.LE.19) LOGLEV = MAX (LOGLEV,LOGLVX)
57 IF (ID.EQ.15) LOGLEV = MAX (LOGLEV,NQLOGL)
58 IF (ID.EQ.99) LOGLEV = MAX (LOGLEV,NQLOGL)
59 ENDIF
60 IF (LOGLEV.GE.1) WRITE (IQLOG,9001) ID,JFLUS
61 9001 FORMAT (' ZTELL. ---- Called for Condition',I5,',',I4)
62#endif
63
64C-- System conditions
65
66 IF (ID.GE.100) GO TO 31
67 J = IUCOMP (ID,LIST,NLIST)
68 IF (J.NE.0) THEN
69 JFLUS = JFLDEF(J)
70 ENDIF
71
72C-- CALL ZTELUS
73
74 31 CALL ZTELUS
75 JFLUS = MAX (JFLUS,JFLSV)
76 JFLUS = MIN (JFLUS,3) + 1
77 GO TO (40,41,42,43), JFLUS
78
79 41 IF (NQPHAS.LE.0) GO TO 42
80 NQTRAC = 0
81 CALL QNEXTE
82
83 43 NQPHAS = -2
84 CALL ZEND
85
86 42 CONTINUE
87#include "zebra/qtrace.inc"
88 CALL ZFATAM ('EXIT VIA ZTELL.')
89
90 40 RETURN
91 END
92* ==================================================
93#include "zebra/qcardl.inc"