5 files changed, 43 insertions, 0 deletions

diff --git a/DEBI.FOR b/DEBI.FOR
new file mode 100644
index 0000000..9431c82
--- /dev/null
+++ b/DEBI.FOR
@@ -0,0 +1,15 @@
+	SUBROUTINE DEBI(A,B)
+C
+C PRETVARJA POZITIVNO CELO STEVILO REAL Z OSNOVO 10 (A - VKLJUCNO 128.)
+C V BINARNO (B - 10000000.). BREZ OPOZORIL. SE IZDELATI.
+C
+	C=AMOD(A,2.)
+	A=AINT(A/2.)
+	B=C
+	DO 10 I=1,1000
+	IF(A.EQ.0) RETURN
+	C=AMOD(A,2.)
+	A=AINT(A/2.)
+10	B=B+C*(10**I)
+	RETURN
+	END
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
diff --git a/SRC.FOR b/SRC.FOR
new file mode 100644
index 0000000..cce31dd
--- /dev/null
+++ b/SRC.FOR
@@ -0,0 +1,10 @@
+	SUBROUTINE SRC(IPA,N,IND)
+	DIMENSION IPA(1),IP(10)
+	DO 10 I=1,N
+	A=IPA(I)
+	CALL DEBI(A,B)
+10	IP(I)=B
+	CALL VZV(IP,N,IS)
+	CALL NAST(IS,IND)
+	RETURN
+	END
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
diff --git a/a.out b/a.out
new file mode 100755
index 0000000..46dde68
--- /dev/null
+++ b/a.out