MINICERN/packlib/zebra/fq/fzinfo.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:14  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE FZINFO (LUNP)
  11
  12 C-    Locate FZ control-bank for unit LUN,
  13 C-    copy control bank information to /FZSTAT/,
  14 C-    signal failure by setting INFLUN = 0
  15
  16 #include "zebra/mqsys.inc"
  17 #include "zebra/eqlqf.inc"
  18 #include "zebra/fzstat.inc"
  19 C--------------    End CDE                             --------------
  20       DIMENSION    LUNP(9)
  21
  22
  23       LUN  = LUNP(1)
  24
  25       LQFF = LQFS
  26    14 IF (LQFF.NE.0)  THEN
  27           IF (IQ(KQSP+LQFF-5).EQ.LUN)  GO TO 21
  28           LQFF = LQ(KQSP+LQFF)
  29           GO TO 14
  30         ELSE
  31           INFLUN = 0
  32           RETURN
  33         ENDIF
  34
  35 C--                Bank for LUN found
  36
  37    21 INFLUN = LUN
  38       INFSTA = IQ(KQSP+LQFF)
  39       CALL UCOPY (IQ(KQSP+LQFF+1), INFOFZ, 40)
  40       RETURN
  41       END
  42 *      ==================================================
  43 #include "zebra/qcardl.inc"