calo/unpacking/azero.for

C------------------------------------------------
      SUBROUTINE AZERO(vetto,lung)
C------------------------------------------------

      IMPLICIT NONE
C
      integer lung, i
      INTEGER vetto(lung)

      do i = 1, lung
         vetto(i) = 0
      enddo

      return
      end
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