MINICERN/packlib/zebra/qutil/lzlong.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:13:39  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       FUNCTION LZLONG (IXSTOR,LGO,NTEXT,ITEXT,JWORD)
  14
  15 C-    FIND BANK WITH ITEXT(1-NTEXT) IN WORDS JWORD,..,JWORD+NTEXT-1
  16 C-    SEARCH LINEAR STRUCTURE STARTING WITH BANK AT LGO
  17 C-    RETURN BANK-ADR AS VALUE
  18
  19 #include "zebra/q.inc"
  20 C--------------    END CDE                             --------------
  21       DIMENSION    ITEXT(9)
  22
  23 #include "zebra/q_jbyt.inc"
  24
  25 #include "zebra/qstore.inc"
  26
  27       N2 = NTEXT  - 2
  28       L  = LGO
  29       IF (L.EQ.0)                    GO TO 39
  30       IF (IQ(KQS+L+JWORD).EQ.ITEXT(1))  GO TO 24
  31
  32    21 L = LQ(KQS+L)
  33       IF (L.EQ.0)                    GO TO 39
  34       IF (IQ(KQS+L+JWORD).NE.ITEXT(1))  GO TO 21
  35
  36    24 IF  (N2)               39, 28, 26
  37
  38    26 LB = L + JWORD - 1
  39       DO 27 J=2,NTEXT
  40       IF (IQ(KQS+LB+J).NE.ITEXT(J))     GO TO 21
  41    27 CONTINUE
  42       GO TO 39
  43
  44    28 IF (IQ(KQS+L+JWORD+1).NE.ITEXT(2))  GO TO 21
  45    39 LZLONG = L
  46       RETURN
  47       END
  48 *      ==================================================
  49 #include "zebra/qcardl.inc"