MINICERN/packlib/zebra/rz/rzophd.F

   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