/[PAMELA software]/yoda/techmodel/forroutines/tracker/common/common_readraw.f
ViewVC logotype

Diff of /yoda/techmodel/forroutines/tracker/common/common_readraw.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 6.0 by kusanagi, Tue Feb 7 17:11:10 2006 UTC revision 6.3 by kusanagi, Tue Jun 27 10:25:42 2006 UTC
# Line 4  Line 4 
4  *  *
5  *  *
6  *     10/9/2005 modified by david fedele to include general variables  *     10/9/2005 modified by david fedele to include general variables
7    *     23/6/2006 modified by elena to fix a bug
8  *  *
9  **************************************************************  **************************************************************
10    
11          
12          parameter (MAXBUFFLEN=z'172c8')
13          integer YODAflag
14          integer*4 length_buffer
15          integer*1 buffer(MAXBUFFLEN)
16          integer curpos            !current position in buffer
17          integer startcrc
18          integer stopcrc
19    c      common/yoda_buffer/YODAflag,length_buffer,buffer,curpos,startcrc,stopcrc
20    
21        integer*2 header(16)      !header: 16 2-byte words        integer*2 header(16)      !header: 16 2-byte words
22        integer*2 trailer(3)      !trailer: 3 2-byte words        integer*2 trailer(3)      !trailer: 3 2-byte words
# Line 42  Line 52 
52       $     ff,checksum_cal       $     ff,checksum_cal
53       $     ,DSPped_o,DSPsig_o,DSPbad_o,crc_calib,crc_hcalib         $     ,DSPped_o,DSPsig_o,DSPbad_o,crc_calib,crc_hcalib  
54    
55    *
56    *               common for data packet
57    *
58        integer DAQmode_dat       !9  = full acquisition mode        integer DAQmode_dat       !9  = full acquisition mode
59                                  !10 = compressed acquisition mode                                  !10 = compressed acquisition mode
60                                  !11 = compressed+full acquisition mode                                  !11 = compressed+full acquisition mode
# Line 62  Line 75 
75        integer fl1_dat           !flag        integer fl1_dat           !flag
76        integer fl6_dat           !flag        integer fl6_dat           !flag
77        integer checksum_dat       !DSP header checksum        integer checksum_dat       !DSP header checksum
78        integer*2 b_tra(100000)    !DATA BUFFER        integer l_tra
79          integer*2 b_tra(MAXBUFFLEN)    !DATA BUFFER
80        integer pnum_dat,cmdnum_dat,bid_dat,alarm_dat,aswr_dat        integer pnum_dat,cmdnum_dat,bid_dat,alarm_dat,aswr_dat
81        integer crc_dat        integer crc_dat
82                
# Line 72  Line 86 
86       $     ,addrcluster_dat,signcluster_dat       $     ,addrcluster_dat,signcluster_dat
87       $     ,fc_dat,compressiontime_dat       $     ,fc_dat,compressiontime_dat
88       $     ,fl5_dat,fl4_dat,fl3_dat,fl2_dat,fl1_dat,fl6_dat       $     ,fl5_dat,fl4_dat,fl3_dat,fl2_dat,fl1_dat,fl6_dat
89       $     ,checksum_dat,datalength_dat,b_tra       $     ,checksum_dat,datalength_dat,l_tra,b_tra
90       $     ,pnum_dat,cmdnum_dat,bid_dat       $     ,pnum_dat,cmdnum_dat,bid_dat
91       &     ,alarm_dat,aswr_dat       &     ,alarm_dat,aswr_dat
92       &     ,crc_dat       &     ,crc_dat
Legend:
Removed from v.6.0  
changed lines
  Added in v.6.3
  ViewVC Help
Powered by ViewVC 1.1.23