/[PAMELA software]/yoda/techmodel/forroutines/calorimeter/calpulse.for
ViewVC logotype

Diff of /yoda/techmodel/forroutines/calorimeter/calpulse.for

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

revision 1.4 by kusanagi, Thu Jul 8 13:05:26 2004 UTC revision 1.5 by kusanagi, Thu Jul 8 13:06:45 2004 UTC
# Line 69  c Line 69  c
69        length = ic        length = ic
70  c  c
71   20   continue   20   continue
72        ic = ic + length + 1  c      ic = ic + length + 1
73          ic = length + 1
74     32   continue
75        ke = 0        ke = 0
76        do while (ke.eq.0)        do while (ke.eq.0)
77  C  C
# Line 95  C Line 97  C
97                 if (st1.eq.YO.or.st1.eq.XE.or.st1.eq.XO) THEN                 if (st1.eq.YO.or.st1.eq.XE.or.st1.eq.XO) THEN
98                    error(contr) = 129                    error(contr) = 129
99                    contr = 2                    contr = 2
100                    length = -1  c                  length = -1
101                    goto 20                    goto 32
102                 ELSE                 ELSE
103                    ERROR(contr) = 128                    ERROR(contr) = 128
104                    GOTO 100                    GOTO 100
# Line 114  C             Line 116  C            
116                 if (st1.eq.XE.or.st1.eq.XO) then                 if (st1.eq.XE.or.st1.eq.XO) then
117                    error(contr) = 129                    error(contr) = 129
118                    contr = 3                    contr = 3
119                    length = -1  c                  length = -1
120                    goto 20                    goto 32
121                 ELSE                 ELSE
122                    ERROR(contr) = 128                    ERROR(contr) = 128
123                    GOTO 100                    GOTO 100
# Line 133  C     Line 135  C    
135                 if (st1.eq.XO) then                 if (st1.eq.XO) then
136                    error(contr) = 129                    error(contr) = 129
137                    contr = 4                    contr = 4
138                    length = -1  c                  length = -1
139                    goto 20                    goto 32
140                 ELSE                 ELSE
141                    ERROR(contr) = 128                                  ERROR(contr) = 128              
142                    GOTO 100                    GOTO 100
# Line 156  C Line 158  C
158  C      C    
159   100     CONTINUE   100     CONTINUE
160           ic = ic + 1           ic = ic + 1
161           if (ic.gt.20000) then           if (ic.gt.19999) then
162              ERROR(contr) = 130              ERROR(contr) = 130
163              if (contr.ne.1) contr=5              if (contr.ne.1) contr=5
164              me = 1              me = 1
# Line 217  C     Line 219  C    
219  C  C
220        if (error(1).eq.129.and.error(2).eq.129        if (error(1).eq.129.and.error(2).eq.129
221       &     .and.error(3).eq.129.and.error(4).eq.130) then       &     .and.error(3).eq.129.and.error(4).eq.130) then
222           call vzero(error,4)           call azero(error,4)
223           me = 1           me = 1
224           contr=1                 contr=1      
225        endif        endif
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.23