C--- *********************************************************
C---
C---     NEEDS TO BE REWRITTEN    
C---
C--- *********************************************************
C**************************************************************    
C*                                                            *    
C*                L U N I T S . C D E                         *
C*                                                            *    
C**************************************************************    
C--- *********************************************************
C---
C---     NEEDS TO BE REWRITTEN    
C---
C--- *********************************************************
C---
C---  this file contains the logical units definitions for TRIM
C---  main stream input output:  these are the units already defined:
C---
C---  LUNIN  Logical unit of the 1st input file (the following L.U.
C---        is expected as LUNIN+1, etc...)  RESERVED: 11-20
C---  LUNOUT(i) Logical unit for output      RESERVED: 21-30
C---  NTAP6  : printout stream
C---  NTAP8  : detailed debugging printing
C---  NTAP50 : Data Base - Master File
C---  NTAP51 : Data Base - hodoscopes H1 and H2
C---  NTAP52 : Data Base - straw chamber
C---  NTAP53 : Data Base - RPC and MWPC
C---  NTAP54 : Data Base - cherenkov
C---  NTAP55 : Data Base - LST and FTC
C---  NTAP56 : Data Base - central calorimeter
C---  NTAP57 : Data Base - veto
C---  NTAP58 : Data Base - forward calorimeter
C---  NTAP59 : Data Base - daq mapping
C---  NTAP60 : Not used
C---  NTAP61 : Data Base - geometry
C---  NTAP62 : Data Base - beam
C---  NTAP63 : Data Base - luminosity
C---   
      INTEGER NTAP1, NTAP2, NTAP3, NTAP4, NTAP5, NTAP6, NTAP7, NTAP8
     +,       NTAP9, NTAP10
     +,       NTAP50,NTAP51,NTAP52,NTAP53,NTAP54,NTAP55,NTAP56
     +,       NTAP57,NTAP58,NTAP59,NTAP60,NTAP61,NTAP62,NTAP63
      INTEGER LUNIN
      INTEGER LUNOUT(10)
      COMMON /LUNITS/  NTAP1, NTAP2, NTAP3, NTAP4, NTAP5, NTAP6, NTAP7
     +,                NTAP8, NTAP9, NTAP10
     +,       NTAP50,NTAP51,NTAP52,NTAP53,NTAP54,NTAP55,NTAP56
     +,       NTAP57,NTAP58,NTAP59,NTAP60,NTAP61,NTAP62,NTAP63
     +,       LUNIN,LUNOUT

C=========================================================================