* * $Id: iorit32b.F,v 1.1.1.1 1996/03/08 15:21:59 mclareni Exp $ * * $Log: iorit32b.F,v $ * Revision 1.1.1.1 1996/03/08 15:21:59 mclareni * Epio * * #include "epio/pilot.h" #if defined(CERNLIB_ND100B32) SUBROUTINE IORITE(LUNIT,IARR,NBYTE,IRET) C **************************************** C-- NORD 100 32-BIT VERSION C-- 82-04-19 MODIFY JOP C-- GENERALISE TO MT+DISK: REPLACE MAGTPZ BY MAGTP C WRITE RECORD ONTO FILE C LUNIT = LOGICAL DEVICE NUMBER C IARR = BUFFER ARRAY C NBYTE = NO OF BYTES TO BE WRITTEN (ALWAYS EVEN !) C IRET = RETURN STATUS INTEGER*4 LUNIT,IARR(2),NBYTE,IRET,ZERO,IORCNV DATA ZERO/0/ C-- NO.BYTES / N100 MACHINE WORD NBW=2 LUN=LUNIT C-- NO WORDS TO WRITE NWMAX=NBYTE/NBW MFUNC=1B C-- IERR = FILE SYSTEM ERROR = ERRCODE IERR=MAGTP(MFUNC,IARR,LUN,NWMAX,IDUM) IRET=IERR IF(IRET.EQ.ZERO) GOTO 77777 IRET=IORCNV(IRET) 77777 RETURN END #endif