C PAT12B.FOR C NAB/SLA/1736 23-AUG-79/ C RT-11 SOFTWARE DISPATCH AUGUST 1979 C FORTRAN IV/RT-11 V2.1 SEQ 14 M C OTS C CALL CLOSE (FORTRAN LIBRARY SUBROUTINE) -- PATCH 12. CALL ASSIGN(1,'FILE.DAT',8) DEFINE FILE 1(8,64,U,INDEX) CALL CLOSE(1) END