MINICERN/packlib/zebra/qend/zpostm.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:13  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE ZPOSTM (CHDUMP)
  11
  12 C--                POST-MORTEM OF ZEBRA SYSTEM
  13
  14 #include "zebra/zstate.inc"
  15 #include "zebra/zunit.inc"
  16 #include "zebra/mqsys.inc"
  17 #include "zebra/mzcl.inc"
  18 #include "zebra/mzcn.inc"
  19 C--------------    END CDE                             --------------
  20       CHARACTER    CHDUMP*(*)
  21       DIMENSION    IVQCL(8), IVQCN(7)
  22       EQUIVALENCE (IVQCL(1),NQLN), (IVQCN(1),IQLN)
  23
  24
  25       WRITE (IQLOG,9001)
  26       WRITE (IQLOG,9031)  (IQUEST(J),J=1,40)
  27       WRITE (IQLOG,9011)  (IQUEST(J),J=1,40)
  28       WRITE (IQLOG,9035)  IVQCL
  29       WRITE (IQLOG,9011)  IVQCL
  30       WRITE (IQLOG,9036)  IVQCN
  31       WRITE (IQLOG,9011)  IVQCN
  32       CALL MZMAPS
  33
  34 #if defined(CERNLIB_CDC)
  35       CALL TRACEQR (IQLOG,12)
  36 #elif defined (CERNLIB_CRAY)
  37       CALL TRBK (IQLOG)
  38 #elif defined (CERNLIB_CONVEX)
  39       CALL TRACEBACK
  40 #elif defined (CERNLIB_IBM)
  41       CALL ERRTRA
  42 #elif defined (CERNLIB_IBMD)
  43       CALL ERRTRA
  44 #else
  45       CALL TRACEQ (IQLOG,12)
  46 #endif
  47       IQDLUN = IQLOG
  48       IXSTOR = 0
  49       CALL SBYT (JQSTOR,IXSTOR,27,4)
  50       CALL DZSNAP ('ZPOSTM',IXSTOR,CHDUMP)
  51
  52       IF (NQERR.LT.100)  RETURN
  53       CALL MZEND
  54       CALL ABEND
  55
  56  9001 FORMAT ('1ZEBRA SYSTEM Post-Mortem from ZPOSTM.'/1X)
  57 #if (!defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M))
  58  9011 FORMAT (2X,5O23)
  59  9031 FORMAT (' /QUEST/'/(2X,5I23))
  60 #endif
  61 #if (!defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M))
  62  9011 FORMAT (2X,5O18)
  63  9031 FORMAT (' /QUEST/'/(2X,5I18))
  64 #endif
  65 #if (defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M))
  66  9011 FORMAT (2X,5Z18)
  67  9031 FORMAT (' /QUEST/'/(2X,5I18))
  68 #endif
  69 #if (defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M))
  70  9011 FORMAT (2X,8Z13)
  71  9031 FORMAT (' /QUEST/'/(2X,8I13))
  72 #endif
  73  9035 FORMAT (1X/' Last Bank Lifted - '
  74      F,'COMMON /MZCL/LFW,LS,NIO,ID,NL,NS,ND,IOCH(1)'
  75      F/2X,2(1X,I9),1X,I3,1X,A5,3(1X,I7),
  76 #if (!defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M))
  77      FO22,' oct')
  78 #endif
  79 #if (!defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M))
  80      FO17,' oct')
  81 #endif
  82 #if (defined(CERNLIB_HEX))&&(defined(CERNLIB_B60M))
  83      FZ17,' hex')
  84 #endif
  85 #if (defined(CERNLIB_HEX))&&(!defined(CERNLIB_B60M))
  86      FZ13,' hex')
  87 #endif
  88  9036 FORMAT (1X/' Last Bank analysed - '
  89      F,'COMMON /MZCN/LFW,LS,NIO,ID,NL,NS,ND'
  90      F/2X,2(1X,I9),1X,I3,1X,A5,3(1X,I7))
  91       END
  92 *      ==================================================
  93 #include "zebra/qcardl.inc"