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"