[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / rz / rzophd.F

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/03/06 10:47:26  mclareni
* Zebra
*
*
#include "zebra/pilot.h"
      SUBROUTINE RZOPHD(LUN,JREC,IREC,IBUF,IRC)
      DIMENSION IBUF(JREC)
      IRC = 0
      WRITE(LUN,REC=IREC,ERR=99,IOSTAT=ISTAT) IBUF
      RETURN
 99   IRC = ISTAT
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/03/06 10:47:26 mclareni
	6	* Zebra
	7	*
	8	*
	9	#include "zebra/pilot.h"
	10	SUBROUTINE RZOPHD(LUN,JREC,IREC,IBUF,IRC)
	11	DIMENSION IBUF(JREC)
	12	IRC = 0
	13	WRITE(LUN,REC=IREC,ERR=99,IOSTAT=ISTAT) IBUF
	14	RETURN
	15	99 IRC = ISTAT
	16	END