MINICERN/packlib/zebra/mqs/mziobk.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/03/06 10:47:21  mclareni
   6 * Zebra
   7 *
   8 *
   9 #include "zebra/pilot.h"
  10       SUBROUTINE MZIOBK (MMBK,NWBK,CHFORM)
  11
  12 C-    Analyse I/O descriptor,  user called
  13 C-    store the resulting I/O characteristic into the user's
  14 C-    bank description vector MMBK of length NWBK, starting at word 5
  15
  16 #include "zebra/zkrakc.inc"
  17 C--------------    END CDE                             --------------
  18       DIMENSION    MMBK(99), NWBK(9)
  19       CHARACTER    CHFORM*(*)
  20
  21
  22       NW = NWBK(1) - 4
  23       IQCETK(121) = MMBK(1)
  24       CALL MZIOCH (MMBK(5),NW,CHFORM)
  25       RETURN
  26       END
  27 *      ==================================================
  28 #include "zebra/qcardl.inc"