Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qend / zfatam.F
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 ZFATAM (MESSAG)
11
12 C-    FATAL PROGRAM TERMINATION WITH MESSAGE
13
14 #include "zebra/mzca.inc"
15 #include "zebra/zstate.inc"
16 #include "zebra/zunit.inc"
17 C--------------    END CDE                             --------------
18       CHARACTER    MESSAG*(*)
19 #if defined(CERNLIB_QMVDS)
20       SAVE         INIT
21 #endif
22 #include "zebra/zfatalch.inc"
23
24 #include "zebra/zfatalre.inc"
25
26 #if defined(CERNLIB_QPRINT)
27       IF (NQERR.GE.3)  GO TO 19
28       NQERR = NQERR+1
29
30       WRITE (IQLOG,9001) MESSAG
31
32       IF (IQTYPE.EQ.0)             GO TO 18
33       IF (IQTYPE.EQ.IQLOG)         GO TO 18
34       WRITE (IQTYPE,9001) MESSAG
35  9001 FORMAT (1X/' ZFATAM.  !!!!!  Going to ZFATAL for ',A)
36
37    18 NQERR = NQERR - 1
38 #endif
39    19 CALL ZFATAL
40
41       END
42 *      ==================================================
43 #include "zebra/qcardl.inc"