MINICERN/packlib/zebra/qutil/lzfind.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:13:33  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 LZFIND (IXSTOR,LGO,ITEXT,JWORD)
  14
  15 C-    FIND BANK CONTAINING ITEXT IN WORD JWORD
  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
  22 #include "zebra/q_jbyt.inc"
  23
  24 #include "zebra/qstore.inc"
  25
  26       L = LGO
  27    21 IF (L.EQ.0)                    GO TO 29
  28       IF (IQ(KQS+L+JWORD).EQ.ITEXT)   GO TO 29
  29       L = LQ(KQS+L)
  30       GO TO 21
  31
  32    29 LZFIND= L
  33       RETURN
  34       END
  35 *      ==================================================
  36 #include "zebra/qcardl.inc"