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 /NAST.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 'NAST.FOR')
| -rw-r--r-- | NAST.FOR | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/NAST.FOR b/NAST.FOR new file mode 100644 index 0000000..6da0509 --- /dev/null +++ b/NAST.FOR @@ -0,0 +1,11 @@ + SUBROUTINE NAST(IS,IND) + ISS=IS + IND=0 + DO 10 I=1,1000 + IND=MOD(MOD(ISS,10),2) + IF(IND.EQ.1) RETURN + ISS=INT(ISS/10) + IF(ISS.EQ.0) RETURN +10 CONTINUE + RETURN + END |