/[PAMELA software]/yoda/techmodel/forroutines/trigger/triggerunpack.for
ViewVC logotype

Diff of /yoda/techmodel/forroutines/trigger/triggerunpack.for

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

revision 6.0 by kusanagi, Tue Feb 7 17:11:11 2006 UTC revision 6.1 by kusanagi, Wed Feb 15 15:05:56 2006 UTC
# Line 1  Line 1 
1  C--------------------------------------------------------------------  C--------------------------------------------------------------------
2        SUBROUTINE TRIGGERUNPACK(vecta,lung,me)        SUBROUTINE TRIGGERUNPACK(vecta,lung,me)
3    
4  C                                            D.Campana,  Dec. 04  C                                            D.Campana,  Feb. 06
5  C---------------------------------------------------------------------  C---------------------------------------------------------------------
6    
7        IMPLICIT NONE        IMPLICIT NONE
# Line 122  c     Line 122  c    
122                 if (bi.eq.1) trigrate(i) = ibset(trigrate(i),15-bit)                 if (bi.eq.1) trigrate(i) = ibset(trigrate(i),15-bit)
123              endif              endif
124           enddo           enddo
125           ratetrig(i) = trigrate(i)/0.06  !    rate di trigger in Hz    c         ratetrig(i) = trigrate(i)/0.06  !    rate di trigger in Hz  
126             ratetrig(i) = trigrate(i)/4.0  !    rate di trigger in Hz  
127           ic = ic + 2           ic = ic + 2
128        enddo        enddo
129    
Legend:
Removed from v.6.0  
changed lines
  Added in v.6.1
  ViewVC Help
Powered by ViewVC 1.1.23