کد فرترن تبدیل یک عدد از مبنای 2 به مبنای 10
PROGRAM mabna
1. IMPLICIT NONE
2. INTEGER::n,s,i,j,t,k
3. READ*,n
4. j=1
5. DO
6. IF (n<(10**j)) THEN
7. k=i
8. EXIT
9. ELSE
10. j=j+1
11. END IF
12. END DO
13. s=0
14. DO i=0,k-1
15. t=MOD(n,10)*(2**i)
16. s=s+t
17. n=INT(n/10)
18. END DO
19. PRINT*,s