summaryrefslogtreecommitdiffstats
path: root/NAST.FOR
diff options
context:
space:
mode:
authorsijanec <sijanecantonluka@gmail.com>2020-06-11 14:47:44 +0200
committersijanec <sijanecantonluka@gmail.com>2020-06-11 14:47:44 +0200
commitb3eca771ea610cbe7320fedfcd6e9de19b8bae2a (patch)
treee8d880d45a8d64a8613b1ea1582a4dce9b614cbb /NAST.FOR
parentinitial commit (diff)
downloadZVEZDE-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.FOR11
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