Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qend / zabend.F
CommitLineData
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 ZABEND
11
12C- 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"