summaryrefslogtreecommitdiffstats
path: root/DEBI.FOR
blob: 9431c82b6923eac5e8bd976b895911db5701c78e (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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