| 1 |
*************************************************************** |
| 2 |
* |
| 3 |
* common for readraw |
| 4 |
* |
| 5 |
* |
| 6 |
* 10/9/2005 modified by david fedele to include general variables |
| 7 |
* |
| 8 |
************************************************************** |
| 9 |
parameter (max_event_l=20000) |
| 10 |
integer*2 event_buffer(max_event_l) |
| 11 |
integer l_buffer |
| 12 |
common/event/event_buffer,l_buffer |
| 13 |
|
| 14 |
integer trk_DSP_ok(nviews)!mask of found DSP packets |
| 15 |
common/DSPok/trk_DSP_ok |
| 16 |
|
| 17 |
integer*2 header(16) !header: 16 2-byte words |
| 18 |
integer*2 trailer(3) !trailer: 3 2-byte words |
| 19 |
integer checkheader !header control flag: |
| 20 |
! =1 if some error occurred |
| 21 |
! =2 if Acquisition header, |
| 22 |
! =3 if Calibration header |
| 23 |
common/pkt_structure/header,checkheader,trailer |
| 24 |
|
| 25 |
|
| 26 |
integer DAQmode_cal ! |
| 27 |
integer DSPnumber_cal !view number |
| 28 |
integer dataword |
| 29 |
integer calibrationnumber |
| 30 |
integer nused_event |
| 31 |
integer ped_1,ped_2,ped_3 |
| 32 |
integer sig_1,sig_2,sig_3 |
| 33 |
integer nbad_1,nbad_2,nbad_3 |
| 34 |
integer ff |
| 35 |
integer checksum_cal |
| 36 |
integer DSPbad_o(nviews,nstrips_view) !online bad strips |
| 37 |
real DSPped_o(nviews,nstrips_view) !online pedestal |
| 38 |
real DSPsig_o(nviews,nstrips_view) !online sigma |
| 39 |
c***************************************************** |
| 40 |
cccccc 1/12/2005 modified by david fedele |
| 41 |
logical crc_calib(3) !crc control per ladder |
| 42 |
logical crc_hcalib !crc control per header |
| 43 |
c***************************************************** |
| 44 |
|
| 45 |
|
| 46 |
common/calibration_pkt/DAQmode_cal,DSPnumber_cal |
| 47 |
$ ,dataword,calibrationnumber, |
| 48 |
$ nused_event, |
| 49 |
$ ped_1,ped_2,ped_3, |
| 50 |
$ sig_1,sig_2,sig_3, |
| 51 |
$ nbad_1,nbad_2,nbad_3, |
| 52 |
$ ff,checksum_cal |
| 53 |
$ ,DSPped_o,DSPsig_o,DSPbad_o,crc_calib,crc_hcalib |
| 54 |
|
| 55 |
integer DAQmode_dat !9 = full acquisition mode |
| 56 |
!10 = compressed acquisition mode |
| 57 |
!11 = compressed+full acquisition mode |
| 58 |
integer DSPnumber_dat !view number |
| 59 |
integer DATAlength_dat !data buffer length |
| 60 |
integer eventn_dat !DSP event number |
| 61 |
integer nclust_dat!nclust*2+1 = number of strips to be |
| 62 |
integer cutc_dat !cut to include strips in a cluster |
| 63 |
integer cutcl_dat !cut to search for clusters |
| 64 |
integer addrcluster_dat(3) !address of the greatest cluster(view,ladder) |
| 65 |
integer signcluster_dat(3) !signal of the greatest cluster(view,ladder) |
| 66 |
integer fc_dat !compression flag |
| 67 |
integer compressiontime_dat !DSP program compression time |
| 68 |
integer fl5_dat !flag |
| 69 |
integer fl4_dat !flag |
| 70 |
integer fl3_dat !flag |
| 71 |
integer fl2_dat !flag |
| 72 |
integer fl1_dat !flag |
| 73 |
integer fl6_dat !flag |
| 74 |
integer checksum_dat !DSP header checksum |
| 75 |
integer*2 b_tra(100000) !DATA BUFFER |
| 76 |
integer pnum_dat,cmdnum_dat,bid_dat,alarm_dat,aswr_dat |
| 77 |
c***************************************************** |
| 78 |
cccccc 20/9/2005 modified by david fedele |
| 79 |
integer*1 crc_dat |
| 80 |
c***************************************************** |
| 81 |
|
| 82 |
common/data_pkt/DAQmode_dat,DSPnumber_dat |
| 83 |
$ ,eventn_dat,nclust_dat |
| 84 |
$ ,cutc_dat,cutcl_dat |
| 85 |
$ ,addrcluster_dat,signcluster_dat |
| 86 |
$ ,fc_dat,compressiontime_dat |
| 87 |
$ ,fl5_dat,fl4_dat,fl3_dat,fl2_dat,fl1_dat,fl6_dat |
| 88 |
$ ,checksum_dat,datalength_dat,b_tra |
| 89 |
$ ,pnum_dat,cmdnum_dat,bid_dat |
| 90 |
& ,alarm_dat,aswr_dat |
| 91 |
c***************************************************** |
| 92 |
cccccc 10/9/2005 modified by david fedele |
| 93 |
& ,crc_dat |
| 94 |
c***************************************************** |
| 95 |
|
| 96 |
c--------------------------------------------------------------------------- |
| 97 |
c calibration list file common. this file contains the list of the |
| 98 |
c calibration file names to be associated to each event |
| 99 |
c--------------------------------------------------------------------------- |
| 100 |
parameter(lun_calib_list=66) !calibration list file id |
| 101 |
character*40 file_calib !calibration list file |
| 102 |
integer n_cal_list !calibration file identifier in the list |
| 103 |
common/calib_list/n_cal_list,file_calib |
Parent Directory
| 
Revision Log