git://git.uio.no / u / mrichter / AliRoot.git / blame
| Commit | Line | Data |
|---|---|---|
| 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 | ||
| 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" |