C PAT10.FOR C NAB/1736/SLA 30-JUL-79/23-AUG-79 C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 12 M C OTS C I/O FROM A FORTRAN COMPLETION ROUTINE -- PATCH 10. INTEGER AREA(4),OUT(64) EXTERNAL CMPL COMMON AREA,OUT IF (IQSET(5).NE.0) STOP ' QUEUE PROBLEM' DO 10 I=1,64 10 OUT(I)='M' CALL ASSIGN(2,'FILE1.DAT',9) CALL ASSIGN(3,'FILE2.DAT',9) DEFINE FILE 2(8,64,U,INDEX1) DEFINE FILE 3(8,64,U,INDEX2) DO 15 I=1,4 J=I WRITE (2'J)OUT WRITE (3'J)OUT 15 CONTINUE CALL ITIMER(0,0,5,0,AREA,A,CMPL) CALL SUSPND END C SUBROUTINE CMPL(ID) INTEGER AREA(4),OUT(64) COMMON AREA,OUT DO 10 I=1,64 10 OUT(I)='C' DO 15 I=5,8 J=I WRITE (2'J)OUT WRITE (3'J)OUT 15 CONTINUE CALL RESUME RETURN END