diff options
author | sijanec <sijanecantonluka@gmail.com> | 2020-06-11 14:47:44 +0200 |
---|---|---|
committer | sijanec <sijanecantonluka@gmail.com> | 2020-06-11 14:47:44 +0200 |
commit | b3eca771ea610cbe7320fedfcd6e9de19b8bae2a (patch) | |
tree | e8d880d45a8d64a8613b1ea1582a4dce9b614cbb /VZV.FOR | |
parent | initial commit (diff) | |
download | ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.gz ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.bz2 ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.lz ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.xz ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.tar.zst ZVEZDE-b3eca771ea610cbe7320fedfcd6e9de19b8bae2a.zip |
Diffstat (limited to 'VZV.FOR')
-rw-r--r-- | VZV.FOR | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -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 |