Parent Directory
| 
Revision Log
| 
Patch
| revision 1.1.1.1 by mocchiut, Fri May 19 13:15:50 2006 UTC | revision 1.3 by mocchiut, Fri Aug 10 12:31:42 2007 UTC | |
|---|---|---|
| # | Line 7 C | Line 7 C |
| 7 | INCLUDE 'INTEST.TXT' | INCLUDE 'INTEST.TXT' |
| 8 | C | C |
| 9 | COMMON / SHIFT / SHIFT | COMMON / SHIFT / SHIFT |
| 10 | SAVE / SHIFT / | |
| 11 | C | C |
| 12 | C EM: IF TRACK GO OUT OF THE CALORIMETER GIVE BACK AS STRIP VALUE -1 TO FLAG THE SITUATION | C EM: IF TRACK GO OUT OF THE CALORIMETER GIVE BACK AS STRIP VALUE -1 TO FLAG THE SITUATION |
| 13 | C | C |
| # | Line 50 C | Line 51 C |
| 51 | IF (IBAR.EQ.0) IBAR = 1 | IF (IBAR.EQ.0) IBAR = 1 |
| 52 | ENDIF | ENDIF |
| 53 | C | C |
| 54 | IF ( IBAR.LE.0 ) IBAR = 1 | |
| 55 | IF ( IBAR.GT.96 ) IBAR = 96 | |
| 56 | C | |
| 57 | 500 CONTINUE | 500 CONTINUE |
| 58 | RETURN | RETURN |
| 59 | END | END |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |