Parent Directory | Revision Log
Initial revision
1 | mocchiut | 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 |