]>
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 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" |