MINICERN/packlib/zebra/qutil/nzlong.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:13:41  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 NZLONG (IXSTOR,LGO,NTEXT,ITEXT,JWORD)
  14
  15 C-    FIND AND COUNT ALL BANKS CONTAINING ITEXT(1-NTEXT)
  16 C-    IN WORDS JWORD, .., JWORD+NTEXT-1
  17 C-    SEARCH LINEAR STRUCTURE STARTING WITH BANK AT LGO
  18 C-    RETURN COUNT AS VALUE, BANK ADRS IN IQUEST
  19
  20 #include "zebra/q.inc"
  21 #include "zebra/quest.inc"
  22 C--------------    END CDE                             --------------
  23       DIMENSION    ITEXT(9)
  24
  25 #include "zebra/q_jbyt.inc"
  26
  27 #include "zebra/qstore.inc"
  28
  29       NCOUNT = 0
  30       N2     = NTEXT  - 2
  31       L      = LGO
  32       IF (L.EQ.0)                    GO TO 39
  33       IF (IQ(KQS+L+JWORD).EQ.ITEXT(1))  GO TO 24
  34
  35    21 L = LQ(KQS+L)
  36       IF (L.EQ.0)                    GO TO 39
  37       IF (IQ(KQS+L+JWORD).NE.ITEXT(1))  GO TO 21
  38
  39    24 IF  (N2)               29, 28, 26
  40
  41    26 LB = L + JWORD - 1
  42       DO 27 J=2,NTEXT
  43       IF (IQ(KQS+LB+J).NE.ITEXT(J))     GO TO 21
  44    27 CONTINUE
  45       GO TO 29
  46
  47    28 IF (IQ(KQS+L+JWORD+1).NE.ITEXT(2))  GO TO 21
  48
  49    29 NCOUNT = NCOUNT + 1
  50       IF (NCOUNT.GE.101)           GO TO 21
  51       IQUEST(NCOUNT) = L
  52       GO TO 21
  53
  54    39 NZLONG = NCOUNT
  55       RETURN
  56       END
  57 *      ==================================================
  58 #include "zebra/qcardl.inc"