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 | kusanagi | 1.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 |