path: root/VZV.FOR

	SUBROUTINE VZV(IZV,N,IVSOTA)
	DIMENSION IZV(1)
	IVSOTA=0
	DO 10 I=1,N
10	IVSOTA=IVSOTA+IZV(I)
	RETURN
	END