summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--DEBI.FOR15
-rw-r--r--NAST.FOR11
-rw-r--r--SRC.FOR10
-rw-r--r--VZV.FOR7
-rwxr-xr-xa.outbin0 -> 25172 bytes
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
Binary files differ