MINICERN/packlib/zebra/tq/tzshun.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:14:55  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:27  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       SUBROUTINE TZSHUN (IXSTOR,LBK,IFLAG)
  14
  15 C-    Shunt new banks(s) into the title structure
  16
  17 #include "zebra/mqsys.inc"
  18 #include "zebra/eqlqt.inc"
  19 C--------------    END CDE                             -----------------
  20 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
  21       DIMENSION    NAMESR(2)
  22       DATA  NAMESR / 4HTZSH, 4HUN   /
  23 #endif
  24 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
  25       DATA  NAMESR / 6HTZSHUN /
  26 #endif
  27 #if !defined(CERNLIB_QTRHOLL)
  28       CHARACTER    NAMESR*8
  29       PARAMETER   (NAMESR = 'TZSHUN  ')
  30 #endif
  31
  32 #include "zebra/q_jbyt.inc"
  33
  34 #include "zebra/qtraceq.inc"
  35
  36 #include "zebra/qstore.inc"
  37
  38       L = LQT(KQT+1)
  39       IF (L.EQ.0)                  GO TO 31
  40       IF (IFLAG.NE.0)              GO TO 31
  41
  42 C--       go to the end
  43
  44    24 IF (LQ(KQS+L).NE.0)  THEN
  45           L = LQ(KQS+L)
  46           GO TO 24
  47         ENDIF
  48
  49       CALL ZSHUNT (IXSTOR,LBK,L,0,1)
  50       GO TO 999
  51
  52 C--       connect at the start
  53
  54    31 CALL ZSHUNT (IXSTOR,LBK,LQT(KQT+1),1,1)
  55
  56 #include "zebra/qtrace99.inc"
  57       RETURN
  58       END
  59 *      ==================================================
  60 #include "zebra/qcardl.inc"