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