Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qend / zend.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 ZEND
11
12 C-    DEFAULT FOR THE USER ROUTINE FOR PROGRAM STOP
13
14 #include "zebra/zstate.inc"
15 #include "zebra/zunit.inc"
16 C--------------    END CDE                             --------------
17
18
19       CALL ZPHASE (-1)
20       CALL MZEND
21
22       IF (NQERR.EQ.0)              GO TO 99
23       CALL ABEND
24    99 CONTINUE
25       STOP
26       END
27 *      ==================================================
28 #include "zebra/qcardl.inc"