path: root/DEBI.FOR

	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