Analyzer/INCLUDE/h_sieve_ntuple.cmn - view

Return to h_sieve_ntuple.cmn CVS log

Up to [HallC] / Analyzer / INCLUDE

File: [HallC] / Analyzer / INCLUDE / h_sieve_ntuple.cmn (download)
Revision: 1.2, Mon May 22 18:05:58 1995 UTC (29 years, 4 months ago) by cdaq
Branch: MAIN
CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, nov2696, mduality, may2495, mar-24-2003, jul2895, jan2496, jan1896, jan1796, gep_online, gep3, fpi2, emc, e01004, dec0198, bigcal, baryon, aug-12-2003, apr3096, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS
Changes since 1.1: +9 -1 lines

(SAW) Correct some CTP class types

**************************begin: h_ntuple.cmn ***********************
*- 
*-   Created    1-Nov-1994   
*........................................................................
*- Misc. info. required for HMS sieve slit Ntuple
* $Log: h_sieve_ntuple.cmn,v $
* Revision 1.2  1995/05/22 19:05:58  cdaq
* (SAW) Correct some CTP class types
*
* Revision 1.1  1994/12/17  22:14:28  cdaq
* Initial revision
*
*
*
      integer HMAX_Ntuple_size
      parameter (HMAX_Ntuple_size= 100)
      integer default_h_sieve_Ntuple_ID
      parameter (default_h_sieve_Ntuple_ID= 1411)
*
*     CTPTYPE=parm
*
      logical h_sieve_Ntuple_exists
      integer h_sieve_Ntuple_ID
      integer h_sieve_Ntuple_size
      integer h_sieve_Ntuple_IOchannel
      character*80 h_sieve_Ntuple_name
      character*80 h_sieve_Ntuple_title
      character*132 h_sieve_Ntuple_directory   
      character*256 h_sieve_Ntuple_file
      character*8 h_sieve_Ntuple_tag(HMAX_Ntuple_size)
*
*     CTPTYPE=event
*
      real h_sieve_Ntuple_contents(HMAX_Ntuple_size)
*
      COMMON /HMS_sieve_Ntuple/ h_sieve_Ntuple_exists,h_sieve_Ntuple_ID,
     &     h_sieve_Ntuple_size,h_sieve_Ntuple_IOchannel,
     &     h_sieve_Ntuple_name,h_sieve_Ntuple_title,
     &     h_sieve_Ntuple_directory,h_sieve_Ntuple_file,
     &     h_sieve_Ntuple_tag,h_sieve_Ntuple_contents

*****************************end: h_sieve_ntuple.cmn ***********************

Analyzer/Replay: Mark Jones, Documents: Stephen Wood