MINICERN/packlib/zebra/qutil/nzbank.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 NZBANK (IXSTOR,LGO)
  14
  15 C-    COUNT NUMBER OF BANKS
  16
  17 #include "zebra/q.inc"
  18 C--------------    END CDE                             --------------
  19
  20 #include "zebra/q_jbyt.inc"
  21
  22 #include "zebra/qstore.inc"
  23
  24       NCOUNT = 0
  25
  26       L = LGO
  27
  28    21 IF (L.EQ.0)                  GO TO 29
  29       L = LQ(KQS+L)
  30       NCOUNT = NCOUNT + 1
  31       GO TO 21
  32
  33    29 NZBANK = NCOUNT
  34       RETURN
  35       END
  36 *      ==================================================
  37 #include "zebra/qcardl.inc"