tracker/common/common_readraw.f

***************************************************************
*
*     common for readraw
*
*
*     10/9/2005 modified by david fedele to include general variables
*
**************************************************************


      integer*2 header(16)      !header: 16 2-byte words
      integer*2 trailer(3)      !trailer: 3 2-byte words
      integer checkheader       !header control flag: 
                                ! =1 if some error occurred
                                ! =2 if Acquisition header, 
                                ! =3 if Calibration header 
      common/pkt_structure/header,checkheader,trailer


      integer DAQmode_cal       !
      integer DSPnumber_cal     !view number
      integer dataword
      integer calibrationnumber
      integer nused_event
      integer ped_1,ped_2,ped_3
      integer sig_1,sig_2,sig_3
      integer nbad_1,nbad_2,nbad_3
      integer ff
      integer checksum_cal
      integer DSPbad_o(nviews,nstrips_view) !online bad strips
      real DSPped_o(nviews,nstrips_view) !online pedestal
      real DSPsig_o(nviews,nstrips_view) !online sigma
      integer crc_calib(3)      !crc control per ladder
      integer crc_hcalib        !crc control per header

      common/calibration_pkt/DAQmode_cal,DSPnumber_cal
     $     ,dataword,calibrationnumber,
     $     nused_event,
     $     ped_1,ped_2,ped_3,
     $     sig_1,sig_2,sig_3,
     $     nbad_1,nbad_2,nbad_3,
     $     ff,checksum_cal
     $     ,DSPped_o,DSPsig_o,DSPbad_o,crc_calib,crc_hcalib   

      integer DAQmode_dat       !9  = full acquisition mode
                                !10 = compressed acquisition mode
                                !11 = compressed+full acquisition mode
      integer DSPnumber_dat     !view number
      integer DATAlength_dat    !data buffer length
      integer eventn_dat        !DSP event number
      integer nclust_dat!nclust*2+1 = number of strips to be 
      integer cutc_dat          !cut to include strips in a cluster
      integer cutcl_dat         !cut to search for clusters
      integer addrcluster_dat(3) !address of the greatest cluster(view,ladder)
      integer signcluster_dat(3) !signal of the greatest cluster(view,ladder)
      integer fc_dat            !compression flag
      integer compressiontime_dat !DSP program compression time
      integer fl5_dat           !flag
      integer fl4_dat           !flag
      integer fl3_dat           !flag
      integer fl2_dat           !flag
      integer fl1_dat           !flag
      integer fl6_dat           !flag
      integer checksum_dat       !DSP header checksum
      integer*2 b_tra(100000)    !DATA BUFFER
      integer pnum_dat,cmdnum_dat,bid_dat,alarm_dat,aswr_dat
      integer crc_dat
      
      common/data_pkt/DAQmode_dat,DSPnumber_dat
     $     ,eventn_dat,nclust_dat
     $     ,cutc_dat,cutcl_dat
     $     ,addrcluster_dat,signcluster_dat
     $     ,fc_dat,compressiontime_dat
     $     ,fl5_dat,fl4_dat,fl3_dat,fl2_dat,fl1_dat,fl6_dat
     $     ,checksum_dat,datalength_dat,b_tra
     $     ,pnum_dat,cmdnum_dat,bid_dat
     &     ,alarm_dat,aswr_dat
     &     ,crc_dat

1	***************************************************************
2	*
3	* common for readraw
4	*
5	*
6	* 10/9/2005 modified by david fedele to include general variables
7	*
8	**************************************************************
9
10
11	integer*2 header(16) !header: 16 2-byte words
12	integer*2 trailer(3) !trailer: 3 2-byte words
13	integer checkheader !header control flag:
14	! =1 if some error occurred
15	! =2 if Acquisition header,
16	! =3 if Calibration header
17	common/pkt_structure/header,checkheader,trailer
18
19
20	integer DAQmode_cal !
21	integer DSPnumber_cal !view number
22	integer dataword
23	integer calibrationnumber
24	integer nused_event
25	integer ped_1,ped_2,ped_3
26	integer sig_1,sig_2,sig_3
27	integer nbad_1,nbad_2,nbad_3
28	integer ff
29	integer checksum_cal
30	integer DSPbad_o(nviews,nstrips_view) !online bad strips
31	real DSPped_o(nviews,nstrips_view) !online pedestal
32	real DSPsig_o(nviews,nstrips_view) !online sigma
33	integer crc_calib(3) !crc control per ladder
34	integer crc_hcalib !crc control per header
35
36	common/calibration_pkt/DAQmode_cal,DSPnumber_cal
37	$ ,dataword,calibrationnumber,
38	$ nused_event,
39	$ ped_1,ped_2,ped_3,
40	$ sig_1,sig_2,sig_3,
41	$ nbad_1,nbad_2,nbad_3,
42	$ ff,checksum_cal
43	$ ,DSPped_o,DSPsig_o,DSPbad_o,crc_calib,crc_hcalib
44
45	integer DAQmode_dat !9 = full acquisition mode
46	!10 = compressed acquisition mode
47	!11 = compressed+full acquisition mode
48	integer DSPnumber_dat !view number
49	integer DATAlength_dat !data buffer length
50	integer eventn_dat !DSP event number
51	integer nclust_dat!nclust*2+1 = number of strips to be
52	integer cutc_dat !cut to include strips in a cluster
53	integer cutcl_dat !cut to search for clusters
54	integer addrcluster_dat(3) !address of the greatest cluster(view,ladder)
55	integer signcluster_dat(3) !signal of the greatest cluster(view,ladder)
56	integer fc_dat !compression flag
57	integer compressiontime_dat !DSP program compression time
58	integer fl5_dat !flag
59	integer fl4_dat !flag
60	integer fl3_dat !flag
61	integer fl2_dat !flag
62	integer fl1_dat !flag
63	integer fl6_dat !flag
64	integer checksum_dat !DSP header checksum
65	integer*2 b_tra(100000) !DATA BUFFER
66	integer pnum_dat,cmdnum_dat,bid_dat,alarm_dat,aswr_dat
67	integer crc_dat
68
69	common/data_pkt/DAQmode_dat,DSPnumber_dat
70	$ ,eventn_dat,nclust_dat
71	$ ,cutc_dat,cutcl_dat
72	$ ,addrcluster_dat,signcluster_dat
73	$ ,fc_dat,compressiontime_dat
74	$ ,fl5_dat,fl4_dat,fl3_dat,fl2_dat,fl1_dat,fl6_dat
75	$ ,checksum_dat,datalength_dat,b_tra
76	$ ,pnum_dat,cmdnum_dat,bid_dat
77	& ,alarm_dat,aswr_dat
78	& ,crc_dat
79