MINICERN/packlib/zebra/qutil/nzfind.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:13:40  mclareni
   6 * Incorporate changes from J.Zoll for version 3.77
   7 *
   8 * Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
   9 * Zebra
  10 *
  11 *
  12 #include "zebra/pilot.h"
  13       FUNCTION NZFIND (IXSTOR,LGO,ITEXT,JWORD)
  14
  15 C-    FIND AND COUNT ALL BANKS CONTAINING ITEXT IN WORD JWORD
  16 C-    SEARCH LINEAR STRUCTURE STARTING WITH BANK AT LGO
  17 C-    RETURN COUNT AS VALUE, BANK ADRS IN IQUEST
  18
  19 #include "zebra/q.inc"
  20 #include "zebra/quest.inc"
  21 C--------------    END CDE                             --------------
  22
  23 #include "zebra/q_jbyt.inc"
  24
  25 #include "zebra/qstore.inc"
  26
  27       NCOUNT = 0
  28       L      = LGO
  29       IF (L.EQ.0)                    GO TO 39
  30       IF (IQ(KQS+L+JWORD).EQ.ITEXT)   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)   GO TO 21
  35
  36    24 NCOUNT = NCOUNT + 1
  37       IF (NCOUNT.GE.101)           GO TO 21
  38       IQUEST(NCOUNT) = L
  39       GO TO 21
  40
  41    39 NZFIND = NCOUNT
  42       RETURN
  43       END
  44 *      ==================================================
  45 #include "zebra/qcardl.inc"