| 1 |
pam-fi |
1.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