5 * Revision 1.2 1996/04/18 16:13:46 mclareni
6 * Incorporate changes from J.Zoll for version 3.77
8 * Revision 1.1.1.1 1996/03/06 10:47:15 mclareni
12 #include "zebra/pilot.h"
13 SUBROUTINE ZSORTI (IXSTOR,LGOP,JWORD)
15 C- SORT BANKS AT LGO FOR WORDS IQ(L+JWORD) TO BE IN INCREASING ORDER
17 #include "zebra/mqsys.inc"
18 C-------------- END CDE --------------
19 DIMENSION JWORD(9), LGOP(9)
21 #if (defined(CERNLIB_QTRHOLL))&&(!defined(CERNLIB_A6M))
23 DATA NAMESR / 4HZSOR, 4HTI /
25 #if (defined(CERNLIB_QTRHOLL))&&(defined(CERNLIB_A6M))
26 DATA NAMESR / 6HZSORTI /
28 #if !defined(CERNLIB_QTRHOLL)
30 PARAMETER (NAMESR = 'ZSORTI ')
33 #include "zebra/q_jbyt.inc"
38 #include "zebra/qtraceq.inc"
39 #include "zebra/qstore.inc"
42 KGONG = LQSTA(KQT+2) - 1
52 IF (KEYN.LT.0 ) GO TO 62
54 C-------- +VE IN-SEQUENCE LOOP FOR BANKS WITH +VE KEY
55 C-- KEEP GOING FOR INCREASING KEYS
65 IF (KEYN.LT.0 ) GO TO 61
66 24 IF (KEYN-KEYPL) 28, 23, 23
70 C-------- OUT-SEQUENCE LOOP, FIND PLACE FOR BANK IN THE CHAIN
71 C-- OF BANKS ALREADY SORTED, +VE OR -VE CHAIN
77 IF (KEYN-IQ(KQS+LS+JW)) 48, 43, 43
81 IF (LNX.EQ.0) GO TO 81
84 IF (KEYN.GE.0 ) GO TO 21
86 C-------- -VE IN-SEQUENCE LOOP FOR BANKS WITH -VE KEY
87 C-- KEEP GOING FOR INCREASING KEYS
92 IF (KEYNG.NE.0 ) GO TO 64
99 IF (KEYN.GE.0 ) GO TO 21
100 64 IF (KEYN-KEYNG) 41, 63, 63
102 C---- FINISHED, LINK +VE AND -VE STREAMS, CHAIN K-LINKS
104 81 IF (IFL.EQ.0) GO TO 999
106 LQ(KQS+LLNG) = LQ(KQS+KGOPL)
111 IF (K.NE.0) LQ(KQS+K)=L
116 IF (L.EQ.0) GO TO 999
120 #include "zebra/qtrace99.inc"
123 * ==================================================
124 #include "zebra/qcardl.inc"