MINICERN/packlib/zebra/jz91/jzwind.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:16  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE JZWIND (CHPA1)
  11
  12 C-    Reset processor for trap transfer
  13
  14 #include "zebra/zunit.inc"
  15 #include "zebra/mqsysh.inc"
  16 #include "zebra/jzuc.inc"
  17 #include "zebra/jzc.inc"
  18 C--------------    END CDE                             -----------------  ------
  19       CHARACTER    CHPA1*4
  20 #if defined(CERNLIB_A4)
  21       CHARACTER    CHNMTO*4, CHIAM*4
  22 #endif
  23 #if defined(CERNLIB_A8)
  24       CHARACTER    CHNMTO*8, CHIAM*8
  25 #endif
  26 #if defined(CERNLIB_EQUHOLCH)
  27       INTEGER      IAMTO
  28       EQUIVALENCE (CHNMTO, IAMTO), (CHIAM, NQME(1))
  29 #endif
  30 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  31       DIMENSION    NAMESR(2)
  32       DATA  NAMESR / 4HJZWI, 4HND   /
  33 #endif
  34 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  35       DATA  NAMESR / 6HJZWIND /
  36 #endif
  37 #if !defined(CERNLIB_QTRHOLL)
  38       CHARACTER    NAMESR*8
  39       PARAMETER   (NAMESR = 'JZWIND  ')
  40 #endif
  41
  42 #if defined(CERNLIB_QDEBUG)
  43 #include "zebra/q_jbit.inc"
  44 #endif
  45
  46       IF (JQLEV.LE.0)              RETURN
  47
  48 #include "zebra/qtraceq.inc"
  49
  50       CHNMTO  = CHPA1
  51 #if defined(CERNLIB_EQUHOLCH)
  52    21 IF (NQME(1).NE.IAMTO)  THEN
  53           IF (JQLEV.EQ.0)          GO TO 91
  54           CALL JZOUT ('??? ')
  55           GO TO 21
  56         ENDIF
  57 #endif
  58 #if !defined(CERNLIB_EQUHOLCH)
  59    21 CALL UHTOC (NQME(1),4,CHIAM,4)
  60       IF (CHIAM(1:4).NE.CHNMTO(1:4))  THEN
  61           IF (JQLEV.EQ.0)          GO TO 91
  62           CALL JZOUT ('??? ')
  63           GO TO 21
  64         ENDIF
  65 #endif
  66
  67 #if defined(CERNLIB_QDEBUG)
  68       IF (JBIT(JQLLEV,13).NE.0)  WRITE (IQLOG,9016) CHNMTO(1:4)
  69  9016 FORMAT    (/' =======  JZWIND to "',A,' done.')
  70 #endif
  71       IQUEST(1) = 0
  72 #include "zebra/qtrace99.inc"
  73       RETURN
  74
  75    91 IQUEST(1) = 7
  76       GO TO 999
  77       END
  78 *      ==================================================
  79 #include "zebra/qcardl.inc"