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"