Parent Directory | Revision Log | Patch
revision 1.3 by mocchiut, Wed May 31 09:31:11 2006 UTC | revision 1.4 by mocchiut, Wed May 31 09:37:01 2006 UTC | |
---|---|---|
# | Line 121 C | Line 121 C |
121 | al_p(m) = al_pp(t,m) | al_p(m) = al_pp(t,m) |
122 | enddo | enddo |
123 | if (al_p(5).eq.0.) THEN | if (al_p(5).eq.0.) THEN |
124 | PRINT *,' CALORIMETER - WARNING F77: track with R = 0, discarded' | PRINT *,' CALORIMETER - WARNING F77: track with R = 0, discarded' |
125 | GOOD2 = 0 | GOOD2 = 0 |
126 | GOTO 969 | GOTO 969 |
127 | ENDIF | ENDIF |
|
ViewVC Help | |
Powered by ViewVC 1.1.23 |