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