{ ************************************************************************** }
{ *** definition of the data structure for a calorimeter trigger tower   *** }
{ *** Created 3-MAY-1990                                                 *** }
{ ************************************************************************** }

  analog_conversion_coefficients = 
  PACKED RECORD
    dac_byte   : byte ; { byte loaded in the DAC in order to produce          }
                        { the desired zero energy response                    }
    zeresp     : byte ; { ADC response for zero energy deposit                }
                        { in the trigger tower. units = ADC ouptut lsb        }
    dgtd_noise : REAL ;
                        { electronic noise variance in the trigger tower.     }
                        { unit = ADC count                                    }
    simu_state : BOOLEAN ; { true if the tower holds simulated data           }
    simu_value : byte ;    { simulated data, used when simu state is true     }
  END ;

  lookup_coefficients = 
  PACKED RECORD
    slope      : REAL ; { transfer slope of the prom lookup                   }
    cut        : byte ; { low energy cut below which the prom response        }
                        { is forced to zero. units = prom ouptut lsb          }
    zeresp     : byte ; { PROM response for zero energy deposit               }
                        { in the trigger tower. units = prom ouptut lsb       }
  END ;

  cal_trig_tower = 
  PACKED RECORD 
    status    : ARRAY [EMEtZ0..HDEtZ0] OF object_status ;
    adconv    : ARRAY [EMEtZ0..HDEtZ0] OF analog_conversion_coefficients ;
    lookup    : ARRAY [EM_PROM..Py_PROM,PROM_page_1..PROM_page_8] 
                OF lookup_coefficients ;
    threshold : ARRAY [ref_0..ref_3,EMEt_ref..TOTEt_ref] OF INTEGER ; {MeV    }
    adc_scale : INTEGER ; { incoming energy corresponding to the least count  }
                          { out of the ADC. Units = MeV of transverse energy  }
    lookup_scale : ARRAY [Et..P] OF INTEGER ;         
                        { incoming energy corresponding to the least count    }
                        { out of the PROM. Units = MeV of transverse energy   }
  END ;

{ DEC/CMS REPLACEMENT HISTORY, Element TABLE_CALTRG_TOWER.TYP}
{ *2    22-JUN-1990 17:34:35 TRIGGER "improve trigger tower record type"}
{ *1    26-MAR-1990 11:22:06 TRIGGER "original load of pascal type declaration files"}
{ DEC/CMS REPLACEMENT HISTORY, Element TABLE_CALTRG_TOWER.TYP}