[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / jz91 / jzwind.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:16  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE JZWIND (CHPA1)

C-    Reset processor for trap transfer

#include "zebra/zunit.inc"
#include "zebra/mqsysh.inc"
#include "zebra/jzuc.inc"
#include "zebra/jzc.inc"
C--------------    END CDE                             -----------------  ------
      CHARACTER    CHPA1*4
#if defined(CERNLIB_A4)
      CHARACTER    CHNMTO*4, CHIAM*4
#endif
#if defined(CERNLIB_A8)
      CHARACTER    CHNMTO*8, CHIAM*8
#endif
#if defined(CERNLIB_EQUHOLCH)
      INTEGER      IAMTO
      EQUIVALENCE (CHNMTO, IAMTO), (CHIAM, NQME(1))
#endif
#if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
      DIMENSION    NAMESR(2)
      DATA  NAMESR / 4HJZWI, 4HND   /
#endif
#if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
      DATA  NAMESR / 6HJZWIND /
#endif
#if !defined(CERNLIB_QTRHOLL)
      CHARACTER    NAMESR*8
      PARAMETER   (NAMESR = 'JZWIND  ')
#endif

#if defined(CERNLIB_QDEBUG)
#include "zebra/q_jbit.inc"
#endif

      IF (JQLEV.LE.0)              RETURN

#include "zebra/qtraceq.inc"

      CHNMTO  = CHPA1
#if defined(CERNLIB_EQUHOLCH)
   21 IF (NQME(1).NE.IAMTO)  THEN
          IF (JQLEV.EQ.0)          GO TO 91
          CALL JZOUT ('??? ')
          GO TO 21
        ENDIF
#endif
#if !defined(CERNLIB_EQUHOLCH)
   21 CALL UHTOC (NQME(1),4,CHIAM,4)
      IF (CHIAM(1:4).NE.CHNMTO(1:4))  THEN
          IF (JQLEV.EQ.0)          GO TO 91
          CALL JZOUT ('??? ')
          GO TO 21
        ENDIF
#endif

#if defined(CERNLIB_QDEBUG)
      IF (JBIT(JQLLEV,13).NE.0)  WRITE (IQLOG,9016) CHNMTO(1:4)
 9016 FORMAT    (/' =======  JZWIND to "',A,' done.')
#endif
      IQUEST(1) = 0
#include "zebra/qtrace99.inc"
      RETURN

   91 IQUEST(1) = 7
      GO TO 999
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	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 CHNMTO4, CHIAM4
	22	#endif
	23	#if defined(CERNLIB_A8)
	24	CHARACTER CHNMTO8, CHIAM8
	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"