MINICERN/packlib/zebra/qutil/lzfval.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2  1996/04/18 16:13:34  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 #if defined(CERNLIB_VAXVMS)
  14 #include "qutyvax/lzfval.F"
  15 #else
  16       FUNCTION LZFVAL (IXSTOR,LGO,VAL,TOL,JWORD)
  17
  18 C-    FIND BANK CONTAINING IN WORD JWORD FL.P. VAL WITHIN TOL
  19 C-    SEARCH LINEAR STRUCTURE STARTING WITH BANK AT LGO
  20 C-    RETURN BANK-ADR AS VALUE
  21
  22 #include "zebra/q.inc"
  23 C--------------    END CDE                             --------------
  24
  25 #include "zebra/q_jbyt.inc"
  26
  27 #include "zebra/qstore.inc"
  28
  29       VLOW = VAL - TOL
  30       VHI  = VAL + TOL
  31
  32       L = LGO
  33    21 IF (L.EQ.0)                    GO TO 29
  34       IF (Q(KQS+L+JWORD).LT.VLOW)     GO TO 22
  35       IF (Q(KQS+L+JWORD).LE.VHI)      GO TO 29
  36    22 L = LQ(KQS+L)
  37       GO TO 21
  38
  39    29 LZFVAL= L
  40       RETURN
  41       END
  42 *      ==================================================
  43 #include "zebra/qcardl.inc"
  44 #endif