Mostly minor style modifications to be ready for cloning with EMCAL
[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qend / zend.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 ZEND
11
12C- DEFAULT FOR THE USER ROUTINE FOR PROGRAM STOP
13
14#include "zebra/zstate.inc"
15#include "zebra/zunit.inc"
16C-------------- 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"