Parent Directory
| 
Revision Log
Starting form this version: 1) includes are defined with relative (not absolute) path respect to the YODA aplication 2) RegistryEvent class is foreseen to contain post-unpack data.
| 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 |