[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / mqs / mziobk.F

*
* $Id$
*
* $Log$
* 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"
C--------------    END CDE                             --------------
      DIMENSION    MMBK(99), NWBK(9)
      CHARACTER    CHFORM*(*)


      NW = NWBK(1) - 4
      IQCETK(121) = MMBK(1)
      CALL MZIOCH (MMBK(5),NW,CHFORM)
      RETURN
      END
*      ==================================================
#include "zebra/qcardl.inc"
Commit	Line	Data
fe4da5cc	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"