MINICERN/packlib/zebra/qend/zabend.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 ZABEND
  11
  12 C-    DEFAULT FOR THE USER ROUTINE TO HANDLE ABNORMAL PROGRAM END
  13
  14 #include "zebra/zstate.inc"
  15 #include "zebra/zunit.inc"
  16
  17       CALL ZPOSTM ('TCWM.')
  18       IF (NQPHAS.GT.0)             GO TO 12
  19       CALL ABEND
  20    12 NQPHAS = -2
  21       CALL ZEND
  22       RETURN
  23       END
  24 *      ==================================================
  25 #include "zebra/qcardl.inc"