*
* $Id: mziobk.F,v 1.2 1999/06/18 13:30:44 couet Exp $
*
* $Log: mziobk.F,v $
* Revision 1.2  1999/06/18 13:30:44  couet
* - qcardl.inc was empty: It is now removed and not used.
*   Comment END CDE removed.
*
* Revision 1.1.1.1  1996/03/06 10:47:21  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE MZIOBK (MMBK,NWBK,CHFORM)

C-    Analyse I/O descriptor,  user called
C-    store the resulting I/O characteristic into the user's
C-    bank description vector MMBK of length NWBK, starting at word 5

#include "zebra/zkrakc.inc"
*
      DIMENSION    MMBK(99), NWBK(9)
      CHARACTER    CHFORM*(*)


      NW = NWBK(1) - 4
      IQCETK(121) = MMBK(1)
      CALL MZIOCH (MMBK(5),NW,CHFORM)
      RETURN
      END