Parent Directory
| 
Revision Log
Main features of this release are: - updated classes documentations; - major changes on the calibration fortran routine for the calorimeter - update on the TMTC thermistors - removed old classes as CalibTrkBoth and CalibTrd
| 1 | C------------------------------------------------ |
| 2 | SUBROUTINE AZERO(vetto,lung) |
| 3 | C------------------------------------------------ |
| 4 | |
| 5 | IMPLICIT NONE |
| 6 | C |
| 7 | integer lung, i |
| 8 | INTEGER vetto(lung) |
| 9 | |
| 10 | do i = 1, lung |
| 11 | vetto(i) = 0 |
| 12 | enddo |
| 13 | |
| 14 | return |
| 15 | end |
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |