[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qend / ztell.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE ZTELL (IDP,JFLP)

C-    Signal trouble situation,
C-    called from the garbage collector if not enough space
C-    may be user called with IDP > 100

#include "zebra/zstate.inc"
#include "zebra/zunit.inc"
#include "zebra/quest.inc"
#include "zebra/mzca.inc"
#include "zebra/mzcb.inc"
#include "zebra/fzcx.inc"
C--------------    END CDE                             --------------
      COMMON /ZTELLC/  ID,JFLUS

      DIMENSION    IDP(9), JFLP(9)

      PARAMETER   (NLIST = 3 )
      DIMENSION    LIST(NLIST), JFLDEF(NLIST)
#if defined(CERNLIB_QMVDS)
      SAVE         LIST, JFLDEF
#endif
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HZTEL, 4HL    /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HZTELL  /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'ZTELL   ')
#endif
      DATA  LIST   / 19, 61, 62 /
      DATA  JFLDEF /  2,  2,  2 /

C-    Return code:   0 return, 1 QNEXT, 2 ZFATAL, 3 ZEND


      ID    = IDP(1)
      JFLUS = JFLP(1)
      JFLSV = MAX (JFLUS,0)
      IQUEST(1) = ID
#if defined(CERNLIB_QPRINT)
      LOGLEV = NQLOGD
      IF (ID.GE.11)  THEN
          IF (ID.LE.19)  LOGLEV = MAX (LOGLEV,LOGLVX)
          IF (ID.EQ.15)  LOGLEV = MAX (LOGLEV,NQLOGL)
          IF (ID.EQ.99)  LOGLEV = MAX (LOGLEV,NQLOGL)
        ENDIF
      IF (LOGLEV.GE.1)   WRITE (IQLOG,9001)  ID,JFLUS
 9001 FORMAT (' ZTELL.  ----   Called for Condition',I5,',',I4)
#endif

C--                System conditions

      IF (ID.GE.100)               GO TO 31
      J = IUCOMP (ID,LIST,NLIST)
      IF (J.NE.0)   THEN
          JFLUS = JFLDEF(J)
        ENDIF

C--                CALL ZTELUS

   31 CALL ZTELUS
      JFLUS = MAX (JFLUS,JFLSV)
      JFLUS = MIN (JFLUS,3) + 1
      GO TO (40,41,42,43), JFLUS

   41 IF (NQPHAS.LE.0)             GO TO 42
      NQTRAC = 0
      CALL QNEXTE

   43 NQPHAS = -2
      CALL ZEND

   42 CONTINUE
#include "zebra/qtrace.inc"
      CALL ZFATAM ('EXIT VIA ZTELL.')

   40 RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
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
	12	C- Signal trouble situation,
	13	C- called from the garbage collector if not enough space
	14	C- 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"
	22	C-------------- 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
	46	C- 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
	64	C-- 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
72	C-- 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"