/[PAMELA software]/chewbacca/PamOffLineSW/forroutines/calorimeter/calunpack.for
ViewVC logotype

Diff of /chewbacca/PamOffLineSW/forroutines/calorimeter/calunpack.for

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

revision 1.4 by mocchiut, Tue Dec 30 14:21:19 2008 UTC revision 1.8 by mocchiut, Thu Dec 24 11:20:53 2009 UTC
# Line 123  c      PARAMETER (START=300,SEC1ST=1200) Line 123  c      PARAMETER (START=300,SEC1ST=1200)
123  c      PARAMETER (START=500,SEC1ST=1200)  c      PARAMETER (START=500,SEC1ST=1200)
124        PARAMETER (SEC1ST=1200)        PARAMETER (SEC1ST=1200)
125        PARAMETER (NPLA=22,NCHA=96,LENSEV=NPLA*NCHA)        PARAMETER (NPLA=22,NCHA=96,LENSEV=NPLA*NCHA)
126        PARAMETER (ival='FFFF'x)  c      PARAMETER (ival=-32768)
127    c      PARAMETER (ival='FFFF'x)
128  C  C
129  C Normal variables definition  C Normal variables definition
130  C  C
# Line 189  C Line 190  C
190           enddo           enddo
191           goto 999           goto 999
192        endif        endif
193    
194          do bit = 0, 15
195             ival = ibset(ival,bit)
196          enddo
197    c      print *,' IVAL ',IVAL
198    c      write(*,22)IVAL
199  C  C
200  C     no debug informations  C     no debug informations
201  C  C
# Line 196  C Line 203  C
203  C  C
204  C     DEBUG: PRINT OUT THE INPUT VECTOR  C     DEBUG: PRINT OUT THE INPUT VECTOR
205  C  C
206    c      dumpo=iev
207  c      if (iev.eq.dumpo) then  c      if (iev.eq.dumpo) then
208  c         do l=1,lung  c         do l=1,lung
209  c            write(*,17)l,vecta(l)  c            write(*,17)l,vecta(l)
210  c         enddo  c         enddo
211  c      endif  c      endif
 C      dumpo = iev  
212  C  C
213  C     DETERMINE LENGTH IN WORDS FROM LENGTH IN BYTES  C     DETERMINE LENGTH IN WORDS FROM LENGTH IN BYTES
214  C  C
# Line 1123  C     Line 1130  C    
1130   150  continue   150  continue
1131  C      C    
1132        contr = contr + 1        contr = contr + 1
1133          
1134    c
1135    c should never happen that we find MORE than 4 sections..
1136    c
1137          if (contr.gt.100) then
1138             if (iev.eq.dumpo)
1139         &        print *,'contr ????????????? ',contr
1140    
1141             me = 1
1142             do i = 1, 4
1143                merror(i) = 129            
1144                e2(i) = 0            
1145                stwerr(i) = 0
1146             enddo
1147             call clearall
1148             goto 999
1149          endif
1150  c  c
1151  c     in case of crc error proceed as if we never processed this section  c     in case of crc error proceed as if we never processed this section
1152  c  c
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.23