FTN4,L
      BLOCK DATA COMRD,92067-1X559 REV.2026 800116
C 
C ******************************************************************* 
C * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980. ALL RIGHTS RESERVED.
C * NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
C * TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR WRITTEN
C * CONSENT OF HEWLETT-PACKARD COMPANY. 
C ******************************************************************* 
C * 
C *     NAME : COMRD
C *     SOURCE: 92067-18559 
C *     RELOC:  92067-16559 
C *     PGMR :  R.D.
C * 
      COMMON/COMRD/ ILU,ITAPE,NDIR,IDISC,MTLU,TSIZE,IBUF(8193)
      END 
                                                                                                                          