5 * Revision 1.2 1996/04/18 16:14:55 mclareni
6 * Incorporate changes from J.Zoll for version 3.77
8 * Revision 1.1.1.1 1996/03/06 10:47:27 mclareni
12 #include "zebra/pilot.h"
13 SUBROUTINE TZSHUN (IXSTOR,LBK,IFLAG)
15 C- Shunt new banks(s) into the title structure
17 #include "zebra/mqsys.inc"
18 #include "zebra/eqlqt.inc"
19 C-------------- END CDE -----------------
20 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
22 DATA NAMESR / 4HTZSH, 4HUN /
24 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
25 DATA NAMESR / 6HTZSHUN /
27 #if !defined(CERNLIB_QTRHOLL)
29 PARAMETER (NAMESR = 'TZSHUN ')
32 #include "zebra/q_jbyt.inc"
34 #include "zebra/qtraceq.inc"
36 #include "zebra/qstore.inc"
40 IF (IFLAG.NE.0) GO TO 31
44 24 IF (LQ(KQS+L).NE.0) THEN
49 CALL ZSHUNT (IXSTOR,LBK,L,0,1)
52 C-- connect at the start
54 31 CALL ZSHUNT (IXSTOR,LBK,LQT(KQT+1),1,1)
56 #include "zebra/qtrace99.inc"
59 * ==================================================
60 #include "zebra/qcardl.inc"