1 files changed, 7 insertions, 0 deletions

diff --git a/VZV.FOR b/VZV.FOR
new file mode 100644
index 0000000..2eba76c
--- /dev/null
+++ b/VZV.FOR
@@ -0,0 +1,7 @@
+	SUBROUTINE VZV(IZV,N,IVSOTA)
+	DIMENSION IZV(1)
+	IVSOTA=0
+	DO 10 I=1,N
+10	IVSOTA=IVSOTA+IZV(I)
+	RETURN
+	END