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