Group: comp.lang.fortran · Group Profile · Search for Carry1 in comp.lang.fortran
Author: Bamm
Date: Mar 7, 2008 19:05
...else print *, "One's complement is ", BinInt, "." Carry1 = 1 do i = 8, 1, -1 if (Carry1 == 1) then if (BinInt(i:i) == "1") then BinInt(i:i) = "0" else BinInt(i:i) = "1" Carry1 = 0 end if end if end do print ...
| 
